diff options
Diffstat (limited to 'emacs/init.el')
| -rw-r--r-- | emacs/init.el | 230 |
1 files changed, 115 insertions, 115 deletions
diff --git a/emacs/init.el b/emacs/init.el index bd11246..a39fbae 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -66,7 +66,7 @@ (smerge-mode 1) (add-hook 'before-save-hook (lambda () - (unless (elm major-mode my/prog-cleanup-excluded-modes) + (unless (member major-mode my/prog-cleanup-excluded-modes) (my/clean-prog-file))))) (defun my/wrap-region-paren () @@ -175,11 +175,11 @@ Useful in combination with `query-replace' for acting on the region." given keymap or in the global keymap." (unless keymap (setq keymap global-map)) (mapc (lambda (n) - (let* ((from (concat "C-x " (format "%d" n))) - (to (concat "M-" (format "%d" n))) - (bind (keymap-lookup keymap from))) - (keymap-set keymap to bind))) - '(0 1 2 3 4 5 6 7 8 9))) + (let* ((from (concat "C-x " (format "%d" n))) + (to (concat "M-" (format "%d" n))) + (bind (keymap-lookup keymap from))) + (keymap-set keymap to bind))) + '(0 1 2 3 4 5 6 7 8 9))) (my/c-x-n-to-m-n) (defun my/eshell (&optional arg) @@ -198,7 +198,7 @@ With ARG, open a Dired buffer instead." (interactive "P") (let ((dir (project-root(project-current t)))) (if arg - (dired dir) + (dired dir) (vc-dir dir)))) (defun my/kill-buffer (&optional arg) @@ -211,15 +211,15 @@ With ARG kill the window as well." (defvar my/layout-pair (cons nil nil) "Cons pair of window configurations.") (add-hook 'after-init-hook - (lambda () - (setq my/layout-pair (cons (current-window-configuration) - (current-window-configuration))))) + (lambda () + (setq my/layout-pair (cons (current-window-configuration) + (current-window-configuration))))) (defun my/layout-swap (&optional arg) "Swap between the two saved configurations. With ARG, don't save the current layout." (interactive "P") (let ((left (car my/layout-pair)) - (right (cdr my/layout-pair))) + (right (cdr my/layout-pair))) (unless arg (setq left (current-window-configuration))) (set-window-configuration right t t) @@ -263,12 +263,12 @@ current layout." (lambda (buffer) (let ((w (frame-width))) (list - :height (buffer-local-value 'vertico-posframe-height buffer) - :min-height (or (buffer-local-value 'vertico-posframe-min-height buffer) - (let ((height (+ vertico-count 1))) - (min height (or (buffer-local-value 'vertico-posframe-height buffer) height)))) - :width w - :min-width w)))) + :height (buffer-local-value 'vertico-posframe-height buffer) + :min-height (or (buffer-local-value 'vertico-posframe-min-height buffer) + (let ((height (+ vertico-count 1))) + (min height (or (buffer-local-value 'vertico-posframe-height buffer) height)))) + :width w + :min-width w)))) :config (vertico-posframe-mode 1)) @@ -709,11 +709,11 @@ current layout." (defun yank-indent-func (&optional arg) (let* ((parents (derived-mode-all-parents major-mode)) - (helper (lambda (acc v) (or acc (member v yank-indent-modes)))) - (included (-reduce helper parents))) - (when (and (not arg) included) - (indent-region (region-beginning) (region-end))))) - + (helper (lambda (acc v) (or acc (member v yank-indent-modes)))) + (included (-reduce helper parents))) + (when (and (not arg) included) + (indent-region (region-beginning) (region-end))))) + (advice-add 'yank :after 'yank-indent-func) (advice-add 'yank-pop :after 'yank-indent-func)) @@ -737,7 +737,7 @@ current layout." (require 'iimage) (setq inhibit-startup-screen t) (setq initial-scratch-message - (concat (propertize ";; " 'invisible t) + (concat (propertize ";; " 'invisible t) "</home/tmu/.emacs.d/splashLaputa.png> ;; scratch for lisp evaluation and unsaved text @@ -836,11 +836,11 @@ current layout." (define-key viper-insert-global-user-map (kbd "C-u") 'universal-argument) (define-key viper-insert-global-user-map (kbd "C-d") 'delete-char) (define-key viper-insert-global-user-map (kbd "C-m") - #'(lambda () - (interactive) - (if completion-in-region-mode - (corfu-insert) - (viper-autoindent))))) + #'(lambda () + (interactive) + (if completion-in-region-mode + (corfu-insert) + (viper-autoindent))))) ;; if you want exwm, include from ~/.emacs.d/site-lisp/my-exwm.el ;; if you want mail, include from ~/.emacs.d/site-lisp/my-mail.el @@ -871,10 +871,10 @@ current layout." '(comment-style 'extra-line) '(connection-local-criteria-alist '(((:application eshell :protocol "ssh" :user "tmu" :machine - "cnoserver") + "cnoserver") autogenerated-connection-local-profile/\(:application\ eshell\ :protocol\ \"ssh\"\ :user\ \"tmu\"\ :machine\ \"cnoserver\"\)) ((:application vc-git :protocol "ssh" :user "tmu" :machine - "cnoserver") + "cnoserver") autogenerated-connection-local-profile/\(:application\ vc-git\ :protocol\ \"ssh\"\ :user\ \"tmu\"\ :machine\ \"cnoserver\"\)) ((:application vc-git) vc-git-connection-default-profile) ((:application tramp :protocol "kubernetes") @@ -889,102 +889,102 @@ current layout." '(connection-local-profile-alist '((autogenerated-connection-local-profile/\(:application\ eshell\ :protocol\ \"ssh\"\ :user\ \"tmu\"\ :machine\ \"cnoserver\"\) (eshell-path-env-list "/bin" "/usr/bin" "/sbin" "/usr/sbin" - "/usr/local/bin" "/usr/local/sbin")) + "/usr/local/bin" "/usr/local/sbin")) (autogenerated-connection-local-profile/\(:application\ vc-git\ :protocol\ \"ssh\"\ :user\ \"tmu\"\ :machine\ \"cnoserver\"\) (vc-git--program-version . "2.48.1")) (vc-git-connection-default-profile (vc-git--program-version)) (tramp-flatpak-connection-local-default-profile (tramp-remote-path "/app/bin" tramp-default-remote-path "/bin" - "/usr/bin" "/sbin" "/usr/sbin" - "/usr/local/bin" "/usr/local/sbin" - "/local/bin" "/local/freeware/bin" - "/local/gnu/bin" "/usr/freeware/bin" - "/usr/pkg/bin" "/usr/contrib/bin" "/opt/bin" - "/opt/sbin" "/opt/local/bin")) + "/usr/bin" "/sbin" "/usr/sbin" + "/usr/local/bin" "/usr/local/sbin" + "/local/bin" "/local/freeware/bin" + "/local/gnu/bin" "/usr/freeware/bin" + "/usr/pkg/bin" "/usr/contrib/bin" "/opt/bin" + "/opt/sbin" "/opt/local/bin")) (tramp-kubernetes-connection-local-default-profile (tramp-config-check . tramp-kubernetes--current-context-data) (tramp-extra-expand-args 97 - (tramp-kubernetes--container - (car tramp-current-connection)) - 104 - (tramp-kubernetes--pod - (car tramp-current-connection)) - 120 - (tramp-kubernetes--context-namespace - (car tramp-current-connection)))) + (tramp-kubernetes--container + (car tramp-current-connection)) + 104 + (tramp-kubernetes--pod + (car tramp-current-connection)) + 120 + (tramp-kubernetes--context-namespace + (car tramp-current-connection)))) (tramp-container-connection-local-default-flatpak-profile (tramp-remote-path "/app/bin" tramp-default-remote-path "/bin" - "/usr/bin" "/sbin" "/usr/sbin" - "/usr/local/bin" "/usr/local/sbin" - "/local/bin" "/local/freeware/bin" - "/local/gnu/bin" "/usr/freeware/bin" - "/usr/pkg/bin" "/usr/contrib/bin" "/opt/bin" - "/opt/sbin" "/opt/local/bin")) + "/usr/bin" "/sbin" "/usr/sbin" + "/usr/local/bin" "/usr/local/sbin" + "/local/bin" "/local/freeware/bin" + "/local/gnu/bin" "/usr/freeware/bin" + "/usr/pkg/bin" "/usr/contrib/bin" "/opt/bin" + "/opt/sbin" "/opt/local/bin")) (tramp-connection-local-darwin-ps-profile (tramp-process-attributes-ps-args "-acxww" "-o" - "pid,uid,user,gid,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" - "-o" "state=abcde" "-o" - "ppid,pgid,sess,tty,tpgid,minflt,majflt,time,pri,nice,vsz,rss,etime,pcpu,pmem,args") + "pid,uid,user,gid,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" + "-o" "state=abcde" "-o" + "ppid,pgid,sess,tty,tpgid,minflt,majflt,time,pri,nice,vsz,rss,etime,pcpu,pmem,args") (tramp-process-attributes-ps-format (pid . number) - (euid . number) - (user . string) - (egid . number) (comm . 52) - (state . 5) (ppid . number) - (pgrp . number) - (sess . number) - (ttname . string) - (tpgid . number) - (minflt . number) - (majflt . number) - (time . tramp-ps-time) - (pri . number) - (nice . number) - (vsize . number) - (rss . number) - (etime . tramp-ps-time) - (pcpu . number) - (pmem . number) (args))) + (euid . number) + (user . string) + (egid . number) (comm . 52) + (state . 5) (ppid . number) + (pgrp . number) + (sess . number) + (ttname . string) + (tpgid . number) + (minflt . number) + (majflt . number) + (time . tramp-ps-time) + (pri . number) + (nice . number) + (vsize . number) + (rss . number) + (etime . tramp-ps-time) + (pcpu . number) + (pmem . number) (args))) (tramp-connection-local-busybox-ps-profile (tramp-process-attributes-ps-args "-o" - "pid,user,group,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" - "-o" "stat=abcde" "-o" - "ppid,pgid,tty,time,nice,etime,args") + "pid,user,group,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" + "-o" "stat=abcde" "-o" + "ppid,pgid,tty,time,nice,etime,args") (tramp-process-attributes-ps-format (pid . number) - (user . string) - (group . string) (comm . 52) - (state . 5) (ppid . number) - (pgrp . number) - (ttname . string) - (time . tramp-ps-time) - (nice . number) - (etime . tramp-ps-time) - (args))) + (user . string) + (group . string) (comm . 52) + (state . 5) (ppid . number) + (pgrp . number) + (ttname . string) + (time . tramp-ps-time) + (nice . number) + (etime . tramp-ps-time) + (args))) (tramp-connection-local-bsd-ps-profile (tramp-process-attributes-ps-args "-acxww" "-o" - "pid,euid,user,egid,egroup,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" - "-o" - "state,ppid,pgid,sid,tty,tpgid,minflt,majflt,time,pri,nice,vsz,rss,etimes,pcpu,pmem,args") + "pid,euid,user,egid,egroup,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" + "-o" + "state,ppid,pgid,sid,tty,tpgid,minflt,majflt,time,pri,nice,vsz,rss,etimes,pcpu,pmem,args") (tramp-process-attributes-ps-format (pid . number) - (euid . number) - (user . string) - (egid . number) - (group . string) (comm . 52) - (state . string) - (ppid . number) - (pgrp . number) - (sess . number) - (ttname . string) - (tpgid . number) - (minflt . number) - (majflt . number) - (time . tramp-ps-time) - (pri . number) - (nice . number) - (vsize . number) - (rss . number) - (etime . number) - (pcpu . number) - (pmem . number) (args))) + (euid . number) + (user . string) + (egid . number) + (group . string) (comm . 52) + (state . string) + (ppid . number) + (pgrp . number) + (sess . number) + (ttname . string) + (tpgid . number) + (minflt . number) + (majflt . number) + (time . tramp-ps-time) + (pri . number) + (nice . number) + (vsize . number) + (rss . number) + (etime . number) + (pcpu . number) + (pmem . number) (args))) (tramp-connection-local-default-shell-profile (shell-file-name . "/bin/sh") (shell-command-switch . "-c")) (tramp-connection-local-default-system-profile @@ -1013,13 +1013,13 @@ current layout." '(menu-bar-mode nil) '(package-selected-packages '(avy balanced-windows bash-completion benchmark-init cape - corfu-terminal eat ednc eglot eglot-tempel embark-consult - esh-help exwm-modeline fold-this free-keys haskell-mode - hl-todo ibuffer-vc marginalia merlin minions ocp-indent - opam-switch-mode orderless pass pinentry posframe pyvenv - racket-mode rustic sdcv shelldon sideline-flycheck - sideline-flymake tempel-collection tuareg vertico - vertico-posframe visible-mark vterm winum)) + corfu-terminal eat ednc eglot eglot-tempel embark-consult + esh-help exwm-modeline fold-this free-keys haskell-mode + hl-todo ibuffer-vc marginalia merlin minions ocp-indent + opam-switch-mode orderless pass pinentry posframe pyvenv + racket-mode rustic sdcv shelldon sideline-flycheck + sideline-flymake tempel-collection tuareg vertico + vertico-posframe visible-mark vterm winum)) '(pyim-assistant-scheme 'cangjie) '(safe-local-variable-values '((LEXICAL-binding . t))) '(scroll-bar-mode nil) @@ -1028,7 +1028,7 @@ current layout." '(transient-mark-mode nil) '(whitespace-style '(face trailing tabs lines-tail missing-newline-at-eof indentation - space-after-tab space-before-tab tab-mark) t)) + space-after-tab space-before-tab tab-mark) t)) (custom-set-faces ;; custom-set-faces was added by Custom. |