feat(inline): footnote parser

block.fnl

@@ -33,7 +33,7 @@
     :sp-chars ["#" "-"]
     :any-space true
     :continue-until-no-match true
-    :regex "%s*[%-%#].-\n"}
+    :regex "[^%[][%-%#].-\n"}
    {:name "Footnote"
     :sp-chars ["::\n"]
     :regex "%s*::%s-\n"

inline.fnl

@@ -18,8 +18,12 @@
    :Link (fn link-fn [str current]
            (let [patterns {:In-Link "%[%[(.-)%]%]"
                            :Named-In-Link "%[%[(.-)%|(.-)%]%]" 
-                           :Out-Link "%[(.-)%]%((.-)%)"}
+                           :Out-Link "%[(.-)%]%((.-)%)"
-                 next-char (string.sub str current (+ 1 current))]
+                           :Footnote "%[(.-)%]%_"}
+                 (find-char _) (string.find str "%[")
+                 next-char (string.sub str (+ 1 find-char) (+ 1 find-char))]
+             (_G.pp (.. "find-char " find-char))
+             (_G.pp (.. "next-char " next-char))
              (if (= next-char "[")
                (if (not (= nil (string.match str (. patterns :Named-In-Link) current)))
                  (let [(start end filename title) (string.find str (. patterns :Named-In-Link) current)]
@@ -32,11 +36,27 @@
                             :title filename
                             :destination filename}
                            end)))
-               (let [(start end title destination) (string.find str (. patterns :Out-Link) current)]
+               ; If it's not a [[ type link
-                 (values {:type "Link"
+               ; We need to check the next char after the ] 
-                          :title title
+               ; if it's _ it's a footnote
-                          :destination destination}
+               ; if it's ) it's an out-link
-                         end)))))})
+               (let [(_ close-bracket) (string.find str "%]" current)
+                     next-close-char (string.sub str (+ 1 close-bracket) (+ 1 close-bracket))]
+                 (_G.pp "we think it's not a in-link")
+                 (_G.pp (.. "next-close-char " next-close-char))
+                 (match next-close-char
+                   "(" (let [(start end title destination) (string.find str (. patterns :Out-Link) current)]
+                         (values {:type "Link"
+                                  :title title
+                                  :destination destination}
+                                 end))
+                   "_" (let [(start end footnote-number) (string.find str (. patterns :Footnote) current)]
+                         (_G.pp "In footnote")
+                         (_G.pp (.. "end " end))
+                         (values {:type "Footnote-Link"
+                                  :number footnote-number}
+                                 end))
+                   _ (values nil next-close-char))))))}) ; Could not parse type of link, just skip it
    ; :Spoiler
    ; :Censor})
 
@@ -46,8 +66,11 @@
     (var lexed [])
     (while (and (not (= nil current)) (> (length contents) current))
      (let [found (string.find contents (. grammar :match-first) current)]
+       (_G.pp (.. "current " current))
+       (_G.pp (.. "found " found))
        (if (not (= nil found))
          (let [char (string.sub contents found found)]
+           (_G.pp (.. "char " char))
            (if (> found 1)
              (table.insert lexed {:type "raw-text"
                                   :contents (string.sub contents current (- found 1))}))
@@ -85,6 +108,8 @@
 ; ((. contents-grammar :Bold) "*This* other thing" 1)
 ; (contents-lexer "*This* is a paragraph.")
 
+; (contents-lexer "Some footnote string [#]_")
+
 (fn list-rule [str ?regex]
   (let [regex (or ?regex "(%s*)%-%s*(.-)\n")]
    (var list-elems [])
@@ -100,7 +125,8 @@
                             (key val) (string.match str regex)]
                         {:type "Metadata"
                          : key
-                         : val}))}
+                         : val
+                         :is-metadata true}))}
    :Code { :rule (fn code-rule [str ?regex]
                   (let [regex (or ?regex "{{{(.-)\n(.-)}}}\n")
                         (hint code) (string.match str regex)]
@@ -124,14 +150,16 @@
                      (let [regex (or ?regex "::%s-\n%s*(.-)\n::\n")
                            list (string.match str regex)]
                        {:type "Footnotes"
-                        :elements (. (list-rule list) :elements)}))}
+                        :elements (. (list-rule list) :elements)
+                        :is-metadata true}))}
    :Tag {:rule (fn tag-rule [str ?regex]
                 (let [regex (or ?regex "%:(.-):")]
                  (var tags [])
                  (each [tag (string.gmatch str regex)]
                    (table.insert tags tag))
                  {:type "Tag"
-                  :tags tags}))}
+                  :tags tags
+                  :is-metadata true}))}
    :Quote {:rule (fn quote-rule [str ?regex]
                    (var total "")
                    (let [regex (or ?regex "%s*>%s*(.-)\n")]
@@ -143,9 +171,6 @@
                       {:type "Paragraph"
                        :contents (contents-lexer str)})}}) 
 
-; TODO
-; All :contents entries must go through the contents parser 
-
 (fn inline-lexer [blocks grammar]
   (var lexed [])
   (var section [])

main.fnl

@@ -4,7 +4,7 @@
 (local blocks (require :block))
 (local inline (require :inline))
 
-(local test-input "= Big Test File =\n%title Some Title\n:note:\n*This* is a paragraph.\n- This\n- List\n- Should\n- Be One\n-----\n= A new Section Title =\n![Has an Image](file:///link-to-image.png)\n> With some quoted matieral\n>Across multiple lines\n      > and different indents\n\n{{{python \n def file(arg, other):\n  rturn rg + other\n}}}\n\nMore Paragraphs\n-----\n::  \n\n- This is the first note\n-This is the second\n::\n") 
+(local test-input "= Big Test File =\n%title Some Title\n:note:\n*This* is a paragraph.\n- This\n- List\n- Should\n- Be One\n-----\n= A new Section Title =\n![Has an Image](file:///link-to-image.png)\n> With some quoted matieral\n>Across multiple lines\n      > and different indents\n\n{{{python \n def file(arg, other):\n  rturn rg + other\n}}}\n\nMore Paragraphs\n-----\n\nThis has a footnote [#]_ \n\n::  \n\n- This is the first note\n-This is the second\n::\n") 
 
 (-> test-input
     (blocks.lexer blocks.grammar)

render.fnl

@@ -3,7 +3,7 @@
 
 (fn render-contents [contents])
 
-(local renderer 
+(local render-grammar
   {:Header (fn render-header [{: contents : size}]
              (let [header-type (tostring size)
                    header (.. "h" header-type)
@@ -50,5 +50,25 @@
    ; Need to look into pygments or whatever see how that works
    ; Or find some sort of minimal js solution? 
    ; Not really sure
-   :Code ""}) 
+   :Code ""
-   
+   ; Also not sure what to do about footnotes
+   ; We need to link footnotes from inline parsing 
+   ; (which I'm just realizing I've forgotton to do... )
+   ; And then link them here
+   :Footnote ""}) 
+
+(fn render [blocks grammar]
+  (var rendered "")
+  (var metadata {})
+  (each [_ section (ipairs blocks)]
+    (each [_ block (ipairs section)]
+      (let [rule-set (. grammar (. block :type))]
+        (if (. block :is-metadata)
+         (set metadata (rule-set block metadata)) ; Handle metadata, TODO this doesn't handle sections for metadata semantics
+         (set rendered (.. rendered (rule-set block)))))) ; Write to the rendered string
+    (set rendered (.. rendered "\n<break/>\n"))) ; TODO Section "rendering"
+                                                 ; Should each section be returned seperately?
+                                                 ; Then we can add metadata to it easily.
+  ; Final section
+  rendered)
+