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
(global-set-key (kbd "C-c t") | |
(lambda () | |
(interactive) | |
(let ((current-prefix-arg '(4))) | |
(call-interactively 'shell-command)))) |
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 kb-light (&optional up-down) | |
(interactive) | |
(require 'dbus) | |
(cl-flet ((kb-light-call (method &rest args) | |
(apply #'dbus-call-method | |
:system | |
"org.freedesktop.UPower" | |
"/org/freedesktop/UPower/KbdBacklight" | |
"org.freedesktop.UPower.KbdBacklight" | |
method |
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/local/bin/csi -script | |
(use args) | |
(define opts | |
(list (args:make-option (c cookie) #:none "give me cookie" | |
(print "cookie was tasty")) | |
(args:make-option (d depth) #:optional "debug level [default: 1]" | |
(print "depth: arg is " arg)) | |
(args:make-option (e elephant) #:required "flatten the argument" | |
(print "elephant: arg is " arg)) |
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
;;; -*- lexical-binding: t -*- | |
;;(package-initialize) | |
(setq esup-child-profile-require-level 0) | |
(defconst d/emacs-start-time (current-time)) | |
(setq gc-cons-threshold 64000000) | |
(add-hook 'after-init-hook (lambda () | |
;; restore after startup | |
(setq gc-cons-threshold 800000))) | |
;; [[file:~/dotfiles/emacs.d/init.org::*Personal%20Info][Personal Info:1]] |
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/local/bin/csi -s | |
(use dbus) | |
(: main (-> string)) | |
(define (main) | |
(let* ((kb-light (make-context | |
#:bus system-bus | |
#:service 'org.freedesktop.UPower | |
#:interface 'org.freedesktop.UPower.KbdBacklight |
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
;;; -*- lexical-binding: t -*- | |
(let ((temp-init-dir (expand-file-name ".emacs.d/" temporary-file-directory))) | |
(mkdir temp-init-dir 'parents) | |
(setq user-emacs-directory temp-init-dir)) | |
(package-initialize) | |
(add-to-list 'package-archives | |
'("melpa-stable" . "https://melpa.org/packages/") t) |
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
(import-for-syntax (srfi 1) | |
(srfi 13) | |
(chicken format) | |
(chicken foreign) | |
(chicken string)) | |
(import (only (rename scheme (make-rectangular %make-rectangular)) %make-rectangular)) | |
(define-syntax complex-foreign-lambda | |
(ir-macro-transformer |
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
(functor (generic-vector (M (valloc | |
vset! | |
vlength | |
vref | |
vfill! | |
vcopy! | |
vswap! | |
vreverse! | |
vnull? | |
vpositive? |