Fix tangling again/c

master
Jacopo De Simoi 3 years ago
parent e696d18b79
commit db97917a88
  1. 12
      zshrc.org

@ -12,10 +12,10 @@ are daily and pi, the function returns '(".zshrc" ".zshrc.pi")
#+name:def-tag
#+begin_src emacs-lisp :results output silent
(setq tag-to-filenames-alist '(("daily" . ".zshrc")
("blender" . ".zshrc.blender")
("pi" . "/ssh:ssh.jacopods.xyz:.zshrc")
("android" . ".zshrc.android")))
(setq-local tag-to-filenames-alist '( ("daily" . ".zshrc")
("blender" . ".zshrc.blender")
("pi" . "/ssh:ssh.jacopods.xyz:.zshrc")
("android" . ".zshrc.android")))
(defun org-tags-to-filenames ()
(let ((tags (car (last (org-heading-components)))))
(when (stringp tags)
@ -506,5 +506,7 @@ technique
* Local variables
# local variables:
# eval: (save-excursion (org-babel-goto-named-src-block "def-tag") (org-babel-execute-src-block))
# org-confirm-babel-evaluate: nil
# eval: (save-excursion (org-babel-goto-named-src-block "def-tag")
# (org-babel-execute-src-block) (outline-hide-sublevels 1))
# end:

Loading…
Cancel
Save