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 toggle-case (string) | |
""aBcDe1" -> "AbCdE1"" | |
(do* ((i 0 (+ i 1)) | |
(len (length string)) | |
(res string)) | |
((equal i len) res) | |
(let ((ele (aref string i))) | |
(if (< (char-code ele) 91) ; ascii A 65 ~ Z 90, a 97 ~ z 122 | |
(setf (aref string i) (char-downcase ele)) | |
(setf (aref string i) (char-upcase ele)))))) |
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 toggle-case (string) | |
""aBcDe" -> "AbCdE"" | |
(do* ((i 0 (+ i 1)) | |
(len (length string)) | |
(res string)) | |
((equal i len) res) | |
(let ((ele (aref string i))) | |
(if (< ele 91) ; ascii A 65 ~ Z 90, a 97 ~ z 122 | |
(aset string i (downcase ele)) |
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 st (port) | |
(ccl:with-open-socket (socket :connect :passive | |
:format :text | |
:local-port port | |
:reuse-address t) | |
(with-open-stream (stream (ccl:accept-connection socket)) | |
(princ "CCL example response" stream)))) | |
; example call | |
(st 20000) |
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
/////////////////////////////////////////////////////////// | |
// Object Control Panel scheme resource file | |
// | |
// sections: | |
// Colors - all the colors used by the scheme | |
// BaseSettings - contains settings for app to use to draw controls | |
// Fonts - list of all the fonts used by app | |
// Borders - description of all the borders | |
// | |
// hit ctrl-alt-shift-R in the app to reload this file |
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
/////////////////////////////////////////////////////////// | |
// Tracker scheme resource file | |
// | |
// sections: | |
// Colors - all the colors used by the scheme | |
// BaseSettings - contains settings for app to use to draw controls | |
// Fonts - list of all the fonts used by app | |
// Borders - description of all the borders | |
// | |
/////////////////////////////////////////////////////////// |
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
pi@startx ~ $ cat probe.pl | |
#!/usr/bin/perl | |
$file_name = "tex.txt"; | |
open(TEXT, $file_name); | |
$out_string = <TEXT>; | |
close (TEXT); | |
@ascii_character_numbers = unpack("C*", "$out_string"); | |
print "@ascii_character_numbers\n"; |
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
;; rpi - [hdmi] - [hdmi -> dvi + audio] - [dvi -> d-sub] - [d-sub] - u2410 | |
;; - [dvi] - [dvi] - u2410 | |
;; rpi - [hdmi] - [hdmi -> dvi] - [dvi selector] - [dvi -> hdmi] - [hdmi -> d-sub] - [d-sub] - u2410 | |
;; - [dvi] - [dvi] -u2410 | |
rpi - [hdmi] - [hdmi splitter] - [hdmi -> d-sub + audio] - [d-sub] - u2410 | |
- [hdmi -> dvi] - [dvi] -u2410 | |
dmb - [hdmi] - - [hdmi] - u2410 |
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
;; This buffer is for notes you don't want to save, and for Lisp evaluation. | |
;; If you want to create a file, visit that file with C-x C-f, | |
;; then enter the text in that file's own buffer. | |
this is startx-buffer | |
(async-shell-command "mpv --no-video 'https://www.youtube.com/playlist?list=PLybUJn1adI6uRSBhf0skinofrnkT_jcTN'") | |
;C-c-c stop CHILD | |
(start-process "jujuclub" "jujuclub-musik" "mpv" "https://www.youtube.com/playlist?list=PLybUJn1adI6uRSBhf0skinofrnkT_jcTN") |