@@ -57,6 +57,9 @@

 (def mono-font ["Source Code Pro" "monospace"])

+(defn- content-after [x] [(s/& s/after) {:content (str "'" x "'")}])

+(defn- content-before [x] [(s/& s/before) {:content (str "'" x "'")}])

+

 (defglobal defaults

   [:body

    {

@@ -74,7 +77,8 @@

     {:width :88ch})

 (defclass footer []

-    {:font-size :0.75rem})

+    {:font-size :0.75rem}

+    [(s/not (s/last-child)) {} (content-after " · ")])

 (defclass history-style []

   {:list-style-type :none

@@ -87,9 +91,6 @@

     :background-color (colorscheme :light0-soft)

     :margin-bottom :0.4rem}])

-(defn- content-after [x] [(s/& s/after) {:content (str "'" x "'")}])

-(defn- content-before [x] [(s/& s/before) {:content (str "'" x "'")}])

-

 (def title-style

   [:h1 {:margin-top :0.2rem

         :margin-bottom :0.2rem

@@ -158,7 +159,6 @@

      :color (colorscheme :light0-hard)}

     (content-before "Error: "))

-

 (defclass property-list []

     {:padding-left 0

      :margin-top :0.5rem

@@ -285,9 +285,24 @@

       (for [[index item] (enumerated @history)]

         ^{:key index} [:li [input (item :input)] [output (item :output)]])]))

+(defn- link-to [href & content]

+    [:a {:href href} content])

+

+(def agpl-link

+    (link-to

+     "https://www.gnu.org/licenses/agpl-3.0.html"

+     "GNU Affero Public License"))

+

+(def uberspace-link

+    (link-to

+     "https://uberspace.de/"

+     "Uberspace"))

+

 (defn footer []

   [:footer {:class (styles/footer)}

-   [:span.version (spaced "version:" config/version)]])

+   [:span.license agpl-link]

+   [:span.version (spaced "version:" config/version)]

+   [:span.host "Hosted by " uberspace-link]])

 (defn main-panel []

   [:div {:class (styles/screen)}