Fixed issue with file opening shortcuts generation

This commit is contained in:
Lucien Cartier-Tilet 2020-07-26 10:21:19 +02:00
부모 fc9cfd3a3c
커밋 21cbd9d368
로그인 계정: phundrak
GPG 키 ID: BD7789E705CB8DCA
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제

파일 보기

@ -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")))