View lisprb.lisp
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
(declaim (optimize (speed 3) (safety 1) (space 1) (debug 1) (compilation-speed 1))) | |
(defconstant +width+ 1280) | |
(defconstant +height+ 720) | |
(defconstant +samples+ 50) | |
(defconstant +max-depth+ 5) | |
(defstruct (vec | |
(:conc-name v-) |
View list.lisp
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
;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*- | |
(in-package :split-sequence) | |
(declaim (inline | |
collect-until | |
count-while | |
split-list split-list-if split-list-if-not | |
split-list-from-end split-list-from-start split-list-internal)) |
View gist:124c4eff0273e8d0b477bfecf11774f8
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
(defcommand screen-single () () | |
(loop with laptop = "eDP1" | |
with extern = "DP1" | |
for (output commands) in `((,laptop ("--primary")) | |
(,extern ("--off")) | |
(,laptop ("--preferred"))) | |
do (uiop:run-program `("xrandr" "--output" ,output ,@commands)))) | |
(defcommand screen-multi () () | |
(loop with laptop = "eDP1" |
View move-focus.lisp
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
(defcommand move-focus* (direction) | |
((:direction "Enter a direction: ")) | |
(labels ((in-float-p () | |
(typep (current-group) 'float-group)) | |
(focus-first-frame () | |
(unless (in-float-p) | |
(dotimes (i 10) | |
(move-focus (ecase direction | |
(:left :right) | |
(:right :left)))))) |
View lol.lisp
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
(defcommand wrapping-move-focus (direction) | |
((:direction "Enter a direction: ")) | |
(let ((frame (current-frame))) | |
(move-focus direction) | |
(when (eql frame (current-frame)) | |
(ecase direction | |
(:right (gnext) (dotimes (i 10) (move-focus :left))) | |
(:left (gprev) (dotimes (i 10) (move-focus :left))))))) |
View pro
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
#!/usr/bin/env bash | |
set -eio pipefail | |
ssh -t "0.backends.$2.$1" postgres-readonly |
View gist:f9b589af22c1ac27b2de06fb3e97bfae
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
TIER | ITEM-KEY | DISPLAY-NAME | |
0 | PLANT | [Plant] | |
0 | GODSHROOM | &oelcatl | |
0 | SHIMSCALE-MANGROVE-TREE_BLUE | shimscale mangrove tree | |
0 | SHIMSCALE-MANGROVE-TREE | shimscale mangrove tree | |
0 | BANANA-TREE | banana tree | |
0 | SPOTTED-SHAGSPOOK-1 | spotted shagspook | |
0 | SPOTTED-SHAGSPOOK-2 | spotted shagspook | |
0 | DANDY-CAP-1 | dandy cap | |
0 | DANDY-CAP-2 | dandy cap |
View gist:fe8d9dfa35cdc9268fde52123f3b0b0a
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
TIER | ITEM-KEY | DISPLAY-NAME | |
0 | PLANT | [Plant] | |
0 | GODSHROOM | &oelcatl | |
0 | SHIMSCALE-MANGROVE-TREE_BLUE | shimscale mangrove tree | |
0 | SHIMSCALE-MANGROVE-TREE | shimscale mangrove tree | |
0 | BANANA-TREE | banana tree | |
0 | SPOTTED-SHAGSPOOK-1 | spotted shagspook | |
0 | SPOTTED-SHAGSPOOK-2 | spotted shagspook | |
0 | DANDY-CAP-1 | dandy cap | |
0 | DANDY-CAP-2 | dandy cap |
View clhs.ros
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
#!/bin/sh | |
#|-*- mode:lisp -*-|# | |
#| | |
exec ros -Q -- $0 "$@" | |
|# | |
#| | |
A Roswell script to open the HyperSpec page of a specified symbol in the default browser. |
View test.lisp
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 instrument-candles (&key | |
((:instrument instrument)) | |
((:price price) "M") | |
((:granularity granularity) "S5") | |
((:count count) 500) | |
((:from from) | |
(write-to-string | |
(local-time:timestamp-to-unix | |
(local-time:timestamp- (local-time::now) 5 :minute)))) | |
((:to to) |
NewerOlder