phundrak/dotfiles
1
0
Fork 0
Code Issues Pull Requests Activity

[Desktop] Generate nicer Lisp and Elisp output

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2022-03-28 02:07:03 +02:00
parent d63da4af42
commit e6387f84c5
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 38 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
org/config/desktop.org
View File

@ -153,37 +153,56 @@ not show up. Hopefully this can be implemented someday in StumpWM.
#+header: :var keymap=emacs-stumpwm-media-control keymap-name="my-mpd-add-map" prefix="m" #+header: :var keymap=emacs-stumpwm-media-control keymap-name="my-mpd-add-map" prefix="m"
#+begin_src emacs-lisp :exports none :tangle no :wrap "src lisp :tangle no" :noweb yes #+begin_src emacs-lisp :exports none :tangle no :wrap "src lisp :tangle no" :noweb yes
(require 'seq) (require 'seq)
(format "%S" (format "(defvar *%s*
`(defvar ,(intern (format "*%s*" keymap-name)) (let %S
(let ((m (make-sparse-keymap))) %s
,@(mapcar (lambda (keybind) m))"
keymap-name
`((m (make-sparse-keymap)))
(mapconcat (lambda (keybind)
(let ((keychord (replace-regexp-in-string (format "^%s" prefix) (let ((keychord (replace-regexp-in-string (format "^%s" prefix)
"" ""
(car keybind))) (car keybind)))
(function (cdr keybind))) (function (cdr keybind)))
`(define-key m (kbd ,keychord) ,function))) (format "%S" `(define-key m (kbd ,keychord) ,function))))
<<stumpwm-filter-keybinds>> <<stumpwm-filter-keybinds>>
) "\n "))
m)))
#+end_src #+end_src
#+RESULTS: stumpwm-keybinds-gen #+RESULTS: stumpwm-keybinds-gen
#+begin_src lisp :tangle no #+begin_src lisp :tangle no
(defvar *my-mpd-add-map* (let ((m (make-sparse-keymap))) (define-key m (kbd ".") "media-interactive") (define-key m (kbd "«") "mpd-prev") (define-key m (kbd "»") "mpd-next") (define-key m (kbd "a") "'*my-mpd-add-keymap*") (define-key m (kbd "b") "'*my-mpd-browse-keymap*") (define-key m (kbd "c") "mpd-clear") (define-key m (kbd "p") "mpd-toggle-pause") m)) (defvar *my-mpd-add-map*
(let ((m (make-sparse-keymap)))
(define-key m (kbd ".") "media-interactive")
(define-key m (kbd "«") "mpd-prev")
(define-key m (kbd "»") "mpd-next")
(define-key m (kbd "a") "'*my-mpd-add-keymap*")
(define-key m (kbd "b") "'*my-mpd-browse-keymap*")
(define-key m (kbd "c") "mpd-clear")
(define-key m (kbd "p") "mpd-toggle-pause")
m))
#+end_src #+end_src
#+name: stumpwm-interactive-keybinds-gen #+name: stumpwm-interactive-keybinds-gen
#+header: :var keymap=emacs-stumpwm-resize-frame prefix="" #+header: :var keymap=emacs-stumpwm-resize-frame prefix=""
#+header: :wrap "src lisp :exports none"
#+begin_src emacs-lisp :noweb yes #+begin_src emacs-lisp :noweb yes
(format "%S" `,@(mapcar (lambda (keybind) (format "(%s)"
(mapconcat (lambda (keybind)
(let ((keychord (car keybind)) (let ((keychord (car keybind))
(function (cdr keybind))) (function (cdr keybind)))
`((kbd ,keychord) ,function))) (format "%S" `((kbd ,keychord) ,function))))
<<stumpwm-filter-keybinds>>)) <<stumpwm-filter-keybinds>>
"\n "))
#+end_src #+end_src
#+RESULTS: stumpwm-interactive-keybinds-gen #+RESULTS: stumpwm-interactive-keybinds-gen
: (((kbd "c") "resize-direction left") ((kbd "t") "resize-direction down") ((kbd "s") "resize-direction up") ((kbd "r") "resize-direction right")) #+begin_src lisp :exports none
(((kbd "c") "resize-direction left")
((kbd "t") "resize-direction down")
((kbd "s") "resize-direction up")
((kbd "r") "resize-direction right"))
#+end_src
#+name: stumpwm-interactive-gen #+name: stumpwm-interactive-gen
#+header: :var keymap=emacs-stumpwm-resize-frame keymap-name="my-mpd-add-map" prefix="" #+header: :var keymap=emacs-stumpwm-resize-frame keymap-name="my-mpd-add-map" prefix=""