Skip to content

Instantly share code, notes, and snippets.

View kiwanami's full-sized avatar

Masashi Sakurai kiwanami

276 followers · 0 following
View GitHub Profile
@kiwanami
kiwanami / e2wm:org-mobile-push.el
Created October 25, 2011 04:24
e2wm:org-mobile-push.el
(defadvice org-mobile-push (around e2wm:ad-override)
(e2wm:with-advice
ad-do-it))
(ad-activate org-mobile-push)
;; (ad-remove-advice 'org-mobile-push 'around 'e2wm:ad-override)
@kiwanami
kiwanami / .zaliases
Created September 28, 2011 06:07 — forked from masutaka/.zaliases
Small aliases to get along with Emacs buffer.
## 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/'`
@kiwanami
kiwanami / calfw-color-orgmode.el
Created July 29, 2011 12:58
calfw color for orgmode
// 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
kiwanami / calfw-howm-ical.el
Created July 27, 2011 07:11
calfw : howm and ical
(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")))
@kiwanami
kiwanami / calfw-frame-chars.el
Created July 10, 2011 03:02
frame characters for calfw
;; 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 ?+ )
@kiwanami
kiwanami / calfw-org-and-ical.el
Created July 7, 2011 00:46
org and ical in calfw
(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
@kiwanami
kiwanami / gnome-do_0.8.3.1+dfsg-2ubuntu1-migemo.patch
Created June 12, 2011 16:07
GNOME Do 0.8.3.1 のmigemo化パッチ
--- 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 \
@kiwanami
kiwanami / calfw-org.el
Created June 8, 2011 08:59
calfw for org
;; see https://github.com/kiwanami/emacs-calfw
@kiwanami
kiwanami / iiimcf-yc.el
Created May 30, 2011 02:27
Modeless Japanse input method on IIIMCF for Emacs
;;; 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
@kiwanami
kiwanami / thread-sample.el
Created April 18, 2011 04:11
(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)))))