kosh04

#!/bin/sh

# http://gist.github.com/500229.txt
if [ "$TERM" = "linux" ]; then
    # NOTE: dumpkeys & loadkeys command enable superuser only
    dumpkeys | sed -e 's/keycode  58 = Caps_Lock/keycode  58 = Control/' | loadkeys
    # echo 'keycode  58 = Control' | loadkeys
else
    # Make CapsLock an additional Ctrl.
    setxkbmap -option ctrl:nocaps

kosh04

#!/usr/bin/newlisp

;; 第1回 Scheme コードバトン (newLISP fork)
;;
;; ■ これは何か？
;;   Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。
;;   次回 Shibuya.lisp で成果を発表します。
;;   Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;;
;; ■ 2 つのルール

kosh04

;; -*- Mode: Lisp; Syntax: Common-Lisp -*-

;;; Package Management
(in-package :cl-user)

(defpackage :hige
  (:use :cl
        :drakma
        :cl-ppcre)
  #+ABCL (:shadow :y-or-n-p)

kosh04

;;; -*- mode: emacs-lisp -*-
;;;
;;; Lisp 関数だけに色付け
;;; http://www.bookshelf.jp/cgi-bin/goto.cgi?file=meadow&node=font-lock-func

;;; Usage:
;; (require 'elisp-font-lock)

;;; Code: