yogthos

#!/usr/bin/env bb
(require '[clojure.java.shell :refer [sh]])

(defn exit [error]
  (println error)
  (System/exit 1))

(defn open-folder [folder]
  (let [folder (some-> folder (io/file))]
    (when (nil? folder)

yogthos

Introductory resources

• High level overview https://yogthos.github.io/ClojureDistilled.html
• An Animated Introduction to Clojure https://markm208.github.io/cljbook/
• Interactive tutorial in a browser https://tryclojure.org/
• Interactive exercises http://clojurescriptkoans.com/
• Clerk notebooks with introductory examples https://github.clerk.garden/anthonygalea/notes-on-clojure
• More interactive exercises https://4clojure.oxal.org/
• Lambda Island tutorials https://lambdaisland.com/
• Functional Programming with Clojure resources https://practicalli.github.io/

yogthos

#!/usr/bin/env lumo
(ns pixelfed-images.core
  (:require
   [clojure.walk :refer [prewalk]]
   [cljs.core :refer [*command-line-args*]]
   [clojure.string :as string]))

(def fs (js/require "fs"))
(def https (js/require "https"))
(def stream (.-Transform (js/require "stream")))

yogthos

(ns gjs-example.core)

(defn main []
  (set! (-> js/imports .-gi .-versions .-Gtk) "3.0")
  (let [Gtk (doto (-> js/imports .-gi .-Gtk) (.init nil))
        window (Gtk.Window.
                (clj->js
                 {:type (-> Gtk .-WindowType .-TOPLEVEL)
                  :title "A default title"
                  :default_width 300

yogthos

#!/usr/bin/env lumo
(ns reddit-video.core
  (:require
   [cljs.core :refer [*command-line-args*]]
   [clojure.string :as string]))

(def https (js/require "https"))
(def process (js/require "child_process"))

(defn js->edn [data]

yogthos

(ns re-frame.datepicker
  (:require [cljs-pikaday.reagent :as pikaday]))

(defn datepicker [k]
    (r/with-let [date         (r/atom @(rf/subscribe [:schedule/event-modal-details-value k]))
                 date-tracker (r/track! #(rf/dispatch [:schedule/update-event-modal-details k @date]))]
      [pikaday/date-selector
       {:date-atom     date
        :pikaday-attrs {:format "YYYY-MM-DD"}
        :input-attrs   {:read-only true :class "form-control"}}]

yogthos

#!/bin/sh

palette="$1.palette.png"

if [[ ! -e $palette ]]; then
    ffmpeg -y -i $1 -vf palettegen $palette
fi

filters="fps=15,scale=640:-1:flags=lanczos"

yogthos

{:access-keys
 {:consumer_key "XXXX"
  :consumer_secret "XXXX"
  :access_token_key "XXXX"
  :access_token_secret "XXXX"
 :account "arstechnica"
 :content-filters [".*badwords.*"]
 :include-replies? true
 :include-rts? true
 :output-file "tweets.md"}

yogthos

Atom Clojure Setup

This describes how I setup Atom for an ideal Clojure development workflow. This fixes indentation on newlines, handles parentheses, etc. The keybinding settings for enter (in keymap.cson) are important to get proper newlines with indentation at the right level. There are other helpers in init.coffee and keymap.cson that are useful for cutting, copying, pasting, deleting, and indenting Lisp expressions.

Install Atom

Download Atom

The Atom documentation is excellent. It's highly worth reading the flight manual.

yogthos

Plnack FFI example by Mike Fikes:

cc -fPIC -shared -o libnative.so native.c

planck ffi.cljs