Robert Levy rplevy

## bashrc-excerpt.el
(defmacro defshell (name cmd)
  `(defun ,name ()
     (interactive)
     (insert (shell-command-to-string ,cmd))))

(defmacro defshellonreg (name cmd &optional replace)
  `(defun ,name (beg end)
     (interactive "r")
     (shell-command-on-region beg end ,cmd
                              (if ,replace (current-buffer) nil)

## edn2json.cljs
#!/usr/local/bin/planck

(ns scripts.edn2json
  (:require [cljs.reader :as r]
            [planck.core :refer [slurp *command-line-args* *in* line-seq]]))

(defn last-n-chars [n s]
  (apply str (reverse (take n (reverse s)))))

(let [s (first *command-line-args*)

## profiles2env.cljs
#!/usr/bin/env plk -Sdeps {:deps,{inflections,{:mvn/version,"0.13.0"}}}

;; EXAMPLE USAGE:
;;
;; profiles2env profiles.clj > ~/cc-vars
;; . ~/cc-vars

(ns scripts.profiles2env
  (:require [cljs.reader :as r]
            [clojure.string :as str]

## cmd-line-scripting-with-plk-and-clj.org

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                rplevy
                / cmd-line-scripting-with-plk-and-clj.org
            
            
              Last active
              May 2, 2019 00:47
            
              
                cmd-line-scripting-with-plk-and-clj.org
              
          
    command-line scripting with plk & clj

what to write scripts in?

bash?

perl?

python?

why not clojure?

why not?

bash/perl etc pre-installed

unorthodox installation requirements sometimes not worth it

this is actually a pretty good reason not to


## clj->org.clj
(defn clj->org
  [data-rows col-fns]
  (doseq [line (map (apply juxt col-fns) data-rows)]
    (println (str "|" (clojure.string/join "|" line) "|"))))

;; edit: use print-table, and support col headers
;; I never realized print-table is an org-table!!

(defn clj->org
  [data-rows col-fns & [headers]]

## ticket-sentiment.clj
(ns ticket-sentiment.core
  (:require [clojure.data.csv :as csv]
            [clojure.java.io :as io]
            [clojure.pprint :refer [pprint]]
            [damionjunk.nlp.cmu-ark :as ark]
            [damionjunk.nlp.stanford :as nlp]))

(defn mean [coll]
  (let [sum (apply + coll)
        count (count coll)]

## two-useful-macros.clj
(defmacro with
  "do things with the first expression passed,
   and produce the result"
  [expr & body]
  `(let [~'% ~expr] ~@body))

(defmacro within
  "do things with the first expression passed (for side effects),
   but produce the value of the first expression"
  [expr & body]

## bitclout_fees.sh
echo "<html><table><tr><th>type</th><th>amount</th><tr>" > /tmp/transactions.html; cat /tmp/transactions | egrep "^(Transaction Type:|Fees:).*" | while read l ; do if [[ "$l" =~ ^Transaction.*$ ]]; then export transaction=$(echo $l | sed -e 's/^.*://'); else echo "<tr><td>"$transaction"</td><td>"$(echo $(echo $l | sed -e 's/^.*://')" * 154.87" | bc )"</td></tr>"; fi ; done >> /tmp/transactions.html ; echo "</table></html>" >> /tmp/transactions.html

## README.txt
tweets from my twitter archive but in order

## continuationlike-debugging-style.clj
(defmacro persist-scope
  "local scope -> atom"
  [a]
  `(do ~@(map (fn [v] `(swap! ~a assoc (keyword '~v) ~v))
              (keys (cond-> &env (contains? &env :locals) :locals)))))

(def scope-atom (atom {}))

(let [foo 1] (persist-scope scope-atom))
	(defmacro defshell (name cmd)
	`(defun ,name ()
	(interactive)
	(insert (shell-command-to-string ,cmd))))

	(defmacro defshellonreg (name cmd &optional replace)
	`(defun ,name (beg end)
	(interactive "r")
	(shell-command-on-region beg end ,cmd
	(if ,replace (current-buffer) nil)
	#!/usr/local/bin/planck

	(ns scripts.edn2json
	(:require [cljs.reader :as r]
	[planck.core :refer [slurp command-line-args in line-seq]]))

	(defn last-n-chars [n s]
	(apply str (reverse (take n (reverse s)))))

	(let [s (first command-line-args)
	#!/usr/bin/env plk -Sdeps {:deps,{inflections,{:mvn/version,"0.13.0"}}}

	;; EXAMPLE USAGE:
	;;
	;; profiles2env profiles.clj > ~/cc-vars
	;; . ~/cc-vars

	(ns scripts.profiles2env
	(:require [cljs.reader :as r]
	[clojure.string :as str]
	(defn clj->org
	[data-rows col-fns]
	(doseq [line (map (apply juxt col-fns) data-rows)]
	(println (str "\|" (clojure.string/join "\|" line) "\|"))))

	;; edit: use print-table, and support col headers
	;; I never realized print-table is an org-table!!

	(defn clj->org
	[data-rows col-fns & [headers]]
	(ns ticket-sentiment.core
	(:require [clojure.data.csv :as csv]
	[clojure.java.io :as io]
	[clojure.pprint :refer [pprint]]
	[damionjunk.nlp.cmu-ark :as ark]
	[damionjunk.nlp.stanford :as nlp]))

	(defn mean [coll]
	(let [sum (apply + coll)
	count (count coll)]
	(defmacro with
	"do things with the first expression passed,
	and produce the result"
	[expr & body]
	`(let [~'% ~expr] ~@body))

	(defmacro within
	"do things with the first expression passed (for side effects),
	but produce the value of the first expression"
	[expr & body]
	(defmacro persist-scope
	"local scope -> atom"
	[a]
	`(do ~@(map (fn [v] `(swap! ~a assoc (keyword '~v) ~v))
	(keys (cond-> &env (contains? &env :locals) :locals)))))

	(def scope-atom (atom {}))

	(let [foo 1] (persist-scope scope-atom))