Takeshi Banse hchbaw
hchbaw
/ diff0.html
Created
February 26, 2010 13:30
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"> | |
| <!-- Created by htmlize-1.37 in css mode. --> | |
| <html> | |
| <head> | |
| <title>*ansi-term*</title> | |
| <style type="text/css"> | |
| <!-- | |
| body { | |
| background: #000000; | |
| color: #cccccc; |
hchbaw
/ any-follow.el
Created
February 12, 2010 16:02
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defmacro with-my-anything-follow-mode (push-mark &rest body) | |
| (declare (indent 1)) | |
| (let ((gf (gensym))) | |
| `(letf (((symbol-function 'push-mark) | |
| (symbol-function 'ignore))) | |
| (letf* ((,gf | |
| (symbol-function 'anything-initialize-overlays)) | |
| ((symbol-function 'anything-initialize-overlays) | |
| (lambda (buffer) | |
| (funcall ,gf buffer) |
hchbaw
/ swank_fuzzy.clj.diff
Created
February 12, 2010 15:53
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/src/swank/commands/contrib/swank_fuzzy.clj b/src/swank/commands/contrib/swank_fuzzy.clj | |
| index b770af1..79a240f 100644 | |
| --- a/src/swank/commands/contrib/swank_fuzzy.clj | |
| +++ b/src/swank/commands/contrib/swank_fuzzy.clj | |
| @@ -247,7 +247,8 @@ (defn- fuzzy-generate-matchings | |
| (find-vars parsed-symbol-name | |
| (:ns ns-matching) | |
| (make-duplicate-var-filter | |
| - (filter (partial = ns-matching) | |
| + (filter (partial |
hchbaw
/ enlive.clj
Created
February 5, 2010 16:17
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (in-ns 'user) | |
| (require 'clojure.contrib.prxml) | |
| (require 'clojure.test) | |
| (require 'net.cgrand.enlive-html) | |
| (in-ns 'net.cgrand.enlive-html) | |
| (use '[clojure.contrib.prxml :only [prxml]]) | |
| (use '[clojure.test :only [are is]]) |
hchbaw
/ example.lisp
Created
January 28, 2010 16:18
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (in-package :tp) | |
| ;; example | |
| ;;; utilities | |
| (defun pair* (&rest fns) | |
| #'(lambda (&rest args) | |
| (labels ((rec (fns acc) | |
| (if (null fns) |
hchbaw
/ dot.emacs.el
Created
December 22, 2009 18:30
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; Clojure 用に slime-cursor-marker を設定しちゃいます、同時に、 | |
| ;; CL 用 (sbcl) に swank::+cursor-marker+ を上書きしちゃいます。 | |
| (setq slime-lisp-implementations | |
| `((sbcl ("sbcl") :init-function my-swank-cl-init) | |
| (clojure ,(swank-clojure-cmd) :init swank-clojure-init))) | |
| (eval-after-load 'slime-autodoc | |
| '(progn | |
| (setq slime-cursor-marker :swank/+cursor+))) | |
| (eval-after-load 'slime | |
| '(progn |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; 裸のシンボルの値も表示させちゃおうという改悪でした。 ^^;; | |
| ;; (eval-after-load 'slime | |
| ;; '(progn | |
| ;; (fset 'slime-autodoc-worthwhile-p (lambda (&rest _) t)))) |
hchbaw
/ 0001-Adapted-to-new-code.patch
Created
December 21, 2009 15:05
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| From b1dd9672cf42c1fe6da995cdc57783f1301a391d Mon Sep 17 00:00:00 2001 | |
| From: Takeshi Banse <[email protected]> | |
| Date: Wed, 6 Jan 2010 00:46:48 +0900 | |
| Subject: Adapted to new code. | |
| --- | |
| CL バージョンがいたれりつくせりすぎます！ということをとっても実感できます＞＜ | |
| src/swank/commands/contrib/swank_arglists.clj | 12 ++++++++++++ | |
| 1 files changed, 12 insertions(+), 0 deletions(-) |
hchbaw
/ anything-complete.el.patch
Created
November 11, 2009 16:28
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| --- anything-complete.el.orig 2009-11-12 00:20:21.504232258 +0900 | |
| +++ anything-complete.el 2009-11-12 00:20:43.947491221 +0900 | |
| @@ -419,7 +419,11 @@ (defun alcs-transformer-prepend-spacer ( | |
| (let ((column (with-current-buffer anything-current-buffer | |
| (save-excursion | |
| (backward-char (string-width anything-complete-target)) | |
| - (alcs-current-physical-column))))) | |
| + (let ((col (alcs-current-physical-column))) | |
| + (if (< col 0) | |
| + (- (point) |
hchbaw
/ anything-show-completion.el.patch
Created
November 11, 2009 16:15
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| --- anything-show-completion.el.orig 2009-11-11 22:10:01.705504508 +0900 | |
| +++ anything-show-completion.el 2009-11-11 22:10:10.169480576 +0900 | |
| @@ -245,7 +245,7 @@ (defun asc-display-function (buf) | |
| (count-screen-lines | |
| (window-start) | |
| (point))) | |
| - (- (frame-height) anything-show-completion-minimum-window-height)))))))) | |
| + (- (window-height) anything-show-completion-minimum-window-height)))))))) | |
| (with-selected-window win | |
| (recenter -1)) |