Takeshi Banse hchbaw
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
/ 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
/ 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
/ 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
/ 0001-Delete-even-if-the-first-member-of-overlays-is-IT.patch
Created
February 26, 2010 17:41
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 388bdc585dc6fd64d2be2c9fe02a47963aad00dd Mon Sep 17 00:00:00 2001 | |
| From: Takeshi Banse <[email protected]> | |
| Date: Sat, 27 Feb 2010 02:25:33 +0900 | |
| Subject: Delete even if the first member of overlays is IT. | |
| --- | |
| /anything.el | 3 ++- | |
| 1 files changed, 2 insertions(+), 1 deletions(-) | |
| diff --git a/anything.el b/anything.el |
hchbaw
/ 0002-If-the-source-does-not-match-try-next.patch
Created
February 26, 2010 17:41
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 a382a04a3a9515bf34b56f58107920670908bd27 Mon Sep 17 00:00:00 2001 | |
| From: Takeshi Banse <[email protected]> | |
| Date: Sat, 27 Feb 2010 02:27:40 +0900 | |
| Subject: If the source does not match, try next | |
| and if overlay has been there already, try next, too. | |
| --- | |
| /anything.el | 21 ++++++++++++++------- | |
| 1 files changed, 14 insertions(+), 7 deletions(-) |
hchbaw
/ any-source-visible-mark.el
Created
February 26, 2010 18: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.el で今見えている候補群を一挙にマークする anything 実行中用コマンド | |
| ;; http://d.hatena.ne.jp/hchbaw/20100226/1267200447 | |
| (defun my-anything-activate-source-visible-mark () | |
| "Activate the visible mark for each candidate of the current source." | |
| (interactive) | |
| (my-anything-activate-source-visible-mark-1)) | |
| (defun my-anything-deactivate-source-visible-mark () | |
| "Deactivate the visible mark for each candidate of the current source." | |
| (interactive) |
hchbaw
/ anything-git-status-from-zle.el
Created
March 31, 2010 13:42
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-git-status-from-zle | |
| ;;; Powered by the rubikitch's anything-zsh-history-from-zle | |
| ;;; http://d.hatena.ne.jp/rubikitch/20091208/anythingzsh | |
| ;;; Thank you very much rubikitch! | |
| (require 'anything-menu) | |
| (defgroup anything-git-status nil | |
| "anything-git-status" | |
| :prefix "anything-git-status-" |
hchbaw
/ gitcheckout.zprof.out
Created
April 5, 2010 13:19
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
| num calls time self name | |
| ----------------------------------------------------------------------------------- | |
| 1) 1 16081.50 16081.50 98.07% 16081.50 16081.50 98.07% _multi_parts | |
| 2) 1 16322.81 16322.81 99.55% 238.60 238.60 1.46% __git_files | |
| 3) 2 16371.33 8185.67 99.84% 45.05 22.53 0.27% _git | |
| 4) 1 16393.63 16393.63 99.98% 21.37 21.37 0.13% _main_complete | |
| 5) 1 3.76 3.76 0.02% 3.76 3.76 0.02% precmd | |
| 6) 1 16323.95 16323.95 99.55% 1.14 1.14 0.01% __git_cached_files | |
| 7) 1 16324.99 16324.99 99.56% 0.95 0.95 0.01% _call_function | |
| 8) 1 16083.38 16083.38 98.09% 0.87 0.87 0.01% _all_labels |
hchbaw
/ gitcheckout.zprof.out
Created
April 5, 2010 14:32
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
| num calls time self name | |
| ----------------------------------------------------------------------------------- | |
| 1) 1 240.92 240.92 93.33% 235.62 235.62 91.27% __git_files | |
| 2) 1 251.91 251.91 97.58% 8.24 8.24 3.19% _git | |
| 3) 1 4.02 4.02 1.56% 4.02 4.02 1.56% precmd | |
| 4) 1 1.36 1.36 0.53% 1.28 1.28 0.50% _path_files | |
| 5) 1 242.16 242.16 93.81% 1.24 1.24 0.48% __git_cached_files | |
| 6) 1 254.13 254.13 98.44% 1.23 1.23 0.48% _main_complete | |
| 7) 3 1.91 0.64 0.74% 1.17 0.39 0.45% _description | |
| 8) 4 0.97 0.24 0.38% 0.97 0.24 0.38% _setup |