crinklywrappr

playing around w/ babel

TABLE OF CONTENTS

• top-level
• some clojure code
• demonstrating how to run a fn defined from another block

top-level

describes the entire file…

crinklywrappr

Script started on 2021-08-13 18:25:08-05:00 [TERM="xterm-kitty" TTY="/dev/pts/0" COLUMNS="174" LINES="44"]
]4;0;#0c0603\]4;1;#745026\]4;2;#564C57\]4;3;#936531\]4;4;#C57C33\]4;5;#A07449\]4;6;#BB874C\]4;7;#e2c5a4\]4;8;#9e8972\]4;9;#745026\]4;10;#564C57\]4;11;#936531\]4;12;#C57C33\]4;13;#A07449\]4;14;#BB874C\]4;15;#e2c5a4\]10;#e2c5a4\]11;#0c0603\]12;#e2c5a4\]13;#e2c5a4\]17;#e2c5a4\]19;#0c0603\]4;232;#0c0603\]4;256;#e2c5a4\]708;#0c0603\[?25l[?7l          ▗▄▄▄       ▗▄▄▄▄    ▄▄▄▖
          ▜███▙       ▜███▙  ▟███▛
           ▜███▙       ▜███▙▟███▛
            ▜███▙       ▜██████▛
     ▟█████████████████▙ ▜████▛     ▟▙
    ▟███████████████████▙ ▜███▙    ▟██▙
           ▄▄▄▄▖           ▜███▙  ▟███▛
          ▟███▛             ▜██▛ ▟███

crinklywrappr

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

struct typ {
  char* nm;
  size_t sz;
  void* obj;
};

crinklywrappr

(ns pantrack.routes.tasks
  (:require [reagent.core :as r]
            [reagent.session :as session]
            [secretary.core :as secretary :include-macros true]
            [pantrack.env :as env :refer [navigate! component]]
            [pantrack.util :as util]
            [pantrack.db :as db]
            [pantrack.hunt :as hunt]
            [dommy.core :refer-macros [sel sel1]]
            [cljsjs.recharts]

crinklywrappr

(defn inline-edit
  ([{:keys [id placeholder validate submit-rec debounce-time
            working editable hover idle shared]
     :or {placeholder "Input"
          validate (constantly [true ""])
          submit-rec (submission (chan) 1000 [false "Timeout occurred"]
                                 (fn [channel new-val]
                                   (go (>! channel [true ""]))))
          debounce-time 300 id (str/join "-" ["pie" "input" (swap! el-count inc)])
          working {} editable {} hover {} idle {} shared {}}}

crinklywrappr

import javax.media.opengl.*;
import javax.media.opengl.glu.*;
import processing.opengl.*;
import java.nio.*;
import java.awt.event.*;

float cw = 200;
float ch = 285;
float cx = - (cw / 2);
float cy = - (ch / 2);

crinklywrappr

(defn walk [^Node node & types]
  "Walks through the graph by following specified relations. Returns last node.
  Throws NullPointerException if path is wrong.
  Throws NotFoundException if path is ambiguous."
        (letfn [(next-node [^Node node type] (second (rel-nodes (single-rel node type))))
                (get-last [^Node node type] (reduce next-node node (list type)))]
                (map (partial get-last node) types)))

crinklywrappr

$ cake test
----
Finished in 3.515 seconds.

$ cat log/playground.log 
2011-10-01 23:36:51,337 INFO  neo4j-playground.core: create-db => enter
2011-10-01 23:36:52,152 INFO  neo4j-playground.core: create-db => exit
2011-10-02 00:02:50,480 INFO  neo4j-playground.core: create-db => enter
2011-10-02 00:02:51,481 INFO  neo4j-playground.core: create-db => exit
2011-10-02 00:21:27,789 INFO  neo4j-playground.core: create-db => enter

crinklywrappr

(ns neo4j-playground.core
  (:require [borneo.core :as neo])
  (:require [clojure.tools.logging :as log]))

(def ^:dynamic *db-path* (:db-path cake/*project*))

(defn create-db [] 
  "Creates the db if it doesn't already exist"
  (log/info "create-db => enter")
  (neo/with-db! *db-path*)

crinklywrappr

log4j.rootLogger=TRACE, ROLL
log4j.appender.ROLL=org.apache.log4j.rolling.RollingFileAppender
log4j.appender.ROLL.rollingPolicy=org.apache.log4j.rolling.TimeBasedRollingPolicy
log4j.appender.ROLL.rollingPolicy.FileNamePattern=log/playground.log.%d
log4j.appender.ROLL.rollingPolicy.ActiveFileName=log/playground.log
log4j.appender.ROLL.layout=org.apache.log4j.PatternLayout
log4j.appender.ROLL.layout.ConversionPattern=%d %-5p %c: %m%n