mnemnion

( Simple Hex Dump )
needs bad'
needs console'

8 constant (dump-width)

: putxt xt->d d->name puts ;

: hexabyte ( "hexes a byte" )
	dup 10 < 

mnemnion

( brute force ngaro assembler )

chain: ming'


  : nop,    0 , ; immediate       
  : drop,   3 , ; immediate       
  : pop,    6 , ; immediate       
  : ;,      9 , ; immediate       
  : !jump, 12 , ; immediate       

mnemnion

(defn seq-string
  "make a string seqable by character"
  [split-me]
  (seq (drop 1 (clojure.string/split split-me #""))))

mnemnion

;;The User Button
(setq ns-function-modifier 'hyper) ; Jedi Superpowers activate

(setq max-specpdl-size         100000
      max-lisp-eval-depth      100000) ;give your lisp a brain



(add-to-list 'load-path "~/.emacs.d/el-get/el-get")

mnemnion

pat pan par pag

pit pin pir pig 

pot pon por pog

put pun pur pug

mat man mar mag mit min mir mig

mnemnion

# Fancy jump script

export MARKPATH=$HOME/.marks
function jump {
    cd -P $MARKPATH/$1 2> /dev/null || echo "No such mark: $1"
}
function jp {
    cd -P $MARKPATH/$1 2> /dev/null || echo "No such mark: $1"
}
function mark {

mnemnion

(defn e-tree-seq 
  "tree-seqs enlive trees/graphs, at least instaparse ones"
  [e-tree]
  (if (map? (first e-tree))
      (tree-seq (comp seq :content) :content (first e-tree))
      (tree-seq (comp seq :content) :content e-tree)))

mnemnion

 (defn caseify [string] 
 (💬 (apply str (🌍 (fn [foo] (str "(" "'" (upper-case foo) "'" "|" "'" foo "'" ")"))
                  (rest (split string #""))))))

mnemnion

 (defn caseify [string] 
  (apply str (map (fn [foo] (apply str ["(" "'" (upper-case foo) "'" "|" "'" foo "'" ")"]))
                  (rest (split string #"")))))

mnemnion

S = AB*
AB = A B
A = 'a'+
B = 'b'+