From 1530c4d40f889868c05b8571d4ce5fb7d91751b8 Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Thu, 25 Nov 2021 11:38:51 -0500 Subject: [PATCH] Update the tags alist --- zshrc.org | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/zshrc.org b/zshrc.org index f52ec11..e1bd93e 100644 --- a/zshrc.org +++ b/zshrc.org @@ -30,17 +30,23 @@ the function returns '(".zshrc" ".zshrc.pi") #+name:def-tag #+begin_src emacs-lisp :results output silent + (setq tag-to-filenames-alist '(("daily" . ".zshrc") - ("pi" . ".zshrc.pi"))) + ("blender" . ".zshrc.blender") + ("pi" . ".zshrc.pi") + ("android" . ".zshrc.android") + ("mips" . ".zshrc.mips"))) (defun org-tags-to-filenames () - (remove nil (mapcar - (lambda (tag) - (cdr (assoc tag tag-to-filenames-alist))) - (org-split-string (car (last (org-heading-components))) ":")))) + (let ((tags (car (last (org-heading-components))))) + (when (stringp tags) + (remove nil (mapcar + (lambda (tag) + (cdr (assoc tag tag-to-filenames-alist))) + (org-split-string tags ":")))))) #+end_src -*** Include :daily:pi:android: +*** Include :daily:pi:android: First, include a script that sets a number of confidential data (e.g. API keys and such) #+BEGIN_SRC sh