Update the tags alist

zshrc.org

@@ -30,13 +30,19 @@ 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 ()
+    (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 (car (last (org-heading-components))) ":"))))
+                     (org-split-string tags ":"))))))
 #+end_src