flyingmachine

{
  "@context": {"s": "https://schema.org"},
  "@type": "Cryptid",
  "s:email": "freddy@flur.ee",
  "s:jobTitle": "Research Assistant",
  "s:name": "Freddy the Yeti"
}

flyingmachine

;; useful for fixing linting errors

(map! :leader
      (:prefix-map ("y" . "my shortcuts")
       (:desc "flycheck list" "l" #'flycheck-list-errors)
       (:desc "flycheck next" "j" #'flycheck-next-error)
       (:desc "flycheck prev" "k" #'flycheck-previous-error)
       (:desc "clj clean ns"  "c" #'lsp-clojure-clean-ns)))

flyingmachine

;; The question: how to clearly provide system def overrides?
;; There are two main scenarios where we want to do this:
;;
;; 1. Deriving a new "profile", e.g. deriving a test profile from a base profile
;;    to be used for all tests
;; 2. Defining point overrides, e.g. you might want to mock out a specific component
;;    only for a specific test
;;
;; Ultimately developers can use what works for them, but I want to figure out
;; the recommended approach. Also, I need to figure out the behavior of helpers

flyingmachine

Keybase proof

I hereby claim:

• I am flyingmachine on github.
• I am nonrecursive (https://keybase.io/nonrecursive) on keybase.
• I have a public key ASDS9szLnff6f8HuT0fd8PAIK9wAr_4J8_68dAGc2z50GQo

To claim this, I am signing this object:

flyingmachine

(defdb db 
  (if (System/getenv "DATABASE_URL")
    (let [db-uri (java.net.URI. (System/getenv "DATABASE_URL"))
          user-and-password (clojure.string/split (.getUserInfo db-uri) #":")]
      {:classname "org.postgresql.Driver"
       :subprotocol "postgresql"
       :user (get user-and-password 0)
       :password (get user-and-password 1) ; may be nil
       :subname (if (= -1 (.getPort db-uri))
                  (format "//%s%s" (.getHost db-uri) (.getPath db-uri))

flyingmachine

(ns cljobs.resources.manage.os-projects
  (:require [cljobs.resources.common :as c]
            [cljobs.db.queries :as q]))

(def new-data (c/query-result q/user-os-projects))

(defn process-params
  [ctx]
  (-> (c/assoc-user ctx :os-project/user)
      (update-in [:request :params]

flyingmachine

(ns cljobs.resources.manage.os-projects
  (:require [cljobs.resources.common :as c]
            [cljobs.db.validations :as v]
            [cljobs.db.queries :as q]
            [datomic.api :as d]))

(def new-data (c/query-result q/user-os-projects))

(defn process-params
  [ctx]

flyingmachine

(div :class "filters"
       (loop-tpl :bindings [name ["bob" "joe"]]
        (div
         (h3 (text "~{name}"))))
       (ul
          (loop-tpl :bindings [attr ["a" "b"]]
           (li (text "~{attr}")))))

flyingmachine

(div :class "filters"
       (loop-tpl :bindings [name ["bob" "joe"]]
        (div
         (h3 (text "~{name}"))
         (ul
          (loop-tpl :bindings [attr ["a" "b"]]
           (li (text "~{attr}")))))))

flyingmachine

(defmacro defnpd
  ;; defn with default positional arguments
  [name args & body]
  (let [unpack-defaults
        (fn [args]
          (let [[undefaulted defaulted] (split-with (comp not vector?) args)
                argcount (count args)]
            (loop [defaulted defaulted
                   argset {:argnames (into [] undefaulted)
                           :application (into [] (concat undefaulted (map second defaulted)))}