[TO-CLEANUP] Add a function to use with conditional tangling

Now, this needs to be better documented and cleaned up

global.org

@@ -1499,6 +1499,19 @@
       (define-key org-mode-map (kbd "C-x SPC") 'wilder/hydra-org-move/body)
     #+end_src
 
+*** tags-to-filename
+    #+begin_src emacs-lisp
+      (defun org-tags-to-filenames ()
+        (message "parsing")
+        (sleep-for 1)
+        (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
+
 *** Capture
     Set default keybinding
     #+begin_src emacs-lisp