Update the tags alist

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