はてなブックマーク

.emacsの中で定義していて便利だなと感じる関数／マクロの紹介。 とりあえず、aifとand-let*はUtilityとして必要かなと思います。 他にon-offを切り替えるトグルスイッチ見たいな関数を楽に定義できるdef-toggleというものを定義して使っています。 utilities (require 'cl) (defmacro aif (p true-clause &rest false-clause) (declare (indent 2)) `(let ((it ,p)) (if it ,true-clause ,@false-clause))) (defun singlep (pair) (and (consp pair) (null (cdr pair)))) (defmacro and-let* (exp &rest body) (declare (indent 1)

はじめに clojure,scala,jrubyとかjvmの上に乗った言語は起動がとても遅い。*1 そんなわけで、これをどうにかしたいと思っていたのでした。 emacsclientのようにserverを立ち上げてそれにアクセスするという形にすれば起動は一回で済みそうです。 まだまだ改善の余地がたくさんあるけれど。途中経過。 todo いろいろなオプションに対応していない。 # こんな書式に対応していない*2 portとipアドレスが分かれば他人でも実行できてしまう。 sandbox化した方が安全かも? with-temp-nsを使うと楽(contrib) contribのclasspathを実行時に設定しないとダメなのか。*3 （このあたりもう少し楽にできる方法がないか考え中） how to use clojure nrepl.clj 12345 #server gosh nrepl-cl

emacs側では以下の2つのようなプロセスを呼び出せばいいことに気づいた。 . 動作 その後 this-process 渡されたコマンドを実行して もう一方のprocessが終わってなかったら殺す。 that-process sleepして もう一方のprocessが終わってなかったら殺す。 ;(require 'cl) (defvar spscwt-hooked-process nil) (defvar spscwt-sentinel-function nil) (defun spscwt-process-will-be-kill (that-process &optional this-buf) (lexical-let ((that that-process) (buf this-buf)) (lambda (&rest args) (when (eq 'run (process-s

前回の続き。ghci上でタブを入力することで現れる候補を利用して補完。 でも、エラーもまるごと読み取って捨てているという強引なことをしているので適切な方法とは言えないような気もする。とりあえず、利用することはできるのでまぁいいや。 code (require 'anything) ;;;util (defmacro let1 (var val &rest action) `(let ((,var ,val)) ,@action)) (put 'let1 'lisp-indent-function 2) (defun define-many-keys (key-map key-table) (loop for (key . cmd) in key-table do (define-key key-map key cmd))) (defmacro toggle! (name) `(progn

とりあえず目処は立った。 でも、他の人に進めようとする気にはなれないな。*1 (defmacro toggle! (name) `(progn (setq ,name (not ,name)) (message (format "%s:%s" ,(symbol-name name) ,name)))) (require 'inf-haskell) (defun haskell-send-string (str) (condition-case err (comint-send-string (get-process "haskell") (format "%s\n" str)) (error err))) (defvar haskell-preoutput-filter-functions nil) (defvar haskell-output-storage nil) (defvar h

http://d.hatena.ne.jp/modka/20090820/1250759260 書いてみました。*1 (require 'cl) ;; (defvar raketest-old-color (frame-parameter (selected-frame) 'background-color)) (defvar raketest-output-buffer "*rake test output*") (defvar raketest-success-color "honeydew") (defvar raketest-fail-color "LavenderBlush") ;;util (defsubst raketest-parent-dir (path) "return parent directory path of argument." (substring-no-

emacsの色の設定などを変更したかったので、カーソル位置の文字のfaceの情報を取得したかった。 現在位置のfaceは以下のようにして取得できる (get-char-property (point) 'face) 取得したfaceから設定されている情報をみたい。 face-all-attributesという関数が存在した。 （でも、この関数は継承元まで読んでくれないみたい）*1 face.el中を見てみた face-all-attributesはface-attributeを呼び出す際に、inherit(継承)の部分に値を渡していない*2 (defun face-all-attributes (face &optional frame) "Return an alist stating the attributes of FACE. Each element of the result