Review fixes: see below for details

* Global
- Rename `:truncate-request?` to `:truncate-request` everywhere

* README.org
- Make `:truncate-request` false by default (more intuitive)

* config.namespaced-example.edn
- Add example for `:triangulum.handler/truncate-request`

* config.nested-example.edn
- Add example for `:server` -> `:truncate-request`

* src/triangulum/config.clj
- 27: `::boolean` spec is unused

* src/triangulum/config_namespaced_spec.clj
- 36: Include `:triangulum.handler/truncate-request` in server spec

* src/triangulum/config_nested_spec.clj
- 23: Include `:triangulum.handler/truncate-request` in server spec

* src/triangulum/handler.clj
- 38: Add spec: `::truncate-request boolean?`
- Change :truncate-request logic to be false by default (more intuitive)

* src/triangulum/server.clj
- 28: Remove `::truncate-request` spec

Author: Gary Johnson

README.org

@@ -67,7 +67,7 @@ file logging system, and worker functions for non-HTTP-related tasks.
                :cider-nrepl       true      ; If your editor supports CIDER middleware
                :mode              "dev"     ; or prod
                :log-dir           "logs"    ; or "" for stdout
-               :truncate-request? false     ; true by default
+               :truncate-request  true      ; false by default
                :handler           product-ns.routing/handler
                :workers           {:scheduler {:start product-ns.jobs/start-scheduled-jobs!
                                                :stop  product-ns.jobs/stop-scheduled-jobs!}}

config.namespaced-example.edn

@@ -18,6 +18,7 @@
  :triangulum.handler/route-authenticator   product-ns.handlers/route-authenticator
  :triangulum.handler/routing-tables        [backend-libary-ns.routing/routes product-ns.routing/routes]
  :triangulum.handler/bad-tokens            #{".php"}
+ :triangulum.handler/truncate-request      false
  :triangulum.handler/private-request-keys  #{:base64Image :plotFileBase64 :sampleFileBase64}
  :triangulum.handler/private-response-keys #{}
 

config.nested-example.edn

@@ -18,6 +18,7 @@
           :route-authenticator   product-ns.handlers/route-authenticator
           :routing-tables        [common-libary-ns.routing/routes product-ns.routing/routes]
           :bad-tokens            #{".php"}
+          :truncate-request      false
           :private-request-keys  #{:base64Image :plotFileBase64 :sampleFileBase64}
           :private-response-keys #{}
 

src/triangulum/config.clj

@@ -24,7 +24,6 @@
 (s/def ::url-or-file-path  (s/and string? #(re-matches #"^(https?:\/\/[^\s\/$.?#].[^\s]*)|(/[^:*?\"<>|]*)$" %)))
 (s/def ::path              (s/and string? #(re-matches #"[./][^:*?\"<>|]*" %)))
 (s/def ::hostname          (s/and string? #(re-matches #"[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}" %)))
-(s/def ::boolean           boolean?)
 
 ;; Config file
 

src/triangulum/config_namespaced_spec.clj

@@ -33,6 +33,7 @@
                                :triangulum.handler/redirect-handler
                                :triangulum.handler/route-authenticator
                                :triangulum.handler/routing-tables
+                               :triangulum.handler/truncate-request
                                :triangulum.handler/private-request-keys
                                :triangulum.handler/private-response-keys
                                :triangulum.handler/bad-tokens

src/triangulum/config_nested_spec.clj

@@ -20,6 +20,7 @@
                                    :triangulum.handler/route-authenticator
                                    :triangulum.handler/routing-tables
                                    :triangulum.handler/bad-tokens
+                                   :triangulum.handler/truncate-request
                                    :triangulum.handler/private-request-keys
                                    :triangulum.handler/private-response-keys
                                    :triangulum.worker/workers

src/triangulum/handler.clj

@@ -35,6 +35,7 @@
 (s/def ::route-authenticator   ::config/namespaced-symbol)
 (s/def ::routing-tables        (s/coll-of ::config/namespaced-symbol))
 (s/def ::bad-tokens            (s/coll-of ::config/string :kind set? :min-count 0))
+(s/def ::truncate-request      boolean?)
 (s/def ::private-request-keys  (s/coll-of keyword :kind set?))
 (s/def ::private-response-keys (s/coll-of keyword :kind set?))
 
@@ -85,11 +86,9 @@
   [handler]
   (fn [request]
     (let [{:keys [uri request-method params]} request
+          truncate-request?                   (get-config :server :truncate-request)
           private-request-keys                (or (get-config :server :private-request-keys)
                                                   #{:password :passwordConfirmation})
-          truncate-request?                   (if (some? (get-config :server :truncate-request?))
-                                                (get-config :server :truncate-request?)
-                                                true)
           param-str                           (pr-str (apply dissoc params private-request-keys))]
       (log (apply str "Request(" (name request-method) "): \"" uri "\" " param-str) :truncate? truncate-request?)
       (handler request))))

src/triangulum/server.clj

@@ -25,7 +25,6 @@
 (s/def ::cider-nrepl       boolean?)
 (s/def ::mode              (s/and ::config/string #{"dev" "prod"}))
 (s/def ::log-dir           ::config/string)
-(s/def ::truncate-request? ::config/boolean)
 (s/def ::handler           ::config/namespaced-symbol)
 (s/def ::keystore-file     ::config/string)
 (s/def ::keystore-type     ::config/string)