Masashi Sakurai kiwanami
kiwanami
/ mime-image-deferred.el
Created
November 12, 2010 16:33
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
| ;; MIME Image override | |
| ;; Dependent on | |
| ;; deferred.el, concurrent.el, ImageMagick | |
| ;; Test on Emacs 23.1, SEMI 1.14.6 | |
| (eval-after-load "mime-image" | |
| '(progn | |
| (let ((rule '(image jpg jpeg))) | |
| (ctree-set-calist-strictly | |
| 'mime-preview-condition |
kiwanami
/ iiimecf-setting.el
Created
December 5, 2010 15: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
| ;; ATOK X3 IIIMECF | |
| ;; 基本設定 | |
| (setq iiimcf-server-control-hostlist | |
| (list (concat "/tmp/.iiim-" (user-login-name) "/:0.0"))) | |
| (require 'iiimcf-sc) | |
| (setq iiimcf-server-control-default-language "ja") | |
| (setq iiimcf-server-control-default-input-method "atokx3") | |
| (setq default-input-method 'iiim-server-control) |
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
| (require 'concurrent) | |
| (defun make-svg (num) | |
| (let ((op (/ num 20.0)) | |
| (tmp | |
| "<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\" | |
| \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\"> | |
| <svg width=\"200\" height=\"200\" xmlns=\"http://www.w3.org/2000/svg\"> | |
| <filter id=\"Blur\" > | |
| <feGaussianBlur stdDeviation=\"%BL%\"/> |
kiwanami
/ ac-yas-expand-conf.el
Created
December 21, 2010 15: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
| ;;; yasnippet and auto-complete | |
| (defvar ac-yas-expand-autostart-backup nil "保存用") | |
| (defun ac-yas-expand-start () | |
| "yasnippet展開開始時にはACを止める" | |
| (setq ac-yas-expand-autostart-backup ac-auto-start) | |
| (setq ac-auto-start nil)) | |
| (defun ac-yas-expand-end () |
kiwanami
/ calfw-howm-fast.el
Created
January 13, 2011 15:45
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
| ;; cfw:howm-from-calendar-fast | |
| (defun cfw:howm-from-calendar-fast () | |
| (interactive) | |
| (let* ((mdy (cfw:cursor-to-nearest-date)) | |
| (m (calendar-extract-month mdy)) | |
| (d (calendar-extract-day mdy)) | |
| (y (calendar-extract-year mdy)) | |
| (key (format-time-string | |
| howm-date-format |
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
| # name : defvar template | |
| # group : defvar | |
| # contributor : kiwanami | |
| # -- | |
| (defvar ${1:`(save-excursion | |
| (let ((re "(def\\\\(un\\\\|var\\\\)[ \t\n]*\\\\([a-z0-9]*[:-]\\\\)")) | |
| (cond | |
| ((or | |
| (re-search-backward re nil t) | |
| (re-search-forward re nil t)) |
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
| (defun toggle-let-astah-search-let () | |
| (save-excursion | |
| (let ((point-min (point-min)) | |
| (re "(\\(lexical-\\)?let\\(\\*\\)?") | |
| (continue t) pos ast ret) | |
| (while (and continue (/= (point-min) (point))) | |
| (goto-char (or (ignore-errors (scan-lists (point) -1 1)) | |
| (point-min))) | |
| (save-excursion | |
| (when (and (looking-at re) (re-search-forward re nil t)) |
kiwanami
/ get-websequencediagrams.el
Created
January 26, 2011 17:11
get a diagram from websequencediagrams.com via API
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
| (require 'deferred) | |
| (deferred:$ | |
| (deferred:url-post "http://www.websequencediagrams.com/" '((message | |
| "Alice->Bob: Authentication Request | |
| note right of Bob: Bob thinks about it. | |
| Bob-->Alice: Authentication Response | |
| note over A,B: text1 | |
| note left of A: text2 | |
| note right of A |
kiwanami
/ chrome-cacoo-local-capture.rb
Created
February 20, 2011 12:45
transferring capture images to the cacoo editor on Google Chrome
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
| #! /usr/bin/env ruby | |
| # -*- coding: utf-8 -*- | |
| # Time-stamp: <2011-02-20 21:44:14 sakurai> | |
| # ImageMagick: import, identify | |
| # coreutils: base64 | |
| # chrome: ChromeRepl extension | |
| # ruby: google-chrome-client |
kiwanami
/ anything-teiden.el
Created
March 19, 2011 05:54
停電情報を引いてくる。 (参考: http://codnote.net/2011/03/14/unite-teiden/)
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-teiden.el | |
| ;; Copyright (C) 2011 kiwanami | |
| ;; GPL 3 | |
| ;; thanks! > @fizsoft, Google, @sora_h | |
| (require 'deferred) | |
| (defvar anything-teiden-csv-cache nil) |