|
|
|
@ -17,12 +17,13 @@ are daily and pi, the function returns '(".zshrc" ".zshrc.pi") |
|
|
|
("pi" . "/ssh:ssh.jacopods.xyz:.zshrc") |
|
|
|
("pi" . "/ssh:ssh.jacopods.xyz:.zshrc") |
|
|
|
("android" . ".zshrc.android"))) |
|
|
|
("android" . ".zshrc.android"))) |
|
|
|
(defun org-tags-to-filenames () |
|
|
|
(defun org-tags-to-filenames () |
|
|
|
(let ((tags (car (last (org-heading-components))))) |
|
|
|
(when (boundp 'tag-to-filenames-alist) |
|
|
|
(when (stringp tags) |
|
|
|
(let ((tags (car (last (org-heading-components))))) |
|
|
|
(remove nil (mapcar |
|
|
|
(when (stringp tags) |
|
|
|
(lambda (tag) |
|
|
|
(remove nil (mapcar |
|
|
|
(cdr (assoc tag tag-to-filenames-alist))) |
|
|
|
(lambda (tag) |
|
|
|
(org-split-string tags ":")))))) |
|
|
|
(cdr (assoc tag tag-to-filenames-alist))) |
|
|
|
|
|
|
|
(org-split-string tags ":"))))))) |
|
|
|
#+end_src |
|
|
|
#+end_src |
|
|
|
|
|
|
|
|
|
|
|
* zshrc :@zsh: |
|
|
|
* zshrc :@zsh: |
|
|
|
|