Leif Andersen LeifAndersen
LeifAndersen
/ gist:f2e9466ad541749a4aebc50a28d34d45
Created
December 29, 2018 01:00
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
| #lang scratch | |
| (require video/private/video | |
| video/private/devices) | |
| (provide vid) | |
| (define vid | |
| (make-input-device #:video "screen-capture-recorder")) |
LeifAndersen
/ gist:15738330d117344e2cde8992a9cc7deb
Created
December 28, 2018 21:15
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
| trap "echo q > ctr0; echo q > ctr1; sleep 1; killall -INT ffplay; killall -INT ffmpeg" EXIT | |
| mkfifo prv0 prv1 | |
| mkfifo ctr0 ctr1 | |
| n0=recordings/$(date +"%m%d%y+%H%M")_r0.mp4 | |
| n1=recordings/$(date +"%m%d%y+%H%M")_r1.mp4 | |
| n2=recordings/$(date +"%m%d%y+%H%M")_a0.mp4 | |
| ffplay -i - < prv0 & | |
| cat ctr0 | ffmpeg -y -i /dev/video0 -thread_queue_size 512 -i /dev/video1 \ |
LeifAndersen
/ gist:3228814758d55bb49ca19fd06a44a207
Created
December 19, 2018 18:37
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
| sequence-contract-violation: negative: method change-style cannot be called, except in states (unlocked), args (object:style% ...) 1677 1682 #f | |
| context...: | |
| /home/leif/rsrc/gui/gui-lib/framework/private/color.rkt:456:4: add-coloring/spell method in text-mixin | |
| /home/leif/rsrc/gui/gui-lib/framework/private/color.rkt:421:4: add-colorings method in text-mixin | |
| /home/leif/rsrc/gui/gui-lib/framework/private/color.rkt:357:4: continue-re-tokenize method in text-mixin | |
| /home/leif/rsrc/gui/gui-lib/framework/private/color.rkt:572:4: colorer-driver method in text-mixin | |
| /home/leif/rsrc/gui/gui-lib/framework/private/color.rkt:595:4: colorer-callback method in text-mixin | |
| /home/leif/rsrc/gui/gui-lib/mred/private/wx/common/queue.rkt:435:6 | |
| /home/leif/rsrc/gui/gui-lib/mred/private/wx/common/queue.rkt:486:32 | |
| /home/leif/rsrc/gui/gui-lib/mred/private/wx/common/queue.rkt:634:3 |
LeifAndersen
/ gist:631eaf27dfcfcc364efc8a12ca08dc9a
Created
December 13, 2018 20:09
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 lift scratch | |
| (#%plain-module-begin | |
| (#%require pict/code | |
| scribble/base) | |
| (splicing-parameterize ([current-code-font "Inconsolata"]) | |
| (include-section "sec.rkt")))) |
LeifAndersen
/ gist:861fc5babb2b2ccb5d4d7973993a5de9
Created
December 13, 2018 18:12
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
| #lang racket | |
| (require syntax/parse/define | |
| (for-syntax syntax/parse | |
| racket/base | |
| racket/syntax)) | |
| (define-syntax-parser foo | |
| [(_ headers ... body ...) | |
| #:when (for/fold ([good? #t]) |
LeifAndersen
/ approach.scrbl
Last active
December 10, 2018 22:09
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
| #lang reader "lang.rkt" | |
| @title{A Section} |
LeifAndersen
/ gist:4c8816574f5a777a1c4e85aa6cb96d03
Created
November 24, 2018 21:02
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
| #lang at-exp racket/unit | |
| (require framework | |
| drracket/tool | |
| racket/gui | |
| racket/port | |
| racket/format | |
| racket/class) | |
| (import drracket:tool^) |
LeifAndersen
/ gist:0d6a3a00ef4f90dc6a3f043adebac0ea
Created
November 19, 2018 23:42
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
| #lang at-exp racket/unit | |
| (require drracket/tool | |
| racket/port | |
| racket/format | |
| racket/class) | |
| (import drracket:tool^) | |
| (export drracket:tool-exports^) |
LeifAndersen
/ gist:59852e811826715a50f2108dde526cbc
Created
November 19, 2018 23:23
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
| #lang at-exp racket/unit | |
| (require drracket/tool | |
| racket/port | |
| racket/format | |
| racket/class) | |
| (import drracket:tool^) | |
| (export drracket:tool-exports^) |
LeifAndersen
/ gist:94488e6937fa09fb96cde8234bd539ba
Created
November 13, 2018 19:41
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 blar racket | |
| (#%plain-module-begin | |
| (foo) | |
| (writeln (foo)) | |
| (define-syntax (foo stx) | |
| #'(lambda () (writeln 42))))) |