ordnungswidrig

;; color definitions in css rgba format

(def base-color [60 151 35 1])
(def overlays  [[255 255 255 .23]
                 [255 255 255 .61]
                 [255 255 255 1]])


(require '[clojure.string :as s]
         '[reagent.core :as reagent])

ordnungswidrig

Apex architecture on documents, forms and modality

Motivation

During the execution of workflows at certain points information must be presented to the user and information must be gathered from the user. The actualy input method depends on the device that is used by a user, ranging from a web application to filling out a paper form.

The attributes of different devices are collected in “modalities” which describes a group of devices sharing common properties.

The data that shall be collected varies in shape and size, ranging from a single decision (“checkbox”) over what is a

ordnungswidrig

(def base-resource-media-typed
  {"application/json"
    {:success false
     :message "No acceptable resource available"}
   "application/edn"
    {:success false
     :message "No acceptable resource available"}})

(def base-resource
  {:handle-not-acceptable (media-typed base-resource-media-typed)

ordnungswidrig

This is an command for Backtick. It posts to current page's URL to pinboard.

ordnungswidrig

This is a command for Backtick. It posts the current page to pinboard.

ordnungswidrig

(defn into-context [key value]
  (when value
    { key value }))

(ANY "/choice" []
       (resource :available-media-types ["text/html"]
                 :exists? (fn [ctx]
                            (into-context :choice
                                (get {"1" "stone" "2" "paper" "3" "scissors"}
                                     (get-in ctx [:request :params "choice"]))))

ordnungswidrig

(ns state-is-a-fold
  (:use clojure.test))

;;; After all, state is a fold of events. For example let's say the events are a sequence of numbers
;;; and we are folding by addition:

(deftest simple
  (let [events [1 5 2 4 3]
	state (reduce + events)]
    (is (= 15 state))))

ordnungswidrig

(print
  (apply str (for [i (range 0 36)]
               (format "%11s   %2s   %s\n"
                       (.toPlainString (.pow 2M i)) i (.toPlainString (.divide 1M (.pow 2M i)))))))

ordnungswidrig

digraph {
node[shape="box", splines=ortho]
"start"[shape=circle];
"start" -> "service-available?"
"handle-multiple-representations" [peripheries=2];
"handle-ok" [peripheries=2];
"multiple-representations?" -> "handle-multiple-representations" [label = "true"] 
"multiple-representations?" -> "handle-ok" [label="false"]
"handle-no-content" [peripheries=2];
"respond-with-entity?" -> "multiple-representations?" [label = "true"] 

ordnungswidrig

(defdecision moved-temporarily? handle-moved-temporarily post-to-gone?)

(defdecision moved-permanently? handle-moved-permanently moved-temporarily?)

(defdecision existed? moved-permanently? post-to-missing?)