dieggsy

(functor (generic-vector (M (valloc
                             vset!
                             vlength
                             vref
                             vfill!
                             vcopy!
                             vswap!
                             vreverse!
                             vnull?
                             vpositive?

dieggsy

(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

dieggsy

;;; -*- 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)

dieggsy

#!/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

dieggsy

;;; -*- 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]]

dieggsy

#!/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))

dieggsy

(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

dieggsy

(global-set-key (kbd "C-c t")
                (lambda ()
                  (interactive)
                  (let ((current-prefix-arg '(4)))
                    (call-interactively 'shell-command))))