Skip to content

Instantly share code, notes, and snippets.

View gabriel-laddel's full-sized avatar

Gabriel Laddel gabriel-laddel

View GitHub Profile
(defmacro maybe-install-and-require (&rest packages)
"If PACKAGES are not installed, `package-install' them, then `require' all
PACKAGES"
(require 'package)
(require 'cl)
(package-initialize)
(window-configuration-to-register :prior-package-install)
(lexical-let* ((old-value package-archives)
(temp-value '(("gnu" . "http://elpa.gnu.org/packages/")
("marmalade" . "http://marmalade-repo.org/packages/")
@gabriel-laddel
gabriel-laddel / gist:11320806
Created April 26, 2014 14:02
Rewrite rules rule!
(in-package vecto)
(use-package 'iterate)
(use-package 'metabang-bind)
(defun generate-instructions (n)
(iter (repeat n)
(for l initially '(:forward a) then
(alexandria:flatten (mapcar (lambda (x) (cond ((equal 'a x) '(a b :forward :right))
((equal 'b x) '(:left a :forward a :left b))
(t x))) l)))
;;; (load "/home/francis/quicklisp/dists/quicklisp/software/slime-20131211-cvs/swank-loader.lisp")
;;; (swank-loader:init)
;;; (swank:create-server :port 4005 :style swank:*communication-style* :dont-close t)
;;;
;;; 4. M-x slime-connect RET RET
;;;
;;; (slime-eval-async '(ql:quickload 'parenscript))
;;; (slime-eval-async '(ql:quickload 'advice-giver))
;;; (ag:server-start!)
;;;
("rbrabrfabr-afaffabffa"
"rarbarlbar-bfbafbrafb"
"lblablfabl-afabfaabfa"
"lblablfabl-abarbaarba"
"lalfalbfal-babfabbfab"
"brbrrbarrb-afabfalbfa"
"bfbafblafb-afaafabafa"
"babrabrrab-rbrfbrafbr"
"bablabllab-flfalfbalf"
"bablabllab-abafbaafba"
@gabriel-laddel
gabriel-laddel / gist:e05be6497ead58605d83
Created May 19, 2014 19:01
Old emacs clojure configuration
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; clojure + clojurescript
;; (remove-hook 'clojure-mode-hook (lambda () (if (= "styles.clj" (buffer-name)) (rainbow-mode))))
;; (remove-hook 'clojure-mode-hook (lambda () (clojure-project-mode t)))
(add-to-list 'auto-mode-alist '("\.cljd$" . clojure-mode))
(add-to-list 'auto-mode-alist '("\.clj$" . clojure-mode))
(add-to-list 'auto-mode-alist '("\.dtm$" . jure-mode))
;; To use library Synonyms, you will need the Moby Thesaurus II file,
;; `mthesaur.txt', available here:
;; ftp://ibiblio.org/pub/docs/books/gutenberg/etext02/mthes10.zip
;; Put this in your initialization file (~/.emacs):
;; ;; The file names are absolute, not relative, locations
;; ;; - e.g. /foobar/mthesaur.txt.cache, not mthesaur.txt.cache
;; (setq synonyms-file <name & location of mthesaur.txt>)
;; (setq synonyms-cache-file <name & location of your cache file>)
;; (require 'synonyms)
SDL Error (#<SDL-GLCONTEXT {#X00000000}>): Could not create GL context
[Condition of type SDL2::SDL-RC-ERROR]
Restarts:
0: [RETRY] Retry SLIME REPL evaluation request.
1: [*ABORT] Return to SLIME's top level.
2: [ABORT] Abort thread (#<THREAD "repl-thread" RUNNING {1005C83313}>)
Backtrace:
0: (SDL2:GL-CREATE-CONTEXT #<SDL2-FFI:SDL-WINDOW {#X7FFFEC0592B0}>)
Error compiling vertex-shader:
0:1(10): error: GLSL 3.30 is not supported. Supported versions are: 1.10, 1.20, 1.30, 1.00 ES, and 3.00 ES
#version 330
layout(location = 0) in vec4 position;
uniform vec4 offset;
Error compiling vertex-shader:
0:5(1): error: syntax error, unexpected NEW_IDENTIFIER
#version 130
layout(location = 0) in vec3 fk_vert_position;
layout(location = 1) in vec4 fk_vert_color;
SLOC Directory SLOC-by-Language (Sorted)
70145 automake-1.14 sh=57736,perl=11756,pascal=644,ansic=9
43219 libtool-2.4.2 sh=37653,ansic=5240,pascal=131,cpp=121,f90=37,fortran=37
30900 make-4.0 ansic=26371,sh=3352,perl=1135,lisp=26,sed=16
6904 autoconf-2.61a.265-feef9 sh=3527,perl=3273,lisp=104
Totals grouped by language (dominant language first):
sh: 102268 (67.65%)
ansic: 31620 (20.92%)