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

[Emacs] Fix org-file export for CI

Browse Source 
On older org-mode versions, org lists are lists of lists of only one
element, so that

    - a
    - b
    - c

translates as

    (("a") ("b") ("c"))

But in more recent versions, the same list translates as

    ("a" "b" "c")

This commit handles both situations, as my local Emacs version follows
the latter behaviour but the Emacs version available in my CI workflow
follows the former behaviour.
This commit is contained in:
Lucien Cartier-Tilet 2023-03-11 18:37:38 +01:00
parent a55dec76db
commit daca7f41ff
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
org/config/emacs.org
View File

@ -1901,7 +1901,9 @@ Paris 8 (my university).
#+header: :tangle no :exports none #+header: :tangle no :exports none
#+begin_src emacs-lisp :var lists=mu4e-emacs-mailing-lists #+begin_src emacs-lisp :var lists=mu4e-emacs-mailing-lists
(mapconcat (lambda (list) (mapconcat (lambda (list)
(let ((address (string-replace (regexp-quote "~") "" list))) (let ((address (string-replace (regexp-quote "~")
""
(if (stringp list) list (car list)))))
(mapconcat (lambda (flag) (mapconcat (lambda (flag)
(concat flag ":" address)) (concat flag ":" address))
'("list" "t" "f" "contact") '("list" "t" "f" "contact")
@ -3848,21 +3850,22 @@ these will be renamed this way:
#+begin_src emacs-lisp :var buffers=exwm-renamed-buffers-list :cache yes #+begin_src emacs-lisp :var buffers=exwm-renamed-buffers-list :cache yes
(format "%s\n%S" (format "%s\n%S"
(mapconcat (lambda (buffer) (mapconcat (lambda (buffer)
(let ((buffer-name buffer)) (let ((buffer-name (if (stringp buffer)
buffer
(car buffer))))
(format "(\"%s\" %S)" (format "(\"%s\" %S)"
(downcase buffer-name) (downcase buffer-name)
`(exwm-workspace-rename-buffer (concat "EXWM: " `(exwm-workspace-rename-buffer
,buffer-name (concat ,(concat "EXWM: " buffer-name " - ")
" - "
exwm-title))))) exwm-title)))))
buffers buffers
"\n") "\n")
'(_otherwise (exwm-workspace-rename-buffer exwm-title))) '(_otherwise (exwm-workspace-rename-buffer exwm-title)))
#+end_src #+end_src
#+RESULTS[6811bb0d3e54e891d39c3814f239e4c5ce497214]: exwm-gen-buffers-rename #+RESULTS[64fdbf1e8957b82aad801ec57f2155a0a8f5be54]: exwm-gen-buffers-rename
: ("kitty" (exwm-workspace-rename-buffer (concat "EXWM: " "Kitty" " - " exwm-title))) : ("kitty" (exwm-workspace-rename-buffer (concat "EXWM: Kitty - " exwm-title)))
: ("qutebrowser" (exwm-workspace-rename-buffer (concat "EXWM: " "Qutebrowser" " - " exwm-title))) : ("qutebrowser" (exwm-workspace-rename-buffer (concat "EXWM: Qutebrowser - " exwm-title)))
: (_otherwise (exwm-workspace-rename-buffer exwm-title)) : (_otherwise (exwm-workspace-rename-buffer exwm-title))
#+name: exwm-buffers-name #+name: exwm-buffers-name