jackrusher

;; Uses https://github.com/borkdude/jet

;; On OSX, install jet with:

;; brew install borkdude/brew/jet

;; I invoke this with M-x, you might want to bind it to a key
(defun json->edn ()
  (interactive)
  (shell-command-on-region (region-beginning)

jackrusher

(ns appliedsciencestudio.covid19-clj-viz.repl
  (:require [clojure.string :as string]
            [hickory.core :as hick]
            [hickory.select :as s]))

;;;; Scraping data

(def wiki-page
  "We want this data, but it's only published as HTML."
  (slurp "https://en.wikipedia.org/wiki/List_of_countries_by_hospital_beds"))

jackrusher

(ns appliedsciencestudio.covid19-clj-viz.repl
  (:require [clojure.string :as string]
            [hickory.core :as hick]
            [hickory.select :as s]))

;;;; Scraping data
(def worldometers-page
  "We want this data, but it's only published as HTML."
  (-> (slurp "https://www.worldometers.info/coronavirus/")
      hick/parse

jackrusher

# one command to start a new Cocoa Emacs as installed by brew
# (make sure the path matches where you have emacs installed, obvs)
alias startemacs=/usr/local/Cellar/emacs-mac/emacs-26.3-z-mac-7.7/Emacs.app/Contents/MacOS/Emacs.sh

# then typing `emacs foo` should open the file in the already running Cocoa emacs 
alias emacs=/usr/local/Cellar/emacs-mac/emacs-26.3-z-mac-7.7/bin/emacsclient

# default editor and git editor should do the same
export EDITOR=/usr/local/Cellar/emacs-mac/emacs-26.3-z-mac-7.7/bin/emacsclient
export GIT_EDITOR=/usr/local/Cellar/emacs-mac/emacs-26.3-z-mac-7.7/bin/emacsclient

jackrusher

;; Where are all the -ow -itz place names in Germany? (Limit to 10 for printability)
(query
 '[:select *
   :where [[?ort (wdt :instance-of) / (wdt :subclass-of) * (entity "human settlement")
            _ (wdt :country) (entity "Germany")
            _ rdfs:label ?name
            _ (wdt :coordinate-location) ?wo]
           :filter ((lang ?name) = "de")
           :filter ((regex ?name "(ow|itz)$"))]
   :limit 10])

jackrusher

(def the-notes
  (cycle [:c :db :d :eb :e :f :gb :g :ab :a :bb :b]))

(def key-offset
  (zipmap (take 12 the-notes) (range)))

(defn triads [the-key]
  (let [offset (key-offset the-key)
        scale (cycle [0 2 4 5 7 9 11])]
    (map

jackrusher

;; make sure you've set your default project with:
;; gcloud config set project <project-name>

(require 'tramp)
(add-to-list 'tramp-methods
  '("gcssh"
    (tramp-login-program        "gcloud compute ssh")
    (tramp-login-args           (("%h")))
    (tramp-async-args           (("-q")))
    (tramp-remote-shell         "/bin/sh")

jackrusher

(ns planetoid
  (:require [chia.util.js-interop :as j]
            ["three" :as three]
            ["bezier-easing" :as BezierEasing]))

(defonce renderer
  (doto (three/WebGLRenderer. (clj->js :antialias true))
    (.setPixelRatio (.-devicePixelRatio js/window))
    (.setSize (.-innerWidth js/window) (.-innerHeight js/window))
    (.setClearColor "#000000")

jackrusher

(global-set-key (kbd "<F12>")
                (lambda ()
                  (shell-command "refresh-chrome")))

jackrusher

(ns drei
  (:require [chia.util.js-interop :as j]
            ["three" :as three]
            ["bezier-easing" :as BezierEasing]
            [colours :refer [palettes]])) ; from Google's art palettes project

(defonce renderer
  (doto (three/WebGLRenderer. (clj->js :antialias true))
    (.setPixelRatio (.-devicePixelRatio js/window))
    (.setSize (.-innerWidth js/window) (.-innerHeight js/window))