blob: 1bc1fafaaaacab3ad49e55b7df76b729174c7d9c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(ns clarktown.parsers.heading-block
(:require
[clojure.string :as string]))
(defn is?
"Determines whether the given block is a heading block or not."
[block]
(= true (-> (string/replace block #"\n" "")
string/trim
(string/starts-with? "#"))))
(defn render
"Renders the heading block."
[block]
(let [single-line-block (-> (string/replace block #"\n" "")
string/trim)
size (-> (string/split single-line-block #" ")
first
string/trim
count)
value (->> (string/split single-line-block #" ")
next
(string/join " ")
string/trim)]
(str "<h" size ">" value "</h" size ">")))
|
