Masashi Sakurai kiwanami
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
| ;; GPL v3 | |
| (require 'bindat) | |
| (defvar twic-template "wget -q -S http://img.tweetimag.es/i/%s -O %s") | |
| (defun twic (name) | |
| (interactive "sTwitter ID : ") | |
| (let ((png (format "/tmp/%s.png" name)) | |
| (ppm (format "/tmp/%s.ppm" name))) |
kiwanami
/ thread-sample.el
Created
April 18, 2011 04:11
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) | |
| (lexical-let ((count 10) | |
| (task-a (lambda () (insert "A"))) | |
| (task-b (lambda () (insert "B")))) | |
| (cc:thread | |
| 1000 | |
| (while (< 0 (decf count)) | |
| (funcall (if (= 0 (% count 2)) task-a task-b))))) |
kiwanami
/ iiimcf-yc.el
Created
May 30, 2011 02:27
Modeless Japanse input method on IIIMCF for Emacs
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
| ;;; iiimcf-yc.el --- yc emulation extension for iiimcf | |
| ;; !!! EXPERIMENTAL !!! | |
| ;; Copyright (C) 2011 SAKURAI Masashi | |
| ;; Author: SAKURAI Masashi <m.sakurai at kiwanami.net> | |
| ;; Keywords: languages, tools | |
| ;; This program is free software; you can redistribute it and/or modify | |
| ;; it under the terms of the GNU General Public License as published by |
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
| ;; see https://github.com/kiwanami/emacs-calfw |
kiwanami
/ gnome-do_0.8.3.1+dfsg-2ubuntu1-migemo.patch
Created
June 12, 2011 16:07
GNOME Do 0.8.3.1 のmigemo化パッチ
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
| --- gnome-do-0.8.3.1+dfsg/Do.Platform/Makefile.am 2009-06-29 09:19:29.000000000 +0900 | |
| +++ mod/Do.Platform/Makefile.am 2011-06-13 00:04:42.010788898 +0900 | |
| @@ -52,6 +52,7 @@ | |
| src/Do.Platform/Services.cs \ | |
| src/Do.Platform/INetworkService.cs \ | |
| src/Do.Platform/NetworkStateChangedEventArgs.cs \ | |
| + src/Do.Platform/Migemo.cs \ | |
| src/Do.Universe/Do.Universe.Common/EmailAction.cs \ | |
| src/Do.Universe/Do.Universe.Common/OpenAction.cs \ | |
| src/Do.Universe/Do.Universe.Common/OpenUrlAction.cs \ |
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 'calfw-org) | |
| (require 'calfw-ical) | |
| (defun my-open-calendar () | |
| (interactive) | |
| (cfw:open-calendar-buffer | |
| :view 'month | |
| :contents-sources | |
| (list | |
| (cfw:org-create-source "Seagreen4") ; color |
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
| ;; Default setting | |
| (setq cfw:fchar-junction ?+ | |
| cfw:fchar-vertical-line ?| | |
| cfw:fchar-horizontal-line ?- | |
| cfw:fchar-left-junction ?+ | |
| cfw:fchar-right-junction ?+ | |
| cfw:fchar-top-junction ?+ | |
| cfw:fchar-top-left-corner ?+ | |
| cfw:fchar-top-right-corner ?+ ) |
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 'calfw-ical) | |
| (setq cfw:howm-schedule-contents | |
| (list (cfw:ical-create-source "共有" "https://.../basic.ics" "#2952a3") | |
| (cfw:ical-create-source "My" "https://.../basic.ics" "Orange"))) | |
| (setq cfw:howm-annotation-contents | |
| (list (cfw:ical-create-source "六曜" "https://.../basic.ics" "Gray"))) |
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
| // calfw color for orgmode | |
| (defun my-open-org-calendar () | |
| (interactive) | |
| (cfw:open-calendar-buffer | |
| :view 'month | |
| :contents-sources (list (cfw:org-create-source "Black")) | |
| :custom-map cfw:org-schedule-map | |
| :sorter 'cfw:org-schedule-sorter)) |
kiwanami
/ .zaliases
Created
September 28, 2011 06:07
— forked from masutaka/.zaliases
Small aliases to get along with Emacs buffer.
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
| ## Invoke the ``dired'' of current working directory in Emacs buffer. | |
| function dired () { | |
| emacsclient -e "(dired \"${1:a}\")" | |
| } | |
| ## Chdir to the ``default-directory'' of currently opened in Emacs buffer. | |
| function cde () { | |
| EMACS_CWD=`emacsclient -e " | |
| (expand-file-name | |
| (with-current-buffer (e2wm:current-buffer) default-directory))" | sed 's/^"\(.*\)"$/\1/'` |