marcowahl
/ org-orgee-decorate-as-top-level
Last active
October 21, 2019 08:17
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; little idea about showing an orgee as top level | |
| ;; 'orgee' is a nick for org subtree | |
| (let (overlays it-s-on) | |
| (defun org-decorate-as-top-level-tree-establish () | |
| (interactive) | |
| (let (first-level) | |
| (org-map-entries | |
| (lambda () |
marcowahl
/ org-structure-as-dirs-and-files.el
Last active
December 20, 2019 06:39
org-save-org-structure-as-dir-file-skeleton to save the org structure as dirs and files (marked with tag :file:)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun org-interpret-org-as-dir-file-skeleton () | |
| "Return the outline paths as lists. | |
| Separated in those headlines not tagged 'file' and those tagged with 'file'." | |
| (let (output-files output-dirs) | |
| (org-map-entries | |
| (lambda () | |
| (let* ((headline (car (cddddr (org-heading-components)))) | |
| (headline-path | |
| (reverse | |
| (cons |