solussd

(ns dev.doomsun.datomic.util)

(defn attr-spec->attr
  [attr-spec]
  (cond-> attr-spec
          (map? attr-spec) ((comp key first))
          (vector? attr-spec) (-> first
                                  (cond->
                                    (map? (first attr-spec))
                                    ((comp key first))))))

solussd

Instructions

1. Add nrepl server dep to deps.edn :dev alias extra deps

org.clojure/tools.nrepl {:mvn/version "0.2.12"}

2. create dev/user.clj containing the following:

(ns user
 (:require [clojure.tools.nrepl.server :as nrepl]))

solussd

# Setting GIT prompt
c_cyan=`tput setaf 6`
c_red=`tput setaf 1`
c_green=`tput setaf 2`
c_sgr0=`tput sgr0`

branch_color ()
{
    if git rev-parse --git-dir >/dev/null 2>&1
    then

solussd

(defn render-page [renderer [_ path] transmitter]
  (let [parent (render/get-parent-id renderer path)
        id (render/new-id! renderer path)
        html (templates/add-template renderer path (:pedestal-sandbox-page templates))]
    (dom/append! (dom/by-id parent) (html {:id id :message "" :blah "val"}))))

solussd

(defn generate-file-audit-xml
  "Takes a seq of DirectoryRecords that contains the file audit and outputs an XML string with a
  top level element with the value of file-audit/audit-rootkey"
  [directory-records]
  {:pre [(sequential? directory-records)]}
  (let [out *out*]
    (-> (binding [*out* out] {:tag audit-rootkey :attrs {} :content (map to-xml-struct directory-records)}) 
      xml/emit
      with-out-str))) 

solussd

@implementation SBAppDelegate {
    __weak NSNumber *aNumber;
    NSNumber *anotherNumber;
}

- (void)applicationDidFinishLaunching:(NSNotification *)aNotification {
    NSNumber *myNumber = [NSNumber numberWithInt:2];
    self->anotherNumber = myNumber;
    self->aNumber = myNumber;
}