From 4172f26649626c0357fd0605c1e0335fbac342ab Mon Sep 17 00:00:00 2001 From: TCCQ Date: Sun, 13 Jul 2025 11:52:44 -0700 Subject: tempel, exwm, yank-indent, and more --- emacs/init.el | 467 +++++++++++++++++++++++++++++----------------------------- 1 file changed, 234 insertions(+), 233 deletions(-) diff --git a/emacs/init.el b/emacs/init.el index 156e479..dc8372c 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -27,6 +27,28 @@ (set-frame-parameter nil 'alpha-background 100) (set-frame-parameter nil 'alpha-background alpha-transparency)))) +(defun my/clean-prog-file (&optional buffer) + "Fixes whitespace etc in BUFFER or current buffer." + (unless buffer (setq buffer (current-buffer))) + (with-current-buffer buffer + (indent-region (point-min) (point-max)) + (untabify (point-min) (point-max)) + (delete-trailing-whitespace))) + +(defvar my/prog-cleanup-excluded-modes + '(makefile-gmake-mode makefile-mode makefile-imake-mode + makefile-makepp-mode makefile-bsdmake-mode makefile-automake-mode)) + +(defun my/prog-buffer-setup () + "Do setup in for mode buffers." + (superword-mode 1) + (modify-syntax-entry ?_ "w") + (display-fill-column-indicator-mode 1) + (add-hook 'before-save-hook + (lambda () + (unless (elm major-mode my/prog-cleanup-excluded-modes) + (my/clean-prog-file))))) + (defun my/wrap-region-paren () "Wraps the region in parens. Similar to pressing ( with the region active." (interactive) @@ -76,15 +98,6 @@ mark. Does the same of ARG number sexps if given" (current (window-parameter win 'no-other-window))) (set-window-parameter win 'no-other-window (not current)))) -(defun my/clean-prog-file (buffer) - "Fixes whitespace in buffer." - (save-excursion - (with-current-buffer buffer - (untabify (point-min) (point-max)) - (goto-char (point-min)) - (while (re-search-forward " +$" nil t) - (replace-match "" nil nil))))) - (defun my/open-window-by-buffer (buffer) "Move focus to an extant window by the buffer it contains." (interactive "bBuffer: ") @@ -208,67 +221,53 @@ given keymap or in the global keymap." (use-package corfu-terminal ; make corfu work on terminals :demand t :custom - (corfu-terminal-disable-on-gui nil) + (corfu-terminal-disable-on-gui t) :config (corfu-terminal-mode 1)) +;; TODO debug / test +(use-package tempel + :demand t + :custom + (tempel-path "~/.emacs.d/templates/*.eld") + ;; (tempel-trigger-prefix "<") + + :bind (("M-+" . tempel-complete)) + + ;; Optionally make the Tempel templates available to Abbrev, + ;; either locally or globally. `expand-abbrev' is bound to C-x '. + ;; (add-hook 'prog-mode-hook #'tempel-abbrev-mode) + ;; (global-tempel-abbrev-mode) + ) + +(use-package dabbrev ; dynamic abbreviations + :demand t + :config + (add-to-list 'dabbrev-ignored-buffer-modes 'exwm-mode) + (add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode) + (add-to-list 'dabbrev-ignored-buffer-modes 'tags-table-mode) + (add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode)) + (use-package cape ; extend completion frameworks :demand t :bind ("C-c p" . cape-prefix-map) :config (advice-add 'pcomplete-completions-at-point :around 'cape-wrap-silent) (advice-add 'pcomplete-completions-at-point :around 'cape-wrap-purify) - (setq-default completion-at-point-functions - (apply 'cape-wrap-super - (append - '(tags-completion-at-point-function cape-dabbrev cape-dict) - completion-at-point-functions)))) - -(use-package dabbrev ; dynamic abbreviations - :demand t - :config - (add-to-list 'dabbrev-ignored-buffer-regexps "\\` ") - ;; (add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode) - ;; (add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode) - ;; (add-to-list 'dabbrev-ignored-buffer-modes 'tags-table-mode) + :custom + (completion-at-point-functions (list (cape-capf-super 'cape-dict 'tempel-complete))) + ;; :hook + ;; (after-change-major-mode . (lambda () + ;; (setq-local completion-at-point-functions + ;; (apply 'cape-wrap-super + ;; (append + ;; '(tempel-complete tags-completion-at-point-function cape-dabbrev cape-dict) + ;; completion-at-point-functions))))) ) -;; TODO debug / test -;; (use-package tempel -;; :after (cape) -;; :custom -;; (tempel-path "~/.emacs.d/templates/*.eld") -;; ;; (tempel-trigger-prefix "<") - -;; :bind (("M-+" . tempel-complete) ;; Alternative tempel-expand -;; ("M-*" . tempel-insert)) - -;; :config -;; ;; Setup completion at point -;; (defun tempel-setup-capf () -;; ;; Add the Tempel Capf to `completion-at-point-functions'. -;; ;; `tempel-expand' only triggers on exact matches. Alternatively use -;; ;; `tempel-complete' if you want to see all matches, but then you -;; ;; should also configure `tempel-trigger-prefix', such that Tempel -;; ;; does not trigger too often when you don't expect it. NOTE: We add -;; ;; `tempel-expand' *before* the main programming mode Capf, such -;; ;; that it will be tried first. -;; (setq-local completion-at-point-functions -;; (cons #'tempel-expand -;; completion-at-point-functions))) - -;; (add-hook 'conf-mode-hook 'tempel-setup-capf) -;; (add-hook 'prog-mode-hook 'tempel-setup-capf) -;; (add-hook 'text-mode-hook 'tempel-setup-capf) - -;; ;; Optionally make the Tempel templates available to Abbrev, -;; ;; either locally or globally. `expand-abbrev' is bound to C-x '. -;; ;; (add-hook 'prog-mode-hook #'tempel-abbrev-mode) -;; ;; (global-tempel-abbrev-mode) -;; ) - -;; (use-package tempel-collection -;; :after tempel) +(use-package tempel-collection + :after tempel + :demand t) (progn ; dired directory editor (require 'dired) @@ -467,17 +466,17 @@ given keymap or in the global keymap." :hook (asm-mode . 'add-asm-label-tag-generation-hook)) -(use-package lsp-mode - :commands (lsp) - :init - (use-package lsp-haskell) - :custom - (lsp-completion-provider :none) - :config - (defun corfu-lsp-setup () - (setq-local completion-styles '(orderless) - completion-category-defaults nil)) - (add-hook 'lsp-completion-mode-hook #'corfu-lsp-setup)) +;; (use-package lsp-mode +;; :commands (lsp) +;; :init +;; (use-package lsp-haskell) +;; :custom +;; (lsp-completion-provider :none) +;; :config +;; (defun corfu-lsp-setup () +;; (setq-local completion-styles '(orderless) +;; completion-category-defaults nil)) +;; (add-hook 'lsp-completion-mode-hook #'corfu-lsp-setup)) (use-package pyvenv) @@ -530,7 +529,7 @@ given keymap or in the global keymap." (use-package fold-this ; fold arbitrary region :init - (defun fold-this-fold-forward (&optional arg) + (defun my/fold-this-fold-forward (&optional arg) "Fold forward ARG number of sexps, defaulting to one." (interactive "p") (push-mark) @@ -538,7 +537,7 @@ given keymap or in the global keymap." (fold-this (mark) (point)) (pop-mark)) - (defun fold-this-fold-backward (&optional arg) + (defun my/fold-this-fold-backward (&optional arg) "Fold backward ARG number of sexps, defaulting to one." (interactive "p") (push-mark) @@ -547,26 +546,24 @@ given keymap or in the global keymap." (pop-mark)) :bind (:map my/fold-map - ("C-c" . fold-this) - ("C-e" . fold-this-unfold-at-point) - ("f" . fold-this-fold-forward) - ("b" . fold-this-fold-backward))) + ("c" . fold-this) + ("e" . fold-this-unfold-at-point) + ("f" . my/fold-this-fold-forward) + ("b" . my/fold-this-fold-backward))) (progn ; hs (keymap-set my/fold-map (kbd "t") 'hs-toggle-hiding) (keymap-set my/fold-map (kbd "l") 'hs-hide-level)) -(add-hook 'prog-mode-hook (lambda () - (superword-mode 1) - (modify-syntax-entry ?_ "w") - - (display-fill-column-indicator-mode 1) - (add-hook 'before-save-hook - (lambda () - (if (not (eq major-mode 'makefile-gmake-mode)) - (my/clean-prog-file (current-buffer))))))) +(add-hook 'prog-mode-hook 'my/prog-buffer-setup) -(use-package eglot :demand t) +(use-package eglot + :demand t + ) +(use-package eglot-tempel + :demand t + :config + (eglot-tempel-mode 1)) (use-package haskell-mode :custom (haskell-tags-on-save t) @@ -587,7 +584,6 @@ given keymap or in the global keymap." (use-package rustic :custom (rustic-lsp-setup-p nil)) - (use-package compile :custom (compilation-always-kill t) @@ -730,6 +726,12 @@ changes." (switch-to-prev-buffer) (eshell arg))) + (defun my/brightnessdown () (interactive) (start-process "" nil "brightnessdown")) + (defun my/brightnessup () (interactive) (start-process "" nil "brightnessup")) + (defun my/mute () (interactive) (start-process "" nil "pactl" "set-sink-mute" "@DEFAULT_SINK@" "toggle")) + (defun my/voldown () (interactive) (start-process "" nil "pactl" "set-sink-volume" "@DEFAULT_SINK@" "-5%")) + (defun my/volup () (interactive) (start-process "" nil "pactl" "set-sink-volume" "@DEFAULT_SINK@" "+5%")) + (exwm-randr-mode) (exwm-systemtray-mode) (push ?\C-\\ exwm-input-prefix-keys) ;;C-\ to switch input method @@ -762,13 +764,20 @@ changes." ([?\M-D] . my/dmenu) ([?\M-E] . my/browser) ([M-return] . my/eshell) + ([?\M-K] . kill-current-buffer) ,@(mapcar (lambda (n) (let* ((from (concat "C-x " (format "%d" n))) (to (concat "M-" (format "%d" n))) (bind (keymap-lookup global-map from))) (cons (kbd to) bind))) - (number-sequence 0 9)))) + (number-sequence 0 9)) + + ([XF86MonBrightnessDown] . my/brightnessdown) + ([XF86MonBrightnessUp] . my/brightnessup) + ([XF86AudioMute] . my/mute) + ([XF86AudioLowerVolume] . my/voldown) + ([XF86AudioRaiseVolume] . my/volup))) (exwm-input-simulation-keys '(;; movement ([?\C-b] . [left]) @@ -792,26 +801,6 @@ changes." ("C-q" . 'exwm-input-send-next-key) ("M-!" . 'shell-command))) -(progn ; media/function keys - ;; requires some custom shell scripts not included in my emacs config - (defun my/brightnessdown () (interactive) (start-process "" nil "brightnessdown")) - (defun my/brightnessup () (interactive) (start-process "" nil "brightnessup")) - (defun my/mute () (interactive) (start-process "" nil "pactl" "set-sink-mute" "@DEFAULT_SINK@" "toggle")) - (defun my/voldown () (interactive) (start-process "" nil "pactl" "set-sink-volume" "@DEFAULT_SINK@" "-5%")) - (defun my/volup () (interactive) (start-process "" nil "pactl" "set-sink-volume" "@DEFAULT_SINK@" "+5%")) - - (global-set-key (kbd "") 'my/brightnessdown) - (global-set-key (kbd "") 'my/brightnessup) - (global-set-key (kbd "") 'my/mute) - (global-set-key (kbd "") 'my/voldown) - (global-set-key (kbd "") 'my/volup) - - (define-key exwm-mode-map (kbd "") 'my/brightnessdown) - (define-key exwm-mode-map (kbd "") 'my/brightnessup) - (define-key exwm-mode-map (kbd "") 'my/mute) - (define-key exwm-mode-map (kbd "") 'my/voldown) - (define-key exwm-mode-map (kbd "") 'my/volup)) - (use-package sdcv ; dictionary, requires sdcv install :demand t :config @@ -854,39 +843,17 @@ changes." (erc-track-faces-priority-list '(erc-current-nick-face erc-keyword-face)) (erc-track-priority-faces-only 'all)) -(progn ; indent code when pasting, from - ;; https://trey-jackson.blogspot.com/2008/03/emacs-tip-15-indent-yanked-code.html - ;; automatically indenting yanked text if in programming-modes - (defvar yank-indent-modes '(emacs-lisp-mode - c-mode c++-mode - tcl-mode sql-mode - perl-mode cperl-mode - java-mode jde-mode - lisp-interaction-mode - LaTeX-mode TeX-mode - rust-mode - rustic-mode - tuareg-mode) +(progn ; indent code when pasting + (defvar yank-indent-modes (mapcan 'derived-mode-all-parents + '(prog-mode LaTeX-mode TeX-mode)) "Modes in which to indent regions that are yanked (or yank-popped).") - (defun yank-advised-indent-function (beg end) - "Do indentation, as long as the region isn't too large. -BEG and END define the region." - (indent-region beg end nil)) - - (defadvice yank (after yank-indent activate) - "If current mode is one of 'yank-indent-modes, indent yanked text (with prefix arg don't indent)." - (if (and (not (ad-get-arg 0)) - (member major-mode yank-indent-modes)) - (let ((transient-mark-mode nil)) - (yank-advised-indent-function (region-beginning) (region-end))))) - - (defadvice yank-pop (after yank-pop-indent activate) - "If current mode is one of 'yank-indent-modes, indent yanked text (with prefix arg don't indent)." - (if (and (not (ad-get-arg 0)) - (member major-mode yank-indent-modes)) - (let ((transient-mark-mode nil)) - (yank-advised-indent-function (region-beginning) (region-end)))))) + (defun yank-indent-func (&optional arg) + (when (and (not arg) (member major-mode yank-indent-modes)) + (indent-region (region-beginning) (region-end)))) + + (advice-add 'yank :after 'yank-indent-func) + (advice-add 'yank-pop :after 'yank-indent-func)) (use-package minions :demand t @@ -1018,127 +985,160 @@ BEG and END define the region." ;; If there is more than one, they won't work right. '(comment-style 'extra-line) '(connection-local-criteria-alist - '(((:application eshell :protocol "ssh" :user "tmu" :machine "cnoserver") + '(((:application eshell :protocol "ssh" :user "tmu" :machine + "cnoserver") autogenerated-connection-local-profile/\(:application\ eshell\ :protocol\ \"ssh\"\ :user\ \"tmu\"\ :machine\ \"cnoserver\"\)) - ((:application vc-git :protocol "ssh" :user "tmu" :machine "cnoserver") + ((:application vc-git :protocol "ssh" :user "tmu" :machine + "cnoserver") autogenerated-connection-local-profile/\(:application\ vc-git\ :protocol\ \"ssh\"\ :user\ \"tmu\"\ :machine\ \"cnoserver\"\)) - ((:application vc-git) - vc-git-connection-default-profile) + ((:application vc-git) vc-git-connection-default-profile) ((:application tramp :protocol "kubernetes") tramp-kubernetes-connection-local-default-profile) ((:application tramp :protocol "flatpak") - tramp-container-connection-local-default-flatpak-profile tramp-flatpak-connection-local-default-profile) + tramp-container-connection-local-default-flatpak-profile + tramp-flatpak-connection-local-default-profile) ((:application tramp) - tramp-connection-local-default-system-profile tramp-connection-local-default-shell-profile) - ((:application eshell) - eshell-connection-default-profile)) t) + tramp-connection-local-default-system-profile + tramp-connection-local-default-shell-profile) + ((:application eshell) eshell-connection-default-profile))) '(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")) + (eshell-path-env-list "/bin" "/usr/bin" "/sbin" "/usr/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)) + (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")) + (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")) (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")) + (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")) (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") - (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))) + (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") + (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))) (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") - (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))) + (tramp-process-attributes-ps-args "-o" + "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))) (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") - (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))) + (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") + (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))) (tramp-connection-local-default-shell-profile - (shell-file-name . "/bin/sh") - (shell-command-switch . "-c")) + (shell-file-name . "/bin/sh") (shell-command-switch . "-c")) (tramp-connection-local-default-system-profile - (path-separator . ":") - (null-device . "/dev/null")) - (eshell-connection-default-profile - (eshell-path-env-list))) t) + (path-separator . ":") (null-device . "/dev/null")) + (eshell-connection-default-profile (eshell-path-env-list)))) '(custom-safe-themes - '("aee99e2118e960b53016623dc2345d88227d1236d28c6c34858e1d55575cf7c3" "6f5e3fd2b4245ffe660da69ea5c13ab392337e94776dfb23cc1d8d0f80e3baa2" "1b8c2fd98bf6777d8b95f8cf98fdaede88feee3419ec3e5008f94b56618ac6ca" "0cc5046b7981609166c28b64f6185fa5f73bcb00d21e037f304794c6aaa1f340" "9f2e4e8b2ddbfdd392eedbc123649d94654278dee5a53b899557224416413d35" "6dafb31ade9ff07229faaf05c41c2ae475c44731362b792f65f3930b1a2c9cfd" "dc77e008092a5a4aa6b6ed8e4826bebf8f2fb930a8de073bf7f458efd884cca8" "d1ff3e66028f9c527298580d2a64f9e3280f07f9e94d4dada72b67ef15069441" "3d4e3644e237a95683daa73e397c4c0d1ae06bbaaf8040104232591a28bc1315" "12a07bc38295e4b06a8965db261f51ea7ea61fbf91b3ef41298bbb549d1d9403" default)) + '("aee99e2118e960b53016623dc2345d88227d1236d28c6c34858e1d55575cf7c3" + "6f5e3fd2b4245ffe660da69ea5c13ab392337e94776dfb23cc1d8d0f80e3baa2" + "1b8c2fd98bf6777d8b95f8cf98fdaede88feee3419ec3e5008f94b56618ac6ca" + "0cc5046b7981609166c28b64f6185fa5f73bcb00d21e037f304794c6aaa1f340" + "9f2e4e8b2ddbfdd392eedbc123649d94654278dee5a53b899557224416413d35" + "6dafb31ade9ff07229faaf05c41c2ae475c44731362b792f65f3930b1a2c9cfd" + "dc77e008092a5a4aa6b6ed8e4826bebf8f2fb930a8de073bf7f458efd884cca8" + "d1ff3e66028f9c527298580d2a64f9e3280f07f9e94d4dada72b67ef15069441" + "3d4e3644e237a95683daa73e397c4c0d1ae06bbaaf8040104232591a28bc1315" + "12a07bc38295e4b06a8965db261f51ea7ea61fbf91b3ef41298bbb549d1d9403" + default)) '(ede-project-directories - '("/home/tmu/Desktop/eway/sway" "/home/tmu/Desktop/eway/cage" "/home/tmu/Desktop/eway/wlroots" "/home/tmu/Desktop/eway/comp" "/home/tmu/Desktop/eway")) + '("/home/tmu/Desktop/eway/sway" "/home/tmu/Desktop/eway/cage" + "/home/tmu/Desktop/eway/wlroots" "/home/tmu/Desktop/eway/comp" + "/home/tmu/Desktop/eway")) '(eglot-events-buffer-config '(:size 0 :format full)) '(fortune-dir "/usr/share/fortune/") '(gdb-non-stop-setting nil) '(helm-minibuffer-history-key "M-p") '(menu-bar-mode nil) '(package-selected-packages - '(balanced-windows bash-completion benchmark-init cape consult corfu-terminal counsel-embark eat ednc embark embark-consult embark-counsel esh-help evil-collection evil-easymotion evil-snipe evil-surround exwm-modeline fold-this free-keys haskell-mode hl-todo ibuffer-vc lsp-haskell magit marginalia minions ocp-indent orderless pass pyvenv racket-mode rustic sdcv shelldon sideline-flycheck sideline-flymake sideline-lsp treemacs-evil vertico visible-mark vterm winum)) + '(balanced-windows bash-completion benchmark-init cape consult + corfu-terminal counsel-embark eat ednc + eglot-tempel embark embark-consult + embark-counsel esh-help evil-collection + evil-easymotion evil-snipe evil-surround + exwm-modeline fold-this free-keys haskell-mode + hl-todo ibuffer-vc lsp-haskell magit marginalia + minions ocp-indent orderless pass pyvenv + racket-mode rustic sdcv shelldon + sideline-flycheck sideline-flymake sideline-lsp + tempel tempel-collection treemacs-evil vertico + visible-mark vterm winum)) '(pyim-assistant-scheme 'cangjie) '(safe-local-variable-values '((LEXICAL-binding . t))) '(scroll-bar-mode nil) @@ -1146,7 +1146,8 @@ BEG and END define the region." '(tool-bar-mode nil) '(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)) + '(face trailing tabs lines-tail missing-newline-at-eof indentation + space-after-tab space-before-tab tab-mark) t)) (custom-set-faces ;; custom-set-faces was added by Custom. -- cgit v1.2.3