Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

View LuisThiamNye's full-sized avatar
🤯
I am in control of my mind. I am sane. I know what is real and what is not.

Luis Thiam-Nye LuisThiamNye

🤯
I am in control of my mind. I am sane. I know what is real and what is not.
View GitHub Profile
@LuisThiamNye
LuisThiamNye / subtractor_resistance.clj
Created March 2, 2022 17:42
Code used to determine the optimal values for resistance of the subtractor amplifier in an electronic level for the IEP design project given a limited selection of resistor values.
(ns subtractor-resistance
(:require
[babashka.fs :as fs]
[clojure.pprint :as pp]
[clojure.string :as str]
;; [clojure.core.async :as async :refer [go <!]]
[clojure.java.io :as io]
[babashka.process :as proc :refer [process sh]]
#?@(:bb [[babashka.deps :as deps]]
:clj [[oz.core :as oz]
@LuisThiamNye
LuisThiamNye / simple_current_date_widget.cljs
Created May 24, 2021 04:23
Shows the current date. It's that simple.
(ns com.luisthiamnye.roam-render.simple-current-date-widget)
(defn date-widget [_]
[:span {:style {:color "#31495E"
:font-size "17px"}}
"Today: "
[:b
(let [d (js/Date.)]
(str (.toLocaleDateString d "en-GB"
#js {:weekday "short"
@LuisThiamNye
LuisThiamNye / days_until_widget.cljs
Created May 22, 2021 10:53
Roam/Render component for showing the days until a date.
(ns com.luisthiamnye.roam-render.days-until
(:require
[roam.datascript :as d]
[clojure.string]))
(defn inherited-uids [uid]
(d/q '[:find [?uids ...]
:in $ ?uid
:where
[?b :block/uid ?uid]
@LuisThiamNye
LuisThiamNye / roam_time_since_waking.cljs
Created May 11, 2021 16:27
Time Since Waking - Roam Component
(ns com.luisthiamnye.roam-render.waking-time
(:require
[reagent.core :as r]))
(def default-hour 7)
(def default-minute 30)
(defn time-since [date]
(let [mins (/ (- (js/Date.) date)
1000 60)]
@LuisThiamNye
LuisThiamNye / block-history-export.cljs
Created March 13, 2021 16:31
Block Creation History as CSV
(ns block-chart
(:require
[clojure.string]
[reagent.core :as r]
[roam.datascript :as d]))
(defn string-bytes [s]
(.-size (js/Blob. [s])))
(defn totals [coll]
@LuisThiamNye
LuisThiamNye / regex-search-replace.cljs
Created March 1, 2021 17:20
Roam Regex Search & Replace
(ns regex-replace.core
(:require
[roam.block :as block]
[roam.datascript :as d]
[reagent.core :as r]
[clojure.string]))
(defn block-replace-txs [match replacement]
(into []
(comp
@LuisThiamNye
LuisThiamNye / roam_stats_comp.cljs
Last active July 18, 2022 15:35
Roam Statistics MVP
(ns roam-stats
(:require
[roam.datascript :as d]
[clojure.string]
[reagent.core :as r]))
(defn string-bytes [s]
(.-size (js/Blob. [s])))
(defn total-pages []