kosh04

#|
;; lispkwd.l

;; ■参考リンク

;; Lisp でキーワードの色付け (キーワードファイルは ~/etc/lisp)
;; http://hie.s64.xrea.com/xyzzy/note/major_mode.html#lisp-mode

;; xyzzy Lisp のシンボルテーブルは大文字小文字を区別するが
;; Common Lisp はデフォルトでは setq/SETQ のように大文字小文字を区別しない.

youz

;;; regexp-reader for xyzzy

;;  #/(a+)b/
;;    -> "\\(a+\\)b"
;;  #/(a|b|xyz){2,3}/
;;    -> "\\(a\\|b\\|xyz\\)\\{2,3\\}"
;;   #/[^\[\-\]\d]+/)
;;    -> "[^][0-9-]+"

;;; -*- mode:Lisp; coding:shift-jis -*-

youz

;;; Tetrlang Interpreter for xyzzy

;;; 元ネタ
;;; わーい、テトリス言語 Tetrlang 完成したよー＼（＾o＾）／
;;; http://d.hatena.ne.jp/athos/20100707/tetrlang

(defpackage :tetrlang
  (:use :lisp :editor))

(in-package :tetrlang)

youz

;;; -*- mode:lisp; package:shobon -*-

;;; forked from http://pc12.2ch.net/test/read.cgi/software/1226425897/809
;;;
;;; *usage*
;;; M-x shobon
;;; M-x shobon-toggle-status
;;; M-x shobon-toggle-modeline

(defpackage :shobon

southly

1	constant	引数をひとつとって、該当する定数リストをスタックにプッシュ
2	global_set	スタックのトップをグローバル変数に設定
3	global_ref	グローバル変数を参照し、スタックにプッシュ
4	lexical_set	スタックのトップをレキシカル変数に設定
5	lexical_ref	レキシカル変数を参照し、スタックにプッシュ
8	local_set	スタックのトップをローカル変数に設定
9	local_ref	ローカル変数を参照し、スタックにプッシュ
10	make_closure	引数をひとつとってクロージャを作成し、スタックにプッシュ
11	discard	スタックからポップし、値を破棄
12	goto	引数をひとつとって、goto

kiwanami

;; for kansai_emacs #0x02

(require 'deferred)

;; ■ 基本的使い方

(deferred:$
  (deferred:next 
    (lambda (x) (message "deferred start")))
  (deferred:nextc it

youz

(require "regexp-reader")  ; http://gist.github.com/399913
(require "reut")           ; http://github.com/youz/xyzzy-lisp/blob/master/reut.l

(defpackage :regexp-test
  (:use :lisp :reut))

(in-package :regexp-test)

;;; cl-ppcre-2.0.1/test/simpleより

youz

;;; -*- mode:lisp; package:dom -*-

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "xml-http-request")
  (require "www/www"))

(defpackage dom
  (:use :lisp :editor))

(in-package "dom")

youz

ref. http://twitter.com/gengar68/status/52532965556748288

ぽんぽーぽぽぽぽーぽぽぽぽぽぽーーーーーぽーーーーーぽぽぽぽんぽぽぽぽーーーぽぽ
ーぽぽーーーーーーぽぽぽぽーぽぽんぽーーぽーぽぽんぽぽーーぽんぽーーーぽぽーーー
ーーぽぽぽーぽぽーーーーーーぽーーーーーーーぽーーーーぽーーーーーぽーーーーーー
ぽーーーーーーーーーーーーーーぽぽぽぽぽぽぽぽーぽーぽーーーぽぽーーーーぽぽぽぽ
ぽぽぽーーーーーぽぽぽぽぽぽぽーーーーーーぽぽぽぽぽぽぽーーーーーーーーーーーー
ーーーーーーーーーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽーぽぽぽぽぽぽぽぽぽ
ぽぽぽぽぽぽぽぽぽぽぽーーぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽぽーーぽぽぽぽぽぽぽぽぽ
ぽぽぽぽぽーーぽぽぽぽぽぽぽーーぽぽぽぽぽぽぽぽーーーぽぽぽぽぽぽぽぽーーーーー

youz

(require "ac-mode-lisp")
(require "ldoc2")
(require "paren")

(require "xl-repl")
(push 'lisp-repl-mode ed::*ldoc-activated-mode-list*)
(push 'lisp-repl-mode ed::*ac-mode-lisp-mode*)

;; *startup-hook*の前に*lisp-mode-hook*も実行するので
;; 被ってる物は不要