Fix org tangling

6 months ago · 20ccdfa948
parent 216bc9e422
commit 20ccdfa948
1 changed files with 7 additions and 6 deletions
--- a/zshrc.org
+++ b/zshrc.org
@ -17,12 +17,13 @@ are daily and pi, the function returns '(".zshrc" ".zshrc.pi")
                                        ("pi" . "/ssh:ssh.jacopods.xyz:.zshrc")
                                        ("android" . ".zshrc.android")))
  (defun org-tags-to-filenames ()
+    (when (boundp 'tag-to-filenames-alist)
      (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 ":"))))))
+                       (org-split-string tags ":")))))))
 #+end_src

 * zshrc                                                                :@zsh: