diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-07-05 16:28:03 +0100 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-07-05 16:28:03 +0100 |
| commit | 68ef739be9812586348f617396427658c31f58a8 (patch) | |
| tree | 4f78880db69a98aaf828d0604aa6d53b64096cbf /Emacs/.config | |
| parent | f1020a94de6151b289a2969c373b6e2b65ad1bdd (diff) | |
| download | dotfiles-68ef739be9812586348f617396427658c31f58a8.tar.gz dotfiles-68ef739be9812586348f617396427658c31f58a8.tar.bz2 dotfiles-68ef739be9812586348f617396427658c31f58a8.zip | |
(Emacs/config)~Write better code using system-name-cond
Diffstat (limited to 'Emacs/.config')
| -rw-r--r-- | Emacs/.config/emacs/config.org | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org index b0cea33..f931e64 100644 --- a/Emacs/.config/emacs/config.org +++ b/Emacs/.config/emacs/config.org @@ -128,7 +128,7 @@ simple enough. Note the check for the symbol ~otherwise~ which acts as the default case. #+begin_src emacs-lisp -(defmacro +oreo/sys-name-cond (&rest pairs) +(defmacro system-name-cond (&rest pairs) "Switch case on result of function `system-name'. Each pair in PAIRS is typed as: (string . (forms...)) where the @@ -156,11 +156,11 @@ use: #+begin_src emacs-lisp (use-package comp :init - (+oreo/sys-name-cond - ("newboy" - (setq native-comp-async-jobs-number 3)) - ("oldboy" - (setq native-comp-async-jobs-number 6)))) + (setq native-comp-async-jobs-number + (system-name-cond + ("newboy" 3) + ("oldboy" 6) + (otherwise 3)))) #+end_src ** Clean buffer list Clean all buffers except for those in ~+oreo/keep-buffers~. @@ -285,9 +285,10 @@ Make font size bigger on my laptop and smaller on my desktop. (use-package faces :defer t :config - (+oreo/sys-name-cond - ("newboy" (set-face-attribute 'default nil :height 145)) - ("oldboy" (set-face-attribute 'default nil :height 135)))) + (set-face-attribute 'default nil :height + (system-name-cond + ("newboy" 145) + ("oldboy" 135)))) #+end_src ** Startup screen The default startup screen is quite bad in all honesty. While for a |