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

#!/opt/local/bin/perl
#
# Modified by @takaxp
# Last Update: 2014-04-11@22:27
# 2013-12-25: skip source blocks specified as ":exports no"
# 2012-01-09: support date([YYYY-MM-DD XX]) insertion
# 2012-01-09: support #+BEGIN_SRC
# 2011-11-16: use strict and warnings
# 2011-11-16: Add conversion from numeric items to `  - '.
# 2011-11-16: Skip headers, if #+TITLE: is, use it as the top headline.

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!")

takaxp

(defvar my-narrow-display " N")
(setq mode-line-modes
      (mapcar (lambda (entry)
		(if (and (stringp entry)
			 (string= entry "%n"))
		    '(:eval (if (and (= 1 (point-min))
				 (= (1+ (buffer-size)) (point-max))) ""
			  my-narrow-display)) entry))
	      mode-line-modes))

takaxp