From 48fb243c6983fe564ea2733d28772b67c4e09cc9 Mon Sep 17 00:00:00 2001 From: Lucien Cartier-Tilet Date: Wed, 21 Feb 2024 04:39:31 +0100 Subject: [PATCH] docs(stumpwm utilities): fix org file export --- docs/stumpwm/utilities.org | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/docs/stumpwm/utilities.org b/docs/stumpwm/utilities.org index 201573a..9ea82d3 100644 --- a/docs/stumpwm/utilities.org +++ b/docs/stumpwm/utilities.org @@ -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))))) (systemd-get-services :user-p user-p)))))) #+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