This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns levier.js-reader | |
#?(:cljs (:require-macros [levier.js-reader])) | |
(:require [cljs.tagged-literals :as cljs-tl] | |
[clojure.string :as str]) | |
#?(:clj (:import [cljs.tagged_literals JSValue]))) | |
(defn map-keys [m f] (into (empty m) (map (juxt (comp f key) val) m))) | |
(defn map-vals [m f] (into (empty m) (map (juxt key (comp f val)) m))) | |
(defn map->js* [m] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns space.matterandvoid.helix | |
#?(:cljs (:require-macros space.matterandvoid.helix)) | |
#?(:clj | |
(:require | |
[helix.core :as h] | |
[helix.impl.analyzer :as hana] | |
[helix.impl.props :as impl.props] | |
[clojure.string :as string])) | |
#?(:cljs (:require [helix.core :as h]))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns my-app.malli.transform.pathom | |
(:refer-clojure :exclude [uuid]) | |
(:require | |
[malli.core :as m] | |
[taoensso.timbre :as log])) | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;; helpers | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns space.matterandvoid.pathom-sieppari | |
(:require | |
[sieppari.context] | |
[sieppari.core :as s] | |
[taoensso.timbre :as log])) | |
(defn terminate-if | |
"Takes a function that will be passed the pathom enviroment, if that function returns a non-falsey value | |
the sieppari chain is terminated and whatever is returned from `f` is the response of the chain. |
mkdir -p ~/.local/bin
chsh -s /bin/bash
add this to ~/.bash_profile
export BASH_SILENCE_DEPRECATION_WARNING=1
system prefs -> displays -> update resolution
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn ws-listener | |
[_request _response ws-map] | |
(proxy [WebSocketAdapter] [] | |
(onWebSocketConnect [^Session ws-session] | |
(proxy-super onWebSocketConnect ws-session) | |
(when-let [f (:on-connect ws-map)] | |
(f ws-session))) | |
(onWebSocketClose [status-code reason] | |
(when-let [f (:on-close ws-map)] | |
(f (.getSession this) status-code reason))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns datascript-crux.pull-api | |
(:require | |
[crux.api :as crux] | |
[datascript.pull-parser :as dpp] | |
[my-app.crux-node :refer [crux-node]]) | |
(:import [datascript.pull_parser PullSpec])) | |
;; lightly adapted from: | |
;; https://github.com/tonsky/datascript/blob/master/src/datascript/pull_api.cljc | |
;; https://github.com/tonsky/datascript/blob/master/src/datascript/pull_parser.cljc |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns crux-pull | |
(:require | |
[edn-query-language.core :as eql] | |
[crux.api :as crux] | |
[my-app.crux-node :refer [crux-node]])) | |
(defn entity | |
([entity-id] (entity crux-node entity-id)) | |
([crux-node entity-id] | |
(crux/entity (crux/db crux-node) entity-id))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Put on the last line of .bashrc: | |
# [ -f ~/.bash_aliases ] && source ~/.bash_aliases | |
# In ~/.bash_profile: | |
# [[ -f ~/.bashrc ]] && . ~/.bashrc | |
# | |
os=$(uname -s) | |
is_linux() { |
NewerOlder