andrewmcveigh

(ns ...
  (:require [bidi.bidi :as b]))

;;; need the path of uri => /whatever
(defn url-path []
  (.getPath (goog.Uri. js/window.location)))

(def routes
  ["/" [["" :root]
        ["records" :records]]])

andrewmcveigh

(defplan remote-directory-content []
  (let [nv (exec-script "ls /etc/openvpn/keys/*.crt -1")]
    (return-value-expr
      [nv]
      (let [c (:out nv)]
        (remove ["ca" "openvpn"]
                (-> c
                    (string/split #"\n")
                    string/trim
                    (string/replace #"^/etc/openvpn/keys/" "")

andrewmcveigh

(ns test-def)

(def ^:foo e identity)
e
; test_def.e = cljs.core.identity;
; test_def.e;

(def ^:field f identity)
f
; test_def.f = cljs.core.identity;