This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;;; masamune customization | |
(in-package #:mm) | |
(sb-ext:restrict-compiler-policy 'debug 3) | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;;; interface to the SynPS/2 Synaptics TouchPad | |
(defun touchpad-id () |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun touchpad-id () | |
"XXX asssumes a single touchpad" | |
(->> "xinput --list" | |
(shell-command-to-string) | |
(downcase) | |
(s-split "\n") | |
(some (lambda (s) (when (s-contains? "touchpad" s) s))) | |
(s-split "id=") | |
(cadr) | |
(s-split " ") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Creating filelist for quicklisp | |
Categorizing files. | |
Finding a working MD5 command.... | |
Found a working MD5 command. | |
Computing results. | |
SLOC Directory SLOC-by-Language (Sorted) | |
4678 quicklisp lisp=4678 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Creating filelist for asdf | |
Categorizing files. | |
Finding a working MD5 command.... | |
Found a working MD5 command. | |
Computing results. | |
SLOC Directory SLOC-by-Language (Sorted) | |
8077 asdf lisp=8057,sh=20 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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%) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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}>) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; 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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;;; 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)) |