takaxp

diff -r -N -p -x '*.elc' ../emacs-24.3.org/lisp/term/common-win.el lisp/term/common-win.el
*** ../emacs-24.3.org/lisp/term/common-win.el	2013-01-02 05:37:17.000000000 +0900
--- lisp/term/common-win.el	2013-04-13 21:49:53.000000000 +0900
*************** is not used)."
*** 127,132 ****
--- 127,133 ----
  	       (cons (logior (lsh 0 16)  12) 'ns-new-frame)
  	       (cons (logior (lsh 0 16)  13) 'ns-toggle-toolbar)
  	       (cons (logior (lsh 0 16)  14) 'ns-show-prefs)
+ 	       (cons (logior (lsh 0 16)  15) 'mac-change-input-method)

takaxp

;;; dict-app.el --- Displaying content through Dictionary.app
;;
;; Copyright (C) 2014 Takaaki ISHIKAWA
;;
;; Author: Takaaki ISHIKAWA <takaxp at ieee dot org>
;; Maintainer: Takaaki ISHIKAWA <takaxp at ieee dot org>
;; Twitter: @takaxp
;; Repository: 
;; Keywords: dictionary, dictionary.app
;;

takaxp

diff -Nrc emacs-24.4_orig/configure.ac emacs-24.4_patched/configure.ac
*** emacs-24.4_orig/configure.ac	2014-12-07 01:37:53.000000000 +0900
--- emacs-24.4_patched/configure.ac	2014-12-07 01:40:06.000000000 +0900
***************
*** 1782,1788 ****
       INSTALL_ARCH_INDEP_EXTRA=
    fi
  
!   NS_OBJC_OBJ="nsterm.o nsfns.o nsmenu.o nsselect.o nsimage.o nsfont.o $macfont_file"
  fi

takaxp

;;;; e2wm のパラレルパースペクティブもどきとフレームのキーボードによる移動
;;;;                                       Last Update: 2011-11-07@23:37
;;;;                                       Takaaki ISHIKAWA  <takaxp@ieee.org>
;;
;; なにこれ：
;;       e2wm の2画面(M-x e2wm:dp-two)から左右の従属関係を取り去る仕掛け
;;       => 概念図（http://dl.dropbox.com/u/2440/e2wm/e2wm%2Borg-mode.pdf）
;;       e2wm と，このelを導入後，M-x change-frame-width-double (C-x =) で
;;       2画面を並列関係で使うことができる．またキーボードからフレームの位置を変えられる．
;;

takaxp

;; インストール方法：
;;     以下を .emacs に貼りつけてください．
;; kyoko さんとお知り合いでない人：
;;      => http://www.mactechlab.jp/products-report/16673.html
;;     注意）Kyoko さんは Mac(Lion) じゃないと遊びに来てくれません．

;; [#A] 起動時に Kyoko さんに応援してもらう
(shell-command-to-string "say -v Kyoko がんばってください")

;; [#B] 定時になったら Kyoko さんにねぎらってもらう

takaxp

#!/usr/bin/env python
# -*- coding:utf-8 -*-

"""
evnt2org

convert html text that is exported from Evernote to org-mode 
"""

import urllib

takaxp

;; Download and install direx.el from https://github.com/m2ym/direx-el

(when (require 'direx nil t)
  (define-key direx:direx-mode-map (kbd "TAB") 'direx:maybe-find-node))

takaxp

diff -r -p -x '*.elc' ../emacs-23.2.94-0/lisp/term/ns-win.el lisp/term/ns-win.el
*** ../emacs-23.2.94-0/lisp/term/ns-win.el	2011-01-27 05:35:09.000000000 +0900
--- lisp/term/ns-win.el	2011-02-28 13:08:01.000000000 +0900
*************** The properties returned may include `top
*** 317,322 ****
--- 317,323 ----
  	     (cons (logior (lsh 0 16)  12) 'ns-new-frame)
  	     (cons (logior (lsh 0 16)  13) 'ns-toggle-toolbar)
  	     (cons (logior (lsh 0 16)  14) 'ns-show-prefs)
+ 	     (cons (logior (lsh 0 16)  15) 'mac-change-input-method)

takaxp

(defun my-find-headings ()
  (let ((eob (point-max))
	(head-list '()))
    (save-excursion
      (goto-char (point-min))
      (while (when (search-forward-regexp "^\*\\([^*]\\|$\\)" eob t)
	       (setq head-list (cons (match-beginning 0) head-list))
	       (forward-line))))
    (reverse head-list)))

takaxp

#!/usr/bin/emacs --script

(message "Hello World!")