|
|
|
|
@ -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: |
|
|
|
|
|