diff options
| author | fpi | 2021-01-02 15:22:27 +0100 |
|---|---|---|
| committer | fpi | 2022-03-17 14:37:55 +0100 |
| commit | 51ed178f7993ca3042f2fabbb4c999d9db8fa976 (patch) | |
| tree | adef11a42b97477e513d445a809597bff6ef3f04 | |
| parent | Add clock capture which clocks into any heading (diff) | |
Add basic support for custom device configurations
Each device config is stored in the form
("hostname"
(:type desktop
:wm awesome
:key value))
| -rw-r--r-- | emacs-init.org | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/emacs-init.org b/emacs-init.org index 407625e..844abb0 100644 --- a/emacs-init.org +++ b/emacs-init.org @@ -6,6 +6,9 @@ - [[#base-settings][Base settings]] - [[#meta-packages][Meta packages]] - [[#gui-interface][GUI Interface]] + - [[#devices][Devices]] + - [[#server][Server]] + - [[#exwm][Exwm]] - [[#font][Font]] - [[#theme--faces][Theme & Faces]] - [[#user-info][User info]] @@ -362,6 +365,51 @@ it calls ~force-mode-line-update~. (help-mode . hide-mode-line-mode)) (global-set-key (kbd "C-c m") 'hide-mode-line-mode) #+end_src +** Devices +To support different settings on different devices storing some device information seems useful. +#+begin_src emacs-lisp +(setq fpi/current-device (system-name)) +(setq fpi/devices + '(("pan" + (:type desktop + :wm exwm)) + ("xcarb" + (:type mobile)) + )) +(defun fpi/device-info (device prop) + "Return property PROP of DEVICE as stored in `fpi/devices'." + (let ((info (cadr (assoc device fpi/devices)))) + (plist-get info prop))) +(defun fpi/current-device-info (prop) + "Return property PROP of current device." + (let ((info (cadr (assoc fpi/current-device fpi/devices)))) + (plist-get info prop))) +#+end_src +Now we can easily extract info on the current device. +#+begin_src emacs-lisp :tangle no :exports both :results replace +(fpi/device-info "pan" :type) +#+end_src + +#+RESULTS: +: desktop + +** Server +#+begin_src emacs-lisp :tangle no +(use-package server + :config + (unless (server-running-p) (server-start))) +#+end_src +** Exwm +The previous sections cover all basic settings which may be useful when loading =exwm=. +My =exwm= configurations are in [[file:init-exwm.org][init-exwm.org]] and we can load the tangled version here. In the future I may convert it into a standalone package. +#+begin_src emacs-lisp +(when (eq (fpi/current-device-info :wm) 'exwm) + (load (concat user-emacs-directory "init-exwm.el")) +#+end_src +Also enable =exwm=. This does nothing if =emacs= is not started +#+begin_src emacs-lisp + (exwm-enable)) +#+end_src ** Font I am still not quite sure on my choice of font. |