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

Fixed issue with file opening shortcuts generation

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2020-07-26 10:21:19 +02:00
parent fc9cfd3a3c
commit 21cbd9d368
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
org/config/spacemacs.org
View File

@ -3322,7 +3322,7 @@
*The following code is not tangled into my Spacemacs config.* However, it is *The following code is not tangled into my Spacemacs config.* However, it is
used to generate shortcuts and configuration code from the above table: used to generate shortcuts and configuration code from the above table:
#+NAME: shortcuts-gen #+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) (concat (mapconcat (lambda (x)
(let* ((shortcut (nth 0 x)) (let* ((shortcut (nth 0 x))
(name (nth 1 x))) (name (nth 1 x)))
@ -3340,7 +3340,7 @@
(file (nth 2 x))) (file (nth 2 x)))
(if (string= "" file) (if (string= "" file)
(format "\t\;\; %s" name) (format "\t\;\; %s" name)
(format "\t%s (lambda () (interactive) (find-file \"%s\"))" (format "\t\"%s\" (lambda () (interactive) (find-file \"%s\"))"
shortcut file)))) shortcut file))))
table table
"\n"))) "\n")))