Skip to content

Instantly share code, notes, and snippets.


Clint Moore cmoore

  • RavenPack
  • Tacoma, WA
  • @hydo
View GitHub Profile
View geojson.lisp
(ql:quickload '(:jsown
(defpackage :geojson
(:use :cl
(in-package :geojson)
View grovel.lisp
(in-package :efl)
#+ (or freebsd darwin)
(include "time.h")
(include "sys/time.h"))
(cc-flags #+freebsd "-I/usr/local/include -I/usr/local/include/elementary-1 -I/usr/local/include/efl-1 -I/usr/local/include/eina-1/eina -I/usr/local/include/eina-1 -I/usr/local/include/eet-1 -I/usr/local/include/emile-1 -I/usr/local/include/evas-1 -I/usr/local/include/eo-1 -I/usr/local/include/ecore-1 -I/usr/local/include/ecore-evas-1 -I/usr/local/include/ecore-con-1 -I/usr/local/include/ecore-file-1 -I/usr/local/include/ecore-imf-1 -I/usr/local/include/ecore-input-1 -I/usr/local/include/ecore-x-1 -I/usr/local/include/edje-1 -I/usr/local/include/eldbus-1 -I/usr/local/include/efreet-1 -I/usr/local/include/ethumb-1 -I/usr/local/include/ethumb-client-1")
cmoore / buildlog.txt
Created Oct 2, 2017
Building SBCL 1.4.0 on FreeBSD
View buildlog.txt
rm -f *~ *.bak *.orig \#*\# .\#* texput.log *.fasl
rm -rf sbcl asdf version "docstrings/"
rm -f sbcl.html asdf.html
rm -f contrib-docs.texi-temp
rm -f package-locks.texi-temp
rm -f variables.texinfo
rm -f sbcl.pdf asdf.pdf html-stamp tempfiles-stamp
rm -f asdf.aux asdf.cp asdf.cps asdf.fn asdf.fns asdf.log asdf.toc asdf.tps asdf.vr asdf.vrs sbcl.aux sbcl.cp sbcl.cps sbcl.fn sbcl.fns sbcl.log sbcl.toc sbcl.tps sbcl.vr sbcl.vrs
rm -f*
rm -rf *.include *.info *.pdf *~ *.cp *.fn *.ky *.log *.pg *.toc \
cmoore /
Last active Aug 15, 2017
GeneralScrollPane is not scolling.
lx := ZnClient new.
json_data := Array with:
(NeoJSONReader fromString: (lx get: '')).
sheet := SpreadsheetGridMorph new
hResizing: #spaceFill;
vResizing: #spaceFill;
View OZO Price Table.html
<div style="display:none;" id="pricescouter-pricetable"></div>
View OZO Data.html
<input type="hidden" name="pricescouter-price" value="40.63">
<input type="hidden" name="pricescouter-unique" value="4B1956H-STD">
<input type="hidden" name="pricescouter-manufacturer" value="Acme">
Optimally, "pricescouter-unique" will be a SKU, part number, or
model number. The more specific, the better.
View OZO Loader.html
<script src="//">
cmoore / react.lisp
Last active Dec 20, 2015
An example of the syntax.
View react.lisp
(define-easy-handler (react-stuff :uri "/react/all") ()
(defvar panel (defreact
(json display-name "Panel"
component-will-mount (lambda ()
;; (->) is (ps:chain) and (.>) bind()s 'this' to the block.
(something-with-a-callback (.> (lambda (x) (-> this (do-something)))))
render (lambda ()
(rce "div" (json class-name "col-md-6")
(rce "div" (json class-name "panel panel-default panel-borders")
cmoore /
Last active Oct 19, 2015
stack funkiness in here.

This is the difference between a stack with edIncludes in Installed.hs commented out, and not.

Just to show the paths that are, I assume, inserted into --extra-include-dirs and friends.

C:\projects\stack>stack install
Setting codepage to UTF-8 (65001) to ensure correct output from GHC
binary-tagged- unregistering (flags changed from ["--extra-include-dirs=C:\\Users\\clint\\AppData\\Local\\Programs\\stack\\x86_64-windows\\msys2-20150512\\mingw32\\include","--extra-include-dirs=C:\\Users\\clint\\AppData\\Local\\Programs\\stack\\x86_64-windows\\msys2-20150512\\mingw64\\include","--extra-lib-dirs=C:\\Users\\clint\\AppData\\Local\\Programs\\stack\\x86_64-windows\\msys2-20150512\\mingw32\\lib","--extra-lib-dirs=C:\\Users\\clint\\AppData\\Local\\Programs\\stack\\x86_64-windows\\msys2-20150512\\mingw64\\lib"] to ["--extra-lib-dirs=C:\\Users\\clint\\AppData\\Local\\Programs\\stack\\x86_64-windows\\msys2-20150512\\mingw32\\lib","--extra-lib-dirs=C:\\Users\\clint\\AppData\\Local\\Programs\\stack\\x86_64-
cmoore / out.txt
Created Oct 15, 2015
zeromq windows
View out.txt
0MQ Socket Properties
get socket option (Pair): FAIL (0.03s)
*** Failed! Exception: 'ZMQError { errno = 22, source = "getIntOpt", message = "Invalid argument" }' (after 5 tests):
Filedesc (-1)
Use --quickcheck-replay '4 TFGenR 000000159B0C43ED00000000001E8480000000000000DFDE00000003A3529440 0 31 5 0' to reproduce.
get socket option (Pub): FAIL
*** Failed! Exception: 'ZMQError { errno = 22, source = "getIntOpt", message = "Invalid argument" }' (after 1 test):
Filedesc 1
Use --quickcheck-replay '0 TFGenR 000000159B0C43ED00000000001E8480000000000000DFDE00000003A3529440 0 2 2 0' to reproduce.
get socket option (Sub): FAIL