|
|
|
@ -6,7 +6,6 @@ This application will serve as a platform to edit and deploy posts.
|
|
|
|
|
|
|
|
|
|
;; TODO: |
|
|
|
|
;; * load function |
|
|
|
|
;; * deploy function |
|
|
|
|
|
|
|
|
|
(import [datetime [date]]) |
|
|
|
|
(import [string [Template]]) |
|
|
|
@ -52,15 +51,12 @@ This application will serve as a platform to edit and deploy posts.
|
|
|
|
|
|
|
|
|
|
;; thunk |
|
|
|
|
;; load a file into the content boxes |
|
|
|
|
;; TODO: |
|
|
|
|
;; * look into Jinja loading facilities |
|
|
|
|
(defn load [#* args] |
|
|
|
|
(return)) |
|
|
|
|
|
|
|
|
|
;; thunk |
|
|
|
|
;; save current contents of editor to disk |
|
|
|
|
;; TODO: |
|
|
|
|
;; * look into Jinja writing facilities |
|
|
|
|
;; * possibly add alternate draft saving? |
|
|
|
|
(defn save [#* args] |
|
|
|
|
(setv post-dir "templates/posts/") |
|
|
|
@ -75,7 +71,7 @@ This application will serve as a platform to edit and deploy posts.
|
|
|
|
|
|
|
|
|
|
;; string -> string |
|
|
|
|
;; split the string into paragraphs, delimited by `\n\n`, |
|
|
|
|
;; and wrap them in HTML `<p><\p>` pairs |
|
|
|
|
;; and wrap them in HTML paragraph tags `<p></p>` |
|
|
|
|
(defn process-content [raw-input] |
|
|
|
|
(return (+ "<p>\n\t\t" |
|
|
|
|
(.replace raw-input "\n\n" "\n\t</p>\n\t<p>\n\t\t") |
|
|
|
|