kisp

! -*- mode:conf-xdefaults -*-

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! solarized
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! Solarized color scheme for the X Window System
!
! http://ethanschoonover.com/solarized

kisp

# ~/.gtkrc-2.0
gtk-theme-name="Clearlooks"

kisp

# ~/.config/gtk-3.0/settings.ini
[Settings]
gtk-theme-name=Adwaita
gtk-icon-theme-name=Adwaita
gtk-font-name=Cantarell 11
gtk-cursor-theme-name=Adwaita
gtk-cursor-theme-size=0
gtk-toolbar-style=GTK_TOOLBAR_BOTH
gtk-toolbar-icon-size=GTK_ICON_SIZE_LARGE_TOOLBAR
gtk-button-images=1

kisp

-- psql -f f.sql

update pg_database set datallowconn = TRUE where datname = 'template0';

\c template0

update pg_database set datistemplate = FALSE where datname = 'template1';

drop database template1;

kisp

sudo add-apt-repository -y ppa:ubuntu-elisp/ppa
sudo apt-get update
sudo apt-get install -y emacs-snapshot
sudo apt-get purge -y emacs24 emacs24-bin-common emacs24-common emacs24-common-non-dfsg

emacs --version
emacsclient --version
etags --version

kisp

(defun prompt-for-password ()
  (format t "Password: ")
  (force-output)
  (with-echoing-disabled
    (prog1
        (read-line)
      (terpri))))

(format t "got ~S~%" (prompt-for-password))

kisp

(restart-case
    (progn
      (setq sb-ext:*invoke-debugger-hook* nil
            cl:*debugger-hook* nil)
      (break "~S" variable-of-interest)) ;or just (break)
  (exit ()
    :report (lambda (stream) (format stream "Exit with (sb-ext:exit)"))
    (sb-ext:exit)))

kisp

Setting real-time priority for a thread in sbcl

This is a small hack that shows how to set real-time priority for a thread in Common Lisp using sbcl by calling pthread_setschedparam(3). The code should be easily adaptable for other Common Lisp implementations.

The effect of doing so can be observed by calling ps(1) and chrt(1).

The cffi based code needed is in the file setschedparam.lisp. The file main.lisp serves as a demo.

kisp

#!/bin/bash

set -euxo pipefail

cd "$(dirname "$0")"

export UNISON=$(pwd)/.unison

mkdir -p "$UNISON"

kisp

(in-package :cl-user)

;; (ql:quickload '("alexandria" "trivia"))

;; Let's define maybe as an algebraic data type.
(defstruct (nothing (:constructor nothing ())))
(defstruct (just (:constructor just (value))) value)
(deftype maybe () '(or nothing just))

;; (>>=) :: Monad m => m a -> (a -> m b) -> m b