youz

(in-package :editor)

(defvar *shell-mode-keyword-file* "Shell")
(defvar *shell-mode-keyword-table* nil)

(defun shell-mode-enable-highlighting ()
  (when *shell-mode-keyword-file*
    (unless *shell-mode-keyword-table*
      (setq *shell-mode-keyword-table*
	    (load-keyword-file *shell-mode-keyword-file*)))

youz

;;; -*- mode:lisp;package:editor -*-

;;; go-mode.l --- Major mode for the Go programming language

;;; Commentary:

;;; To do:

;; * Indentation is *almost* identical to gofmt
;; ** We think struct literal keys are labels and outdent them

youz

(let ((fields '("Buffer" "Size" "Path"))
      (data (loop for b in (buffer-list) collect
              (list (buffer-name b) (buffer-size b) (get-buffer-file-name b))))
      (header '(("Buffer List" :bold t :foreground 7 :background 14 :extend t))))
  (tbl:create-table-view "*buffers*" fields data :header-lines header))

youz

;;; -*- mode:lisp; package:quick-reference -*-

;; Copyright (c) 2012  Yousuke Ushiki
;;
;; Permission is hereby granted, free of charge, to any person obtaining a copy
;; of this software and associated documentation files (the "Software"), to deal
;; in the Software without restriction, including without limitation the rights
;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
;; copies of the Software, and to permit persons to whom the Software is
;; furnished to do so, subject to the following conditions:

youz

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "http-client")
  (require "xl-open-uri/package"))

(defpackage :xl-open-uri.provider.fizzbuzz
  (:use :lisp :editor))

(in-package :xl-open-uri.provider.fizzbuzz)

(defun open-uri (uri &rest opts)

youz

;;; -*- mode:lisp; package:battery -*-

(provide "battery")

(defpackage :battery
  (:use :lisp :editor))

(in-package :battery)
(export '(get-status))

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*も実行するので
;; 被ってる物は不要

youz

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

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

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

(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より