Skip to content

Instantly share code, notes, and snippets.

Arne Brasseur plexus

Block or report user

Report or block plexus

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View https___clojurians-log.clojureverse.org_ Index Coverage Drilldown 2019-09-17.csv
URL Last crawled
https://clojurians-log.clojureverse.org/rdf/2016-11-21 20 Aug 2019
https://clojurians-log.clojureverse.org/beginners/2017-04-03 20 Aug 2019
https://clojurians-log.clojureverse.org/cljsjs/2017-04-12 19 Aug 2019
https://clojurians-log.clojureverse.org/clojure-spec/2017-06-05 19 Aug 2019
https://clojurians-log.clojureverse.org/clojure-dev/2017-06-27 19 Aug 2019
https://clojurians-log.clojureverse.org/hoplon/2017-01-08/1483885704.012440 19 Aug 2019
https://clojurians-log.clojureverse.org/jobs/2018-02-09 19 Aug 2019
https://clojurians-log.clojureverse.org/lumo/2017-11-21 19 Aug 2019
https://clojurians-log.clojureverse.org/sql/2018-08-18 19 Aug 2019
View defwrapper.clj
(ns defwrapper
(:require [clojure.string :as str]))
(set! *warn-on-reflection* true)
(defn class-methods [^Class class]
(seq (.getMethods class)))
(defn constructors [^Class klazz]
(.getDeclaredConstructors klazz))
View defwrapper.clj
(ns defwrapper
(:require [clojure.string :as str]))
(set! *warn-on-reflection* true)
(defn class-methods [^Class class]
(seq (.getMethods class)))
(defn constructors [^Class klazz]
(.getDeclaredConstructors klazz))
View lazy_path.clj
(ns grain-fills.lazy-path
(:require [clojure.datafy :as datafy :refer [datafy nav]]
[clojure.core.protocols :as p]
[clojure.java.io :as io]
[clojure.set :as set]))
(defn navigate-file [this k v]
(let [f (:clojure.datafy/obj (meta this))]
(io/file f v)))
View defwrapper.clj
(ns defwrapper
(:require [clojure.string :as str]))
(set! *warn-on-reflection* true)
(defn class-methods [^Class class]
(seq (.getMethods class)))
(defn return-type [^java.lang.reflect.Method method]
(.getReturnType method))
View jstack.txt
2019-04-16 16:13:34
Full thread dump OpenJDK 64-Bit Server VM (25.191-b12 mixed mode):
"Attach Listener" #17 daemon prio=9 os_prio=0 tid=0x00007fd38c001000 nid=0x7c78 waiting on condition [0x0000000000000000]
java.lang.Thread.State: RUNNABLE
"DestroyJavaVM" #16 prio=5 os_prio=0 tid=0x00007fd3d999d000 nid=0x72e2 waiting on condition [0x0000000000000000]
java.lang.Thread.State: RUNNABLE
"clojure.core/tap-loop" #15 daemon prio=5 os_prio=0 tid=0x00007fd378038000 nid=0x7523 waiting on condition [0x00007fd3c06f5000]
View streaming_20190310.md

Adding a higher level API to Trikl

Streaming Sunday afternoon at https://www.youtube.com/c/LambdaIsland/live

Towards the end of last year I created Trikl (https://github.com/lambdaisland/trikl), a library for building rich terminal interfaces that's modeled after Reagent. You write components using a variant of Hiccup, and trikl takes care of rendering them, applying smart diffing to minimize the amount of updates to send to the terminal, assuring updates always look smooth.

View invoice.rb
# coding: utf-8
$:.unshift '/home/arne/github/kramdown/lib'
require 'fileutils'
require 'prawn'
require 'kramdown'
require 'json'
CURRENCIES = {
'EUR' => '€ %.2f',
View clj_ns_buffer_names.el
;; Rename clj/cljs/cljc buffers to their namespace name, so you see
;; `foo.bar.core' in the modeline, rather than `core.clj'
(advice-add 'rename-buffer :around #'plexus/clj-ns--rename-buffer-advice)
(defun plexus/clj-ns--rename-buffer-advice (rb-fun newname &optional unique &rest args)
(let ((filename (buffer-file-name (current-buffer)))
(buf-start (buffer-substring-no-properties (point-min) (point-min))))
(if (and (string-match "\\.clj[cxs]?$" filename)
(string-match "(ns \\([^\n )]+\\)" buf-start))
(match-string-no-properties 1 buf-start)
You can’t perform that action at this time.