faukah/.emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

something

Browse source
This commit is contained in:
Charlie Root 2025-03-19 20:46:04 +01:00
commit 7ea2eb8f05
Signed by: faukah
SSH key fingerprint: SHA256:Uj2AXqvtdCA4hn5Hq0ZonhIAyUqI1q4w2sMG3Z1TH7E
10 changed files with 7 additions and 225 deletions
Download patch file Download diff file Expand all files Collapse all files

2
custom.el
View file

@ -3,7 +3,7 @@
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(safe-local-variable-values '((lexical-bindings . t))))
'(package-selected-packages nil))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.

4
init.el
View file

@ -42,7 +42,7 @@
(require-package 'diminish)
;; Packages
(require 'init-meow)
;;(require 'init-meow)
(require 'init-gui-frames)
(require 'init-dired)
@ -96,6 +96,6 @@
;; Local Variables:
;; coding: utf-8
;; no-byte-compile: t
;; End:
;;; init.el ends here

2
lisp/init-corfu.el
View file

@ -1,4 +1,4 @@
;;; init-corfu.el --- Interactive completion in buffers -*- lexical-binding: t -*-
;;; init-corfu.el Interactive completion in buffers -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:

10
lisp/init-gui-frames.el~
View file

@ -1,10 +0,0 @@
;; Suppres GUI features
(setq use-file-dialog nil)
(setq use-dialog-box nil)
(setq inhibit-startup-screen t)
(tool-bar-mode -1))
(set-scroll-bar-mode nil))
(menu-bar-mode -1)

56
lisp/init-ibuffer.el~
View file

@ -1,56 +0,0 @@
;;; init-ibuffer.el --- ibuffer settings -*- lexical-binding: t -*-
;;; Commentary:
;; TODO: enhance ibuffer-fontification-alist
;; See http://www.reddit.com/r/emacs/comments/21fjpn/fontifying_buffer_list_for_emacs_243/
;;; Code:
(require-package 'ibuffer-vc)
(defun ibuffer-set-up-preferred-filters ()
(ibuffer-vc-set-filter-groups-by-vc-root)
(unless (eq ibuffer-sorting-mode 'filename/process)
(ibuffer-do-sort-by-filename/process)))
(add-hook 'ibuffer-hook 'ibuffer-set-up-preferred-filters)
(setq-default ibuffer-show-empty-filter-groups nil)
(sanityinc/fullframe-mode 'ibuffer-mode)
(with-eval-after-load 'ibuffer
;; Use human readable Size column instead of original one
(define-ibuffer-column size-h
(:name "Size" :inline t)
(file-size-human-readable (buffer-size))))
;; Modify the default ibuffer-formats (toggle with `)
(setq ibuffer-formats
'((mark modified read-only vc-status-mini " "
(name 22 22 :left :elide)
" "
(size-h 9 -1 :right)
" "
(mode 12 12 :left :elide)
" "
vc-relative-file)
(mark modified read-only vc-status-mini " "
(name 22 22 :left :elide)
" "
(size-h 9 -1 :right)
" "
(mode 14 14 :left :elide)
" "
(vc-status 12 12 :left)
" "
vc-relative-file)))
(setq ibuffer-filter-group-name-face 'font-lock-doc-face)
(global-set-key (kbd "C-x C-b") 'ibuffer)
(provide 'init-ibuffer)
;;; init-ibuffer.el ends here

1
lisp/init-lisp.el
View file

@ -154,7 +154,6 @@ there is no current file, eval the current buffer."
(list "-Q" "-batch" "-f" "batch-byte-compile" filename)
" ")))))
;; Enable desired features for all lisp modes

4
lisp/init-meow.el
View file

@ -4,6 +4,7 @@
(defun meow-setup ()
(setq meow-cheatsheet-physical-layout meow-cheatsheet-physical-layout-iso)
(setq meow-cheatsheet-layout meow-cheatsheet-layout-qwertz)
(setq meow-use-clipboard t)
(meow-thing-register 'angle
'(pair (";") (":"))
@ -62,7 +63,8 @@
'("L" . meow-right-expand)
'("/" . meow-visit)
'("-" . meow-search)
'("n" . meow-search)
'("%" . meow-block)
'("w" . meow-next-word)
'("W" . meow-next-symbol)

118
lisp/init-meow.el~
View file

@ -1,118 +0,0 @@
(require-package 'meow)
(defun meow-setup ()
(setq meow-cheatsheet-physical-layout meow-cheatsheet-physical-layout-iso)
(setq meow-cheatsheet-layout meow-cheatsheet-layout-qwertz)
(meow-thing-register 'angle
'(pair (";") (":"))
'(pair (";") (":")))
(setq meow-char-thing-table
'((?f . round)
(?d . square)
(?s . curly)
(?a . angle)
(?r . string)
(?v . paragraph)
(?c . line)
(?x . buffer)))
(meow-leader-define-key
;; Use SPC (0-9) for digit arguments.
'("1" . meow-digit-argument)
'("2" . meow-digit-argument)
'("3" . meow-digit-argument)
'("4" . meow-digit-argument)
'("5" . meow-digit-argument)
'("6" . meow-digit-argument)
'("7" . meow-digit-argument)
'("8" . meow-digit-argument)
'("9" . meow-digit-argument)
'("0" . meow-digit-argument)
'("-" . meow-keypad-describe-key)
'("_" . meow-cheatsheet))
(meow-normal-define-key
;; expansion
'("0" . meow-expand-0)
'("1" . meow-expand-1)
'("2" . meow-expand-2)
'("3" . meow-expand-3)
'("4" . meow-expand-4)
'("5" . meow-expand-5)
'("6" . meow-expand-6)
'("7" . meow-expand-7)
'("8" . meow-expand-8)
'("9" . meow-expand-9)
'("ä" . meow-reverse)
;; movement
'("i" . meow-prev)
'("k" . meow-next)
'("j" . meow-left)
'("l" . meow-right)
'("z" . meow-search)
'("-" . meow-visit)
;; expansion
'("I" . meow-prev-expand)
'("K" . meow-next-expand)
'("J" . meow-left-expand)
'("L" . meow-right-expand)
'("u" . meow-back-word)
'("U" . meow-back-symbol)
'("o" . meow-next-word)
'("O" . meow-next-symbol)
'("a" . meow-mark-word)
'("A" . meow-mark-symbol)
'("s" . meow-line)
'("S" . meow-goto-line)
'("w" . meow-block)
'("q" . meow-join)
'("g" . meow-grab)
'("G" . meow-pop-grab)
'("m" . meow-swap-grab)
'("M" . meow-sync-grab)
'("p" . meow-cancel-selection)
'("P" . meow-pop-selection)
'("x" . meow-till)
'("y" . meow-find)
'("," . meow-beginning-of-thing)
'("." . meow-end-of-thing)
'(";" . meow-inner-of-thing)
'(":" . meow-bounds-of-thing)
;; editing
'("d" . meow-kill)
'("f" . meow-change)
'("t" . meow-delete)
'("c" . meow-save)
'("v" . meow-yank)
'("V" . meow-yank-pop)
'("e" . meow-insert)
'("E" . meow-open-above)
'("r" . meow-append)
'("R" . meow-open-below)
'("h" . undo-only)
'("H" . undo-redo)
'("b" . open-line)
'("B" . split-line)
'("ü" . indent-rigidly-left-to-tab-stop)
'("+" . indent-rigidly-right-to-tab-stop)
;; ignore escape
'("<escape>" . ignore)))
(meow-setup)
(meow-global-mode 1)
(provide 'init-meow)

27
lisp/init-whitespace.el~
View file

@ -1,27 +0,0 @@
;;; init-whitespace.el --- Special handling for whitespace -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(setq-default show-trailing-whitespace t)
;;; Whitespace
(defun sanityinc/show-trailing-whitespace ()
"Enable display of trailing whitespace in this buffer."
(setq-local show-trailing-whitespace t))
(dolist (hook '(prog-mode-hook text-mode-hook conf-mode-hook))
(add-hook hook 'sanityinc/show-trailing-whitespace))
(require-package 'whitespace-cleanup-mode)
(add-hook 'after-init-hook 'global-whitespace-cleanup-mode)
(with-eval-after-load 'whitespace-cleanup-mode
(diminish 'whitespace-cleanup-mode))
(global-set-key [remap just-one-space] 'cycle-spacing)
(provide 'init-whitespace)
;;; init-whitespace.el ends here

8
tramp
View file

@ -1,8 +0,0 @@
;; -*- lisp-data -*- <24/09/06 10:38:11 ~/.emacs.d/tramp>
;; Tramp connection history. Don't change this file.
;; Run `M-x tramp-cleanup-all-connections' instead.
(((tramp-file-name "cache" nil nil nil nil nil nil)
("tramp-version" "2.8.0-pre"))
((tramp-file-name "ssh" "user" nil "host" nil nil nil) nil)
((tramp-file-name "sudo" "root" nil "hermit" nil nil nil) nil))