1
0
Fork 0

Fixed issue with file opening shortcuts generation

Esse commit está contido em:
Lucien Cartier-Tilet 2020-07-26 10:21:19 +02:00
commit 21cbd9d368
Assinado por: phundrak
ID da chave GPG: BD7789E705CB8DCA
1 arquivos alterados com 2 adições e 2 exclusões

Ver arquivo

@ -3322,7 +3322,7 @@
*The following code is not tangled into my Spacemacs config.* However, it is
used to generate shortcuts and configuration code from the above table:
#+NAME: shortcuts-gen
#+BEGIN_SRC emacs-lisp :tangle no :noweb yes :var table=private-files-open-shortcuts :exports code :cache yes :results replace
#+BEGIN_SRC emacs-lisp :tangle no :noweb yes :var table=private-files-open-shortcuts :exports code :results replace
(concat (mapconcat (lambda (x)
(let* ((shortcut (nth 0 x))
(name (nth 1 x)))
@ -3340,7 +3340,7 @@
(file (nth 2 x)))
(if (string= "" file)
(format "\t\;\; %s" name)
(format "\t%s (lambda () (interactive) (find-file \"%s\"))"
(format "\t\"%s\" (lambda () (interactive) (find-file \"%s\"))"
shortcut file))))
table
"\n")))