Browse code

Move utility functions up

Joseph Weston authored on 08/12/2021 04:26:44
Showing 1 changed files
... ...
@@ -57,6 +57,9 @@
57 57
 
58 58
 (def mono-font ["Source Code Pro" "monospace"])
59 59
 
60
+(defn- content-after [x] [(s/& s/after) {:content (str "'" x "'")}])
61
+(defn- content-before [x] [(s/& s/before) {:content (str "'" x "'")}])
62
+
60 63
 (defglobal defaults
61 64
   [:body
62 65
    {
... ...
@@ -87,9 +90,6 @@
87 90
     :background-color (colorscheme :light0-soft)
88 91
     :margin-bottom :0.4rem}])
89 92
 
90
-(defn- content-after [x] [(s/& s/after) {:content (str "'" x "'")}])
91
-(defn- content-before [x] [(s/& s/before) {:content (str "'" x "'")}])
92
-
93 93
 (def title-style
94 94
   [:h1 {:margin-top :0.2rem
95 95
         :margin-bottom :0.2rem
... ...
@@ -158,7 +158,6 @@
158 158
      :color (colorscheme :light0-hard)}
159 159
     (content-before "Error: "))
160 160
 
161
-
162 161
 (defclass property-list []
163 162
     {:padding-left 0
164 163
      :margin-top :0.5rem