TimoKramer

(ns redirect_gist.core
  (:require [reitit.ring :as ring]
            [reitit.coercion.spec]
            [reitit.core :as r]
            [ring.adapter.jetty :as jetty]
            [ajax.core :refer [GET]]))

(def app
  (ring/ring-handler
    (ring/router

TimoKramer

[{:db-config
  {:schema-flexibility :write,
   :keep-history? true,
   :index :datahike.index/hitchhiker-tree,
   :dh-backend :file},
  :function :transaction,
  :db-size 0,
  :tx-size 10,
  :mean-time 4.4561443}
 {:db-config

TimoKramer

(defn fib [a b]
  (lazy-seq (cons a (fib b (+ a b)))))
  
(defn fib-backoff [exec-fn test-fn]                                                                                                                                      
  (loop [retries (take 10 (fib 1 2))]                                                                                                                                    
    (let [result (exec-fn)]                                                                                                                                              
      (if (test-fn result)                                                                                                                                               
        result                                                                                                                                                           
        (when-let [sleep-ms (first retries)]                                                                        

TimoKramer

 (ns macroraise                                                                                                                                                                                                             
   (:require                                                                                                                                                                                                          
     [taoensso.timbre :as log]))                                                                                                                                                                                      
                                                                                                                                                                                                                      
 (defmacro raise [& fragments]                                                                                                                                

TimoKramer

from functools import reduce


class Maybe(object):
    def __str__(self):
        return "Maybe"


class Something(Maybe):
    def __init__(self, value):

TimoKramer

;; https://opensourcery.co.za/2017/02/12/using-semantic-ui-react-with-re-frame/
(def semantic-ui js/semanticUIReact)

(defn component
  "Get a component from sematic-ui-react:

    (component \"Button\")
    (component \"Menu\" \"Item\")"
  [k & ks]
  (if (seq ks)

TimoKramer

(defn set-active-page-handler
  "the handler for the event-function :set-active-page"
  [db page slug]
  (let [set-page (assoc db :page page)]
    (case page
      :home {:db set-page}
      (:login :register :settings) {:db set-page}
      :tours {:db set-page
              :dispatch [:get-tours]}
      :editor {:db set-page

TimoKramer

Keybase proof

I hereby claim:

• I am timokramer on github.
• I am timokramer (https://keybase.io/timokramer) on keybase.
• I have a public key ASD2xI8bRkOquchUTszS5wg29DLTq5gYh9uRVBtLVOBPGQo

To claim this, I am signing this object:

TimoKramer

#!/bin/bash
#{{ ansible_managed }}
### extracting information from moodle instances

cd /home/vhosts/moodle

function getinstances() {
	MDL_INSTANCES=`find * -maxdepth 0 -not -name "_*" |xargs echo`
}