simon/smeagol
1
0
Fork 0
mirror of https://github.com/journeyman-cc/smeagol.git synced 2026-04-12 09:55:08 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

WHOOPS! Introduced bugs when I was supposed just to be documenting.

Browse source
This commit is contained in:
Simon Brooke 2020-02-19 21:18:06 +00:00
parent b2ee34bd8e
commit a775ef7b83
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
2 changed files with 38 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

74
src/smeagol/configuration.clj
View file

@ -106,46 +106,46 @@
{:from :smeagol-site-title :to :site-title}))
(defn- build-config
(def build-config
"The actual configuration, as a map. The idea here is that the config
file is read (if it is specified and present), but that individual
values can be overridden by environment variables."
[]
(try
(log/info (str "Reading configuration from " config-file-path))
(let [file-contents (try
(read-string (slurp config-file-path))
(catch Exception x
(log/error
(str
"Failed to read configuration from "
config-file-path
" because: "
(type x)
"; "
(.getMessage x)))
{}))
config (merge
file-contents
(transform-map
(from-env-vars
:smeagol-content-dir
:smeagol-default-locale
:smeagol-formatters
:smeagol-js-from
:smeagol-log-level
:smeagol-passwd
:smeagol-site-title)
config-env-transforms))]
(if (env :dev)
(log/debug
"Loaded configuration\n"
(with-out-str (clojure.pprint/pprint config))))
config)
(catch Exception any
(log/error any "Could not load configuration")
{})))
(memoize (fn []
(try
(log/info (str "Reading configuration from " config-file-path))
(let [file-contents (try
(read-string (slurp config-file-path))
(catch Exception x
(log/error
(str
"Failed to read configuration from "
config-file-path
" because: "
(type x)
"; "
(.getMessage x)))
{}))
config (merge
file-contents
(transform-map
(from-env-vars
:smeagol-content-dir
:smeagol-default-locale
:smeagol-formatters
:smeagol-js-from
:smeagol-log-level
:smeagol-passwd
:smeagol-site-title)
config-env-transforms))]
(if (env :dev)
(log/debug
"Loaded configuration\n"
(with-out-str (clojure.pprint/pprint config))))
config)
(catch Exception any
(log/error any "Could not load configuration")
{})))))
(def config
"The actual configuration, as a map."
(memoize build-config))
(build-config))

2
src/smeagol/formatting.clj
View file

@ -48,7 +48,7 @@
(declare process-text)
(defn- process-backticks
(defn process-backticks
"Effectively, escape the backticks surrounding this `text`, by protecting them
from the `process-text` filter.