This file contains hidden or 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
(defpackage #:dixit/conf | |
(:use :cl) | |
(:export | |
#:*db-name* | |
#:*db-host* | |
#:*db-port* | |
#:*db-timeout*)) | |
(in-package :dixit/conf) | |
(defvar *db-name*) |
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
This file contains hidden or 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
(defpackage :famiclom-tests* | |
(:use :cl :famiclom :hu.dwim.stefil)) | |
(in-package :famiclom-tests*) | |
(defsuite (input-suite :in root-suite) | |
(run-child-tests)) | |
(in-suite input-suite) | |
;; Buttoms should not be set on 0 |
This file contains hidden or 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 sly-copy-next-sexp (results key-name) | |
(kill-ring-save (point) (save-excursion (forward-sexp) (point))) | |
(cl-acons key-name (substring-no-properties (current-kill 0)) results)) | |
(defun sly-extract-slyfuns () | |
"Return a list of alists of the form ((slyfun-name ...) (slyfun-doc-string ...))." | |
(with-current-buffer "slynk.lisp" | |
(goto-char (point-min)) | |
(cl-loop | |
with results = nil |
This file contains hidden or 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
(ql:quickload :lispbuilder-sdl) | |
(in-package :lispbuilder-sdl) | |
(defparameter *radius* 50 "The radius of the button in Pixels.") | |
(defparameter *active-color* (sdl:color :r 178 :g 178 :b 178)) | |
(defparameter *inactive-color* *magenta*) | |
(defvar *active* 0 "The index of the 'active' circle.") | |
(defparameter *positions* (list (point :x 300 :y 100) ; Top |
This file contains hidden or 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
#!/usr/bin/js | |
var fs = require('fs'); | |
var escodegen = require('escodegen'); | |
var inputFile = process.argv[2] ? process.argv[2] : "/home/puercopop/tmp.js"; | |
var outputFile = process.argv[3] ? process.argv[3] : "/home/puercopop/a.js"; | |
var code; | |
fs.readFile(inputFile, 'utf8', function (err, data) { |
This file contains hidden or 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
LISPKIT> (load-ui-from-file (asdf:system-relative-pathname :lispkit "main.ui")) | |
#<GTK-BUILDER {10070732D3}> | |
LISPKIT> (gtk:gtk-builder-get-object #<GTK-BUILDER {10070732D3}> "webviewcontainer" ) | |
NIL | |
LISPKIT> (gtk:gtk-builder-get-object #<GTK-BUILDER {10070732D3}> "mainwindow" ) | |
NIL | |
LISPKIT> (asdf:system-relative-pathname :lispkit "main.ui") | |
#P"/home/puercopop/quicklisp/local-projects/lispkit/main.ui" | |
LISPKIT> (gtk:gtk-builder-get-object #<GTK-BUILDER {10070732D3}> "scrolledwindow" ) | |
NIL |
This file contains hidden or 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
xkb_keymap { | |
xkb_keycodes "evdev+aliases(qwerty)" { | |
minimum = 8; | |
maximum = 255; | |
<ESC> = 9; | |
<AE01> = 10; | |
<AE02> = 11; | |
<AE03> = 12; | |
<AE04> = 13; | |
<AE05> = 14; |
This file contains hidden or 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
#!/usr/bin/cl -Q -sp coleslaw --entry entry | |
;;;; | |
;; This script assumes it is executed from the repository's top level directory | |
;; to determine correctly the blog-dir variable. | |
;;;; | |
;; (coleslaw:preview #P"/home/puercopop/Projects/RunaRimac/hello-world.md") | |
(defun entry (argv) | |
(declare (ignorable argv)) | |
(let |
This file contains hidden or 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
(module sicp mzscheme | |
;;; PLT Picture Language | |
(provide (all-from "painters.ss")) | |
(require "painters.ss") | |
;;; STREAMS | |
(provide cons-stream) | |