phundrak/config.phundrak.com
1
0
Fork 0
Code Issues Pull Requests Actions Activity

docs(stumpwm utilities): fix org file export

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2024-02-21 04:39:31 +01:00
parent 134154422b
commit 48fb243c69
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
docs/stumpwm/utilities.org
View File

@ -262,21 +262,3 @@ else appears, such as a ~s-SPC C-g~ since I have ~which-key-mode~ enabled.
(t (format nil "^2~A^0 ^> Sub: ~12@A" name sub))))) (t (format nil "^2~A^0 ^> Sub: ~12@A" name sub)))))
(systemd-get-services :user-p user-p)))))) (systemd-get-services :user-p user-p))))))
#+end_src #+end_src
* PRIVATE org functions :noexport:
#+name: keybinds-gen
#+header: :wrap "src lisp :exports none" :exports none :noweb yes
#+begin_src emacs-lisp :var map="m" keybinds=bluetooth-keymap
(mapconcat (lambda (keybind)
(format "%s" (let* ((filter (lambda (str)
(replace-regexp-in-string "^~\\|~$" "" str)))
(key (funcall filter (car keybind)))
(function (funcall filter (cadr keybind))))
`(define-key ,map
(my/kbd ,(format "\"%s\"" key))
,(if (string-prefix-p "'" function t)
function
(format "\"%s\"" function))))))
keybinds
"\n")
#+end_src