Joe Bogner committed 9285e7e

add basic tag parsing

Comments (0)

Files changed (1)

 (de org-remove-header-prefix (Line)
    (pack (cdr (diff (chop Line) "*"))))
+(de org-parse-header-text (Line)
+   (let (Text (org-remove-header-prefix Line) 
+         TagSplit (split (chop Text) ":")
+         Heading (pack (car TagSplit))
+         Tags (mapcar pack (cdr TagSplit)))
+      (cons Heading Tags)))
 (de org-parse-special-props (Body)
    (let (NewBody NIL 
          Props NIL
          Properties (car PropertiesFunc)
          Body (cdr PropertiesFunc)
          Children (org-parse-children Lines Level)
-         Header (org-remove-header-prefix Line)
-         Heading (list 'level Level 'name Header 'body Body 'props Properties 'children Children)
+         ParsedHeader (org-parse-header-text Line)
+         Header (car ParsedHeader)
+         Tags (cdr ParsedHeader)
+         Heading (list 'level Level 'name Header 'tags Tags 'body Body 'props Properties 'children Children)
          NextPosition (org-next-sibling Level Lines))
      (cons Heading NextPosition))))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.