10sr
/
dotfiles-mirror
mirror of https://github.com/10sr/dotfiles.git
1
0
Fork 0
Code Issues 0 Releases 0 Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
237 Commits
1 Branch
14 MiB
 
 
 
 
 
 
Tree: 67144d4a0d
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '67144d4a0d'
${ noResults }
dotfiles-mirror/emacs.el

1943 lines
69 KiB
Raw Blame History 

  1. ;; 外部ファイル読み込み

  2. ;; (load-file "~/filepath")

  3. 

  4. ;; (thing-at-point 'word)

  5. ;; (define-generic-mode)

  6. 

  7. (unless (file-directory-p (expand-file-name "~/.emacs.d"))

  8.   (make-directory (expand-file-name "~/.emacs.d")))

  9. (unless (file-directory-p (expand-file-name "~/.emacs.d/lisp"))

  10.   (make-directory (expand-file-name "~/.emacs.d/lisp")))

  11. (add-to-list 'load-path "~/.emacs.d/lisp")

  12. 

  13. (require 'cl)

  14. 

  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  16. ;; start and quit

  17. 

  18. (setq inhibit-startup-message t)

  19. (setq frame-title-format (list '(:eval (my-format-time-string))

  20.                                " | %b "

  21.                                '(:eval (number-to-string (length (buffer-list-not-start-with-space))))

  22.                                " buffers ["

  23.                                invocation-name

  24.                                " "

  25.                                emacs-version

  26.                                " "

  27.                                (symbol-name system-type)

  28.                                "] "

  29.                                '(:eval (symbol-name last-command))))

  30. (defun buffer-list-not-start-with-space ()

  31.   (let ((bl (buffer-list))

  32.         b nbl)

  33.     (while bl

  34.       (setq b (pop bl))

  35.       (unless (string-equal " "

  36.                             (substring (buffer-name b)

  37.                                        0

  38.                                        1))

  39.         (add-to-list 'nbl b)))

  40.     nbl))

  41. (setq confirm-kill-emacs 'y-or-n-p)

  42. (setq gc-cons-threshold (* 1024 1024 4))

  43. 

  44. (when window-system

  45.   (add-to-list 'default-frame-alist '(cursor-type . box))

  46.   (add-to-list 'default-frame-alist '(background-color . "white"))

  47.   (add-to-list 'default-frame-alist '(foreground-color . "gray10"))

  48.   ;; (add-to-list 'default-frame-alist '(alpha . (80 100 100 100))) ;聞いてないみたい

  49.   )

  50. (if window-system (menu-bar-mode 1) (menu-bar-mode 0))

  51. (tool-bar-mode 0)

  52. (set-scroll-bar-mode nil)

  53. (add-hook 'kill-emacs-hook      ; 終了時に読み込んで壊れてないか調べる

  54.           (lambda ()

  55.             (when (file-readable-p "~/.emacs")

  56.               (load-file "~/.emacs"))))

  57. 

  58. (add-hook 'after-init-hook

  59.           (lambda ()

  60.             (message (emacs-init-time))

  61.             (switch-to-buffer "*Messages*")

  62.             ))

  63. 

  64. (cd ".")  ; when using windows use / instead of \ in `default-directory'

  65. 

  66. ;; locale

  67. (set-language-environment "Japanese")

  68. (set-default-coding-systems 'utf-8-unix)

  69. (prefer-coding-system 'utf-8-unix)

  70. (setq system-time-locale "C")

  71. 

  72. ;; my prefix map

  73. (defvar my-prefix-map

  74.   (make-sparse-keymap))

  75. (add-hook 'after-init-hook

  76.           (lambda ()

  77.             (define-key ctl-x-map (kbd "C-x") my-prefix-map)))

  78. (define-key my-prefix-map (kbd "C-q") 'quoted-insert)

  79. (define-key my-prefix-map (kbd "C-z") 'suspend-frame)

  80. 

  81. 

  82. ;; display

  83. (setq redisplay-dont-pause t)

  84. (setq visible-bell t)

  85. (setq ring-bell-function 'ignore)

  86. 

  87. ;; (comint-show-maximum-output)

  88. 

  89. ;; kill scratch

  90. (add-hook 'after-init-hook

  91.           (lambda ()

  92.             (kill-buffer "*scratch*")))

  93. 

  94. ;; modifier keys

  95. (setq mac-option-modifier 'control)

  96. (setq w32-apps-modifier 'meta)

  97. 

  98. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  99. ;; mode-line

  100. 

  101. (setq eol-mnemonic-dos "crlf")

  102. (setq eol-mnemonic-mac "cr")

  103. (setq eol-mnemonic-unix "lf")

  104. 

  105. (which-function-mode 0)

  106. 

  107. (line-number-mode 0)

  108. (column-number-mode 0)

  109. (size-indication-mode 0)

  110. (setq mode-line-position

  111.       '(:eval (format "L%%l/%d,C%%c"

  112.                       (count-lines (point-max)

  113.                                    (point-min)))))

  114. 

  115. ;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title

  116. ;; display date

  117. (add-hook 'after-init-hook

  118.           (lambda ()

  119.             ;; (setq display-time-string-forms

  120.             ;;       '(dayname ", " day " " monthname " " year " " 24-hours ":"minutes ":" seconds))

  121.             (setq display-time-string-forms

  122.                   '((my-format-time-string)))

  123.             (when display-time-mode

  124.               (display-time-update))

  125.             ))

  126. (setq display-time-interval 29)

  127. (setq display-time-day-and-date t)

  128. (if window-system

  129.     (display-time-mode 0)

  130.   (display-time-mode 1))

  131. 

  132. ;; ;; current directory

  133. ;; (let ((ls (member 'mode-line-buffer-identification

  134. ;;                   mode-line-format)))

  135. ;;   (setcdr ls

  136. ;;           (cons '(:eval (concat " ("

  137. ;;                                 (abbreviate-file-name default-directory)

  138. ;;                                 ")"))

  139. ;;                 (cdr ls))))

  140. 

  141. ;; ;; display last modified time

  142. ;; (let ((ls (member 'mode-line-buffer-identification

  143. ;;                   mode-line-format)))

  144. ;;   (setcdr ls

  145. ;;           (cons '(:eval (concat " "

  146. ;;                                 my-buffer-file-last-modified-time))

  147. ;;                 (cdr ls))))

  148. 

  149. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  150. ;; minibuffer

  151. 

  152. (setq insert-default-directory t)

  153. (setq completion-ignore-case t

  154.       read-file-name-completion-ignore-case t

  155.       read-buffer-completion-ignore-case t)

  156. (setq resize-mini-window t)

  157. (temp-buffer-resize-mode 1)

  158. 

  159. (fset 'yes-or-no-p 'y-or-n-p)

  160. 

  161. (define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) ; complete symbol when `eval'

  162. 

  163. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  164. ;; letters, font-lock mode and fonts

  165. 

  166. ;; change color for border

  167. ;; (set-face-foreground (make-face 'vertical-border-face) "white")

  168. ;; (set-face-background 'vertical-border-face "black")

  169. ;; (defface vertical-border-face

  170. ;;   `((((background dark))

  171. ;;      (:background "white"))

  172. ;;     (((background light))

  173. ;;      (:background "black")))

  174. ;;   "vertical border")

  175. ;; (set-display-table-slot standard-display-table 'vertical-border

  176. ;;                         (make-glyph-code #x3a 'vertical-border-face))

  177. ;; (set-face-foreground 'vertical-border "default")

  178. ;; (set-face-background 'vertical-border "white")

  179. 

  180. (when (eq system-type 'Darwin)

  181.   (mac-set-input-method-parameter 'japanese 'cursor-color "red")

  182.   (mac-set-input-method-parameter 'roman 'cursor-color "black"))

  183. 

  184. (when (and (boundp 'input-method-activate-hook) ;ちょっと正しいかわかんない

  185.            (boundp 'input-method-inactivate-hook))

  186.   (add-hook 'input-method-activate-hook

  187.             (lambda () (set-cursor-color "red")))

  188.   (add-hook 'input-method-inactivate-hook

  189.             (lambda () (set-cursor-color "black"))))

  190. 

  191. (show-paren-mode 1)

  192. (setq show-paren-style 'mixed)

  193. 

  194. (transient-mark-mode 1)

  195. 

  196. (global-font-lock-mode 1)

  197. (setq font-lock-global-modes

  198.       '(not

  199.         help-mode

  200.         eshell-mode

  201.         term-mode

  202.         Man-mode))

  203. 

  204. (standard-display-ascii ?\n "$\n")

  205. (set-face-foreground (copy-face 'default

  206.                                 'my-eol-face)

  207.                      "green")

  208. ;; (defface my-eol-face

  209. ;;   '((t (:foreground "green")))

  210. ;;   "eol.")

  211. 

  212. (standard-display-ascii ?\f "---------------------------------------------------------------------------------------^L")

  213. (defface my-pagebreak-face

  214.   '((t (:foreground "gray")))

  215.   "pagebreak.")

  216. 

  217. (defvar my-eol-face

  218.   '(("\n" . (0 my-eol-face t nil)))

  219.   )

  220. (defvar my-pagebreak-face

  221.   '(("\f" . 'my-pagebreak-face)))

  222. (defvar my-highlight-face

  223.   '(("\t" . '(0 highlight t nil))

  224.     ("　" . '(0 highlight t nil))))

  225. 

  226. ;; (defvar my-face

  227. ;;   '(("\t" . 'highlight)

  228. ;;     ("　" . 'highlight)

  229. ;;     ("\n" . '(0 my-eol-face t nil))

  230. ;;     ("\f" . 'my-pagebreak-face)))

  231. 

  232. ;; 現在行をハイライト

  233. ;; http://wiki.riywo.com/index.php?Meadow

  234. (defface hlline-face

  235.   '((((type x w32)

  236.       (class color)

  237.       (background dark))

  238.      (:background "midnightblue")) ; :foreground "white")) ;; ハイライトの文字色は変えない方がいいかも

  239.     (((type x w32)

  240.       (class color)

  241.       (background light))

  242.      (:background "gainsboro"))

  243.     (t

  244.      (:underline "black")))

  245.   "*Face used by hl-line.")

  246. ;; (defface hlline-ul-face

  247. ;;   '((t (:underline "yellow")))

  248. ;;   "underline yellow")

  249. (setq hl-line-face 'hlline-face) ;; (setq hl-line-face nil)

  250. (global-hl-line-mode 1) ;; (hl-line-mode 1)

  251. (setq hl-line-global-modes

  252.       '(not

  253.         term-mode))

  254. 

  255. (add-hook 'font-lock-mode-hook

  256.           (lambda ()

  257.             ;; (font-lock-add-keywords nil my-eol-face)

  258.             ;; (font-lock-add-keywords nil my-highlight-face)

  259.             ))

  260. 

  261. (set-face-foreground 'font-lock-regexp-grouping-backslash "#666")

  262. (set-face-foreground 'font-lock-regexp-grouping-construct "#f60")

  263. 

  264. ;; fonts

  265. 

  266. (defun my-set-ascii-and-jp-font-with-size (list)

  267.   ""

  268.   (if (> emacs-major-version 22)

  269.       (progn                            ; 23 or later

  270.         (set-face-attribute 'default nil

  271.                             :family (nth 0 list)

  272.                             :height (nth 1 list))

  273.         (set-fontset-font "fontset-default"

  274.                           'japanese-jisx0208

  275.                           (font-spec :family (nth 2 list) :size (nth 3 list)))

  276.         (set-fontset-font "fontset-default"

  277.                           'katakana-jisx0201

  278.                           (font-spec :family (nth 2 list) :size (nth 3 list))))

  279.                                         ; font spec is available in emacs23 and later, cannot used in emacs22

  280.     (progn                              ; 22

  281.       (set-face-attribute 'default nil

  282.                           :family (nth 0 list)

  283.                           :height (nth 1 list))

  284.       (set-fontset-font "fontset-default"

  285.                         'japanese-jisx0208

  286.                         (cons (nth 2 list) "jisx0208.*"))

  287.       (set-fontset-font "fontset-default"

  288.                         'katakana-jisx0201

  289.                         (cons (nth 2 list) "jisx0201.*"))

  290.       )))

  291. ;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 90 "takaogothic" 13))

  292. ;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 100 "takaogothic" 14))

  293. ;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 100 "ms gothic" 14))

  294. ;; (my-set-ascii-and-jp-font-with-size '("monaco" 75 "takaogothic" 11))

  295. ;; (my-set-ascii-and-jp-font-with-size '("monaco" 90 "takaogothic" 13))

  296. ;; (my-set-ascii-and-jp-font-with-size '("ProggyCleanTTSZ" 120 "takaogothic" 11))

  297. ;; あ a

  298. 

  299. (defun my-set-mode-line-color-according-to-readonly-state ()

  300.   ""

  301.   (let ((state (if buffer-read-only

  302.                    'readonly

  303.                  (if overwrite-mode

  304.                      'overwrite

  305.                    'insert))))

  306.     (unless (eq state my-set-mode-line-color-state)

  307.       (set-face-foreground 'modeline

  308.                            (nth 1

  309.                                 (assq state

  310.                                       my-set-mode-line-color-color)))

  311.       (set-face-background 'modeline

  312.                            (nth 2

  313.                                 (assq state

  314.                                       my-set-mode-line-color-color)))

  315.       (setq my-set-mode-line-color-state state))))

  316. (defvar my-set-mode-line-color-color nil "")

  317. (setq my-set-mode-line-color-color

  318.       (if window-system

  319.           `((readonly "white" "blue")

  320.             (overwrite "white" "red")

  321.             (insert ,(face-foreground 'modeline) ,(face-background 'modeline)))

  322.         `((readonly "blue" "white")

  323.           (overwrite "red" "white")

  324.           (insert ,(face-foreground 'modeline) ,(face-background 'modeline)))))

  325. (defvar my-set-mode-line-color-state nil "")

  326. (add-hook 'post-command-hook 'my-set-mode-line-color-according-to-readonly-state)

  327. (add-hook 'after-init-hook 'my-set-mode-line-color-according-to-readonly-state)

  328. 

  329. ;; (set-face-foreground 'mode-line-inactive (if window-system "gray" "white"))

  330. ;; (set-face-background 'mode-line-inactive (if window-system "white" "gray"))

  331. 

  332. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  333. ;; file handling

  334. 

  335. (setq revert-without-query ".+")

  336. 

  337. ;; カーソルの場所を保存する

  338. (when (require 'saveplace nil t)

  339.   (setq-default save-place t))

  340. 

  341. ;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260

  342. (setq make-backup-files t)

  343. ;; (make-directory (expand-file-name "~/.emacsbackup"))

  344. (setq backup-directory-alist

  345.       (cons (cons "\\.*$" (expand-file-name "~/.emacs.d/backup"))

  346.             backup-directory-alist))

  347. (setq version-control 'never)

  348. (setq delete-old-versions t)

  349. 

  350. (setq auto-save-list-file-prefix (expand-file-name "~/.emacs.d/autosave/"))

  351. (setq delete-auto-save-files t)

  352. 

  353. (add-to-list 'completion-ignored-extensions ".bak")

  354. ;; (setq delete-by-moving-to-trash t

  355. ;;       trash-directory "~/.emacs.d/trash")

  356. 

  357. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  358. ;; editting

  359. (setq require-final-newline t)

  360. (setq kill-whole-line t)

  361. (setq scroll-conservatively 35

  362.       scroll-margin 2

  363.       scroll-step 0)

  364. (setq default-major-mode 'text-mode)

  365. (setq next-line-add-newlines nil)

  366. (setq kill-read-only-ok t)

  367. (setq truncate-partial-width-windows nil) ; when splitted horizontally

  368. ;; (setq-default line-spacing 0.2)

  369. (setq-default indicate-empty-lines t)   ; なんだろうこれ

  370. (setq-default tab-width 4)

  371. (setq-default indent-tabs-mode nil)

  372. (setq-default indent-line-function nil)

  373. (pc-selection-mode 1)

  374. (delete-selection-mode 1)

  375. (cua-mode 0)

  376. 

  377. ;; key bindings

  378. ;; moving around

  379. ;; (global-set-key (kbd "M-j") 'next-line)

  380. ;; (global-set-key (kbd "M-k") 'previous-line)

  381. ;; (global-set-key (kbd "M-h") 'backward-char)

  382. ;; (global-set-key (kbd "M-l") 'forward-char)

  383. ;;(keyboard-translate ?\M-j ?\C-j)

  384. (global-set-key (kbd "M-p") 'backward-paragraph)

  385. (global-set-key (kbd "M-n") 'forward-paragraph)

  386. (global-set-key (kbd "C-<up>") (lambda () (interactive)(scroll-down 1)))

  387. (global-set-key (kbd "C-<down>") (lambda () (interactive)(scroll-up 1)))

  388. (global-set-key (kbd "C-<left>") 'scroll-down)

  389. (global-set-key (kbd "C-<right>") 'scroll-up)

  390. (global-set-key (kbd "<select>") 'previous-line-mark)

  391. (define-key ctl-x-map (kbd "M-x") 'execute-extended-command)

  392. (define-key ctl-x-map (kbd "M-:") 'eval-expression)

  393. 

  394. ;; C-h and DEL

  395. (global-set-key (kbd "C-h") (kbd "DEL"))

  396. ;; (global-set-key (kbd "C-h") 'backward-delete-char-untabify)

  397. ;; (global-set-key (kbd "DEL") help-map)

  398. ;; (global-set-key (kbd "C-h") (lambda ()

  399. ;;                               (interactive)

  400. ;;                               (call-interactively (key-binding (kbd "DEL")))))

  401. ;; (keyboard-translate ?\^h ?\^?) ; scimにはC-hを送りたい

  402. ;; (keyboard-translate ?\b ?\^h)          ; dont translate backspace

  403. 

  404. (global-set-key (kbd "C-m") 'reindent-then-newline-and-indent)

  405. (global-set-key (kbd "C-o")

  406.                 ;; (lambda ()

  407.                 ;;   (interactive)

  408.                 ;;   (move-end-of-line nil)

  409.                 ;;   (newline-and-indent))

  410.                 (kbd "C-e C-m")

  411.                 )

  412. (global-set-key (kbd "C-k") 'kill-whole-line)

  413. (global-set-key (kbd "M-k") 'my-copy-whole-line)

  414. ;; (global-set-key "\C-z" 'undo) ; undo is C-/

  415. ;; (global-set-key (kbd "C-<return>") (lambda () (interactive) (insert "\f\n")))

  416. (global-set-key (kbd "M-u") 'undo)

  417. (global-set-key (kbd "C-r") 'query-replace-regexp)

  418. (global-set-key (kbd "C-s") 'isearch-forward-regexp)

  419. (global-set-key (kbd "M-i")

  420.                 (lambda ()

  421.                   (interactive)

  422.                   (call-interactively (key-binding (kbd "M-TAB"))))

  423.                 ;; (kbd "M-TAB")

  424.                 )

  425. 

  426. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  427. ;; gmail

  428. 

  429. (setq mail-interactive t

  430.       send-mail-function 'smtpmail-send-it

  431.       ;; message-send-mail-function 'smtpmail-send-it

  432.       smtpmail-smtp-server "smtp.gmail.com"

  433.       smtpmail-smtp-service 587

  434.       smtpmail-starttls-credentials '(("smtp.gmail.com" 587 "8.slashes@gmail.com" nil))

  435.       smtpmail-auth-credentials '(("smtp.gmail.com" 587 "8.slashes@gmail.com" nil))

  436.       user-mail-address "8.slashes@gmail.com")

  437. 

  438. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  439. ;; buffer killing

  440. 

  441. (defun my-query-kill-this-buffer ()

  442.   ""

  443.   (interactive)

  444.   (if (y-or-n-p (concat "kill this buffer? :"))

  445.       (kill-buffer (current-buffer))))

  446. (substitute-key-definition 'kill-buffer 'my-query-kill-this-buffer global-map)

  447. ;;(global-set-key "\C-xk" 'my-query-kill-this-buffer)

  448. 

  449. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  450. ;; for emacsclient

  451. ;; (if window-system (server-start))

  452. 

  453. 

  454. 

  455. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  456. ;; global keys

  457. 

  458. (define-key my-prefix-map (kbd "C-o") 'occur)

  459. 

  460. ;; (define-key my-prefix-map (kbd "C-h") help-map)

  461. (global-set-key (kbd "C-\\") help-map)

  462. (define-key ctl-x-map (kbd "DEL") help-map)

  463. (define-key ctl-x-map (kbd "C-h") help-map)

  464. (define-key help-map "a" 'apropos)

  465. 

  466. ;; compose window

  467. (global-set-key [?\C--] 'other-window)

  468. (global-set-key [?\C-0] 'delete-window)

  469. (global-set-key [?\C-1] 'delete-other-windows)

  470. (global-set-key [?\C-2] 'split-window-vertically)

  471. (global-set-key [?\C-3] 'split-window-horizontally)

  472. 

  473. ;; disable annoying keys

  474. (global-set-key [prior] 'ignore)

  475. (global-set-key (kbd "<next>") 'ignore)

  476. (global-set-key [menu] 'ignore)

  477. (global-set-key [down-mouse-1] 'ignore)

  478. (global-set-key [down-mouse-2] 'ignore)

  479. (global-set-key [down-mouse-3] 'ignore)

  480. (global-set-key [mouse-1] 'ignore)

  481. (global-set-key [mouse-2] 'ignore)

  482. (global-set-key [mouse-3] 'ignore)

  483. (global-set-key (kbd "<eisu-toggle>") 'ignore)

  484. (global-set-key (kbd "C-<eisu-toggle>") 'ignore)

  485. 

  486. (mouse-avoidance-mode 'banish)

  487. 

  488. 

  489. 

  490. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  491. ;; download library from web

  492. 

  493. (require 'url)

  494. 

  495. (defun dllib-if-unfound (lib url &optional bite-compile-p force-download-p) ; new version

  496.   "if LIB does not exist, download it from URL and locate it to \"~/emacs.d/lisp/LIB.el\".

  497. return nil if LIB unfound and downloading failed, otherwise the path of LIB."

  498.   (let* ((dir (expand-file-name "~/.emacs.d/lisp/"))

  499.          (lpath (concat dir lib ".el"))

  500.          (locate-p (locate-library lib)))

  501.     (if (or force-download-p (not locate-p))

  502.         (progn (condition-case nil

  503.                    (progn (message "downloading %s..." url)

  504.                           (url-copy-file url

  505.                                          lpath

  506.                                          t)

  507.                           (when bite-compile-p

  508.                             (byte-compile-file lpath)))

  509.                  (error (message "downloading %s...something wrong happened!" url)

  510.                         nil))

  511.                (locate-library lib))

  512.       locate-p)))

  513. 

  514. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  515. ;;requireが必要なelispおよびhook

  516. 

  517. (require 'simple nil t)

  518. 

  519. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  520. ;; share clipboard with x

  521. (when (and window-system

  522.            ;; (getenv "DESKTOP_SESSION")

  523.            (not (eq window-system 'mac))

  524.            )

  525.   (setq x-select-enable-clipboard t     ; these settings seems to be useless when using emacs in terminal

  526.         x-select-enable-primary nil)

  527.   ;; (global-set-key "\C-y" 'x-clipboard-yank)

  528.   )

  529. 

  530. ;; urlに細かい説明あり。でも設定は上記だけでよさそう

  531. ;; http://garin.jp/doc/Linux/xwindow_clipboard

  532. 

  533. (and (not x-select-enable-clipboard)

  534.      (executable-find "xclip")

  535.      (dllib-if-unfound "xclip" "http://www.emacswiki.org/emacs/download/xclip.el" t)

  536.      (require 'xclip nil t)

  537.      (turn-on-xclip))

  538. 

  539. ;; その他のhook

  540. (add-hook 'after-save-hook

  541.           'executable-make-buffer-file-executable-if-script-p)

  542. 

  543. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  544. ;; mode

  545. 

  546. (add-hook 'verilog-mode-hook

  547.           (lambda ()

  548.             (define-key verilog-mode-map ";" 'self-insert-command)))

  549. 

  550. (setq diff-switches "-u")

  551. (add-hook 'diff-mode-hook

  552.           (lambda ()

  553.             (view-mode 1)

  554.             (set-face-foreground 'diff-file-header-face nil)

  555.             (set-face-foreground 'diff-header-face nil)

  556.             (set-face-foreground 'diff-index-face "blue")

  557.             (set-face-foreground 'diff-hunk-header-face "cyan")

  558.             (set-face-foreground 'diff-context-face nil)

  559.             (set-face-foreground 'diff-removed-face "red")

  560.             (set-face-foreground 'diff-added-face "green")

  561.             (set-face-foreground 'diff-changed-face "magenda")

  562.             ))

  563. 

  564. ;; (ffap-bindings)

  565. 

  566. (add-hook 'sh-mode-hook

  567.           (lambda ()

  568.             (define-key sh-mode-map (kbd "C-x C-e") 'my-execute-shell-command-current-line)))

  569. 

  570. (defun my-execute-shell-command-current-line ()

  571.   ""

  572.   (interactive)

  573.   (shell-command (buffer-substring-no-properties (point-at-bol)

  574.                                                  (point))))

  575. 

  576. (setq python-python-command (executable-find "python3"))

  577. (defun my-python-run-as-command ()

  578.   ""

  579.   (interactive)

  580.   (shell-command (concat python-python-command " " buffer-file-name)))

  581. (defun my-python-display-python-buffer ()

  582.   ""

  583.   (interactive)

  584.   ;; (or python-buffer

  585.   ;;     (save-excursion

  586.   ;;       (run-python)))

  587.   (set-window-text-height (display-buffer python-buffer

  588.                                           t)

  589.                           7))

  590. 

  591. (add-hook 'python-mode-hook

  592.           (lambda ()

  593.             (define-key python-mode-map (kbd "C-c C-e") 'my-python-run-as-command)

  594.             (define-key python-mode-map (kbd "C-c C-b") 'my-python-display-python-buffer)))

  595. 

  596. (add-hook 'inferior-python-mode-hook

  597.           (lambda ()

  598.             (my-python-display-python-buffer)

  599.             (define-key inferior-python-mode-map (kbd "<up>") 'comint-previous-input)

  600.             (define-key inferior-python-mode-map (kbd "<down>") 'comint-next-input)))

  601. 

  602. (add-to-list 'Info-default-directory-list (expand-file-name "~/.info/emacs-ja"))

  603. 

  604. (setq bookmark-default-file "~/.emacs.d/bmk")

  605. 

  606. (add-hook 'apropos-mode-hook

  607.           (lambda ()

  608.             (define-key apropos-mode-map "j" 'next-line)

  609.             (define-key apropos-mode-map "k" 'previous-line)))

  610. 

  611. (define-key minibuffer-local-map (kbd "C-u") (lambda () (interactive) (delete-region (point-at-bol) (point))))

  612. 

  613. (add-hook 'isearch-mode-hook

  614.           (lambda ()

  615.             ;; (define-key isearch-mode-map (kbd "C-j") 'isearch-other-control-char)

  616.             ;; (define-key isearch-mode-map (kbd "C-k") 'isearch-other-control-char)

  617.             ;; (define-key isearch-mode-map (kbd "C-h") 'isearch-other-control-char)

  618.             (define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char)

  619.             (define-key isearch-mode-map (kbd "M-r") 'isearch-query-replace-regexp)))

  620. 

  621. (add-hook 'outline-mode-hook

  622.           (lambda ()

  623.             (if (string-match "\\.md$" buffer-file-name)

  624.                 (set (make-local-variable 'outline-regexp) "#+ "))))

  625. (add-to-list 'auto-mode-alist (cons "\\.ol$" 'outline-mode))

  626. 

  627. (add-to-list 'auto-mode-alist (cons "\\.md$" 'outline-mode))

  628. (when (dllib-if-unfound "markdown-mode"

  629.                         "http://jblevins.org/projects/markdown-mode/markdown-mode.el"

  630.                         t)

  631.   (add-to-list 'auto-mode-alist (cons "\\.md$" 'markdown-mode))

  632.   (autoload 'markdown-mode "markdown-mode" "Major mode for editing Markdown files." nil)

  633.   (add-hook 'markdown-mode-hook

  634.             (lambda ()

  635.               (outline-minor-mode 1)

  636.               (set (make-local-variable 'comment-start) ";"))))

  637. 

  638. ;; http://d.hatena.ne.jp/emergent/20070203/1170512717

  639. ;; c-mode

  640. ;; (setq c-default-style "bsd")

  641. ;; BackSpace キーを「賢く」し，インデント幅は2桁，タブはスペースに展開

  642. (add-hook 'c-mode-common-hook

  643.           (lambda ()

  644.             (setq c-basic-offset 2

  645.                   indent-tabs-mode nil)

  646.             ;; (set-face-foreground 'font-lock-keyword-face "blue")

  647.             (c-toggle-hungry-state 1)

  648.             ))

  649. 

  650. (when (dllib-if-unfound "js2-mode"

  651.                         "https://github.com/mooz/js2-mode/raw/master/js2-mode.el"

  652.                         t)

  653.   (autoload 'js2-mode "js2-mode" nil t)

  654.   (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))

  655.   (add-to-list 'auto-mode-alist '("\\.jsm$" . js2-mode)))

  656. ;; (add-hook 'js2-mode-hook

  657. ;;           (lambda ()

  658. ;;             (add-hook 'before-save-hook

  659. ;;                       'my-indent-buffer

  660. ;;                       nil

  661. ;;                       t)))

  662. (add-hook 'js2-mode-hook

  663.           (lambda ()

  664.             (define-key js2-mode-map (kbd "C-m") (lambda ()

  665.                                                    (interactive)

  666.                                                    (js2-enter-key)

  667.                                                    (indent-for-tab-command)))

  668.             (add-hook (kill-local-variable 'before-save-hook)

  669.                       'js2-before-save)))

  670. 

  671. (and nil

  672.      (require 'zone nil t)

  673.      (not (eq system-type 'windows-nt))

  674.      ;; (zone-when-idle 180)

  675.      (run-with-idle-timer 180 t (lambda ()

  676.                                   (unless (memq major-mode

  677.                                                 '(term-mode))

  678.                                     (zone)))))

  679. 

  680. (when (require 'uniquify nil t)

  681.   (setq uniquify-buffer-name-style 'post-forward-angle-brackets)

  682.   (setq uniquify-ignore-buffers-re "*[^*]+*")

  683.   (setq uniquify-min-dir-content 1))

  684. 

  685. (add-hook 'view-mode-hook

  686.           (lambda()

  687.             (define-key view-mode-map "j" (lambda() (interactive) (scroll-up 1)))

  688.             (define-key view-mode-map "k" (lambda() (interactive) (scroll-down 1)))

  689.             (define-key view-mode-map "/" 'isearch-forward)

  690.             (define-key view-mode-map "v" 'toggle-read-only)

  691.             (define-key view-mode-map "q" 'bury-buffer)))

  692. (global-set-key "\M-r" 'view-mode)

  693. (setq view-read-only t)

  694. 

  695. (add-hook 'Man-mode-hook

  696.           (lambda ()

  697.             (view-mode 1)

  698.             (setq truncate-lines nil)))

  699. (setq Man-notify-method (if window-system

  700.                             'newframe

  701.                           'pushy))

  702. 

  703. ;; (when (and (executable-find "git")

  704. ;;            (require 'sgit-mode nil t))

  705. ;;   (add-hook 'find-file-hook

  706. ;;             'sgit-load))

  707. 

  708. (require 'session nil t)

  709. 

  710. (when (require 'gtkbm nil t)

  711.   (global-set-key (kbd "C-x C-d") 'gtkbm))

  712. 

  713. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  714. ;; frame buffer

  715. 

  716. (add-hook 'after-make-frame-functions

  717.           (lambda (frame)

  718.             (set-window-buffer (frame-selected-window frame)

  719.                                "*Messages*")))

  720. 

  721. (defvar my-frame-buffer-plist nil)

  722. 

  723. (defun my-frame-buffer-add (&optional buf frame)

  724.   ""

  725.   (setq my-frame-buffer-plist

  726.         (plist-put my-frame-buffer-plist

  727.                    (or frame

  728.                        (selected-frame))

  729.                    (let ((lst (my-frame-buffer-get frame)))

  730.                      (if lst

  731.                          (add-to-list 'lst

  732.                                       (or buf

  733.                                           (current-buffer)))

  734.                        (list (or buf

  735.                                  (current-buffer))))))))

  736. 

  737. (defun my-frame-buffer-remove (&optional buf frame)

  738.   ""

  739.   (setq my-frame-buffer-plist

  740.         (plist-put my-frame-buffer-plist

  741.                    (or frame

  742.                        (selected-frame))

  743.                    (delq (or buf

  744.                              (current-buffer))

  745.                          (my-frame-buffer-get frame)))))

  746. 

  747. (defun my-frame-buffer-get (&optional frame)

  748.   ""

  749.   (plist-get my-frame-buffer-plist

  750.              (or frame

  751.                  (selected-frame))))

  752. 

  753. (defun my-frame-buffer-kill-all-buffer (&optional frame)

  754.   ""

  755.   (mapcar 'kill-buffer

  756.           (my-frame-buffer-get frame)))

  757. 

  758. (add-hook 'find-file-hook

  759.           'my-frame-buffer-add)

  760. (add-hook 'term-mode-hook

  761.           'my-frame-buffer-add)

  762. (add-hook 'eshell-mode-hook

  763.           'my-frame-buffer-add)

  764. 

  765. (add-hook 'kill-buffer-hook

  766.           'my-frame-buffer-remove)

  767. (add-hook 'delete-frame-functions

  768.           'my-frame-buffer-kill-all-buffer)

  769. 

  770. 

  771. (defvar my-desktop-terminal "roxterm")

  772. (defun my-execute-terminal ()

  773.   ""

  774.   (interactive)

  775.   (if (and (or (eq system-type 'windows-nt)

  776.                window-system)

  777.            my-desktop-terminal

  778.            )

  779.       (let ((process-environment (cons "TERM=xterm" process-environment)))

  780.         (start-process "terminal"

  781.                        nil

  782.                        my-desktop-terminal))

  783.     (my-term)))

  784. 

  785. (defun my-term ()

  786.   "open terminal buffer and return that buffer."

  787.   (interactive)

  788.   (if (eq system-type 'windows-nt)

  789.       (eshell t)

  790.     (if (featurep 'multi-term)

  791.         (multi-term)

  792.       (ansi-term "/bin/bash"))))

  793. 

  794. (defun my-delete-frame-or-kill-emacs ()

  795.   "delete frame when opening multiple frame, kill emacs when only one."

  796.   (interactive)

  797.   (if (eq 1

  798.           (length (frame-list)))

  799.       (save-buffers-kill-emacs)

  800.     (delete-frame)))

  801. 

  802. (define-key my-prefix-map (kbd "C-s") 'my-execute-terminal)

  803. (define-key my-prefix-map (kbd "C-f") 'make-frame-command)

  804. (global-set-key (kbd "C-x C-c") 'my-delete-frame-or-kill-emacs)

  805. (define-key my-prefix-map (kbd "C-x C-c") 'save-buffers-kill-emacs)

  806. 

  807. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  808. ;; term mode

  809. 

  810. ;; (setq multi-term-program shell-file-name)

  811. (and (dllib-if-unfound "multi-term"

  812.                        "http://www.emacswiki.org/emacs/download/multi-term.el"

  813.                        t)

  814.      (require 'multi-term nil t)

  815.      (setq multi-term-switch-after-close nil))

  816. 

  817. (defun my-term-quit-or-send-raw ()

  818.   ""

  819.   (interactive)

  820.   (if (get-buffer-process (current-buffer))

  821.       (call-interactively 'term-send-raw)

  822.     (kill-buffer)))

  823. 

  824. ;; http://d.hatena.ne.jp/goinger/20100416/1271399150

  825. ;; (setq term-ansi-default-program shell-file-name)

  826. (add-hook 'term-setup-hook (lambda ()

  827.                              (setq term-display-table (make-display-table))))

  828. (add-hook 'term-mode-hook (lambda ()

  829.                             (unless (memq (current-buffer) (and (featurep 'multi-term) ; current buffer is not multi-term buffer

  830.                                                                 (multi-term-list)))

  831.                               ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)

  832.                               ;; (define-key term-raw-map "\C-r" 'term-send-raw)

  833.                               ;; (define-key term-raw-map "\C-s" 'term-send-raw)

  834.                               ;; (define-key term-raw-map "\C-f" 'forward-char)

  835.                               ;; (define-key term-raw-map "\C-b" 'backward-char)

  836.                               ;; (define-key term-raw-map "\C-t" 'set-mark-command)

  837.                               (define-key term-raw-map "\C-x" (lookup-key (current-global-map) "\C-x"))

  838.                               (define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z")))

  839.                             (define-key term-raw-map "q" 'my-term-quit-or-send-raw)

  840.                             (define-key term-raw-map (kbd "ESC") 'term-send-raw)

  841.                             (define-key term-raw-map [delete] 'term-send-raw)

  842.                             (define-key term-raw-map (kbd "DEL") 'term-send-backspace)

  843.                             (define-key term-raw-map "\C-y" 'term-paste)

  844.                             (define-key term-raw-map "\C-c" 'term-send-raw) ;; 'term-interrupt-subjob)

  845.                             ;; (dolist (key '("<up>" "<down>" "<right>" "<left>"))

  846.                             ;;   (define-key term-raw-map (kbd key) 'term-send-raw))

  847.                             ;; (define-key term-raw-map "\C-d" 'delete-char)

  848.                             (set (make-local-variable 'scroll-margin) 0)

  849.                             ;; (set (make-local-variable 'cua-enable-cua-keys) nil)

  850.                             ;; (cua-mode 0)

  851.                             ;; (and cua-mode

  852.                             ;;      (local-unset-key (kbd "C-c")))

  853.                             ;; (define-key cua--prefix-override-keymap "\C-c" 'term-interrupt-subjob)

  854.                             (set (make-local-variable 'hl-line-range-function)

  855.                                  (lambda ()

  856.                                    '(0 . 0)))

  857.                             ))

  858. ;; (add-hook 'term-exec-hook 'forward-char)

  859. 

  860. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  861. ;; buffer switching

  862. 

  863. (when (require 'bs nil t)

  864.   ;; (global-set-key "\C-x\C-b" 'bs-show)

  865.   (defalias 'list-buffers 'bs-show))

  866. 

  867. ;; (add-to-list 'bs-configurations '("processes" nil get-buffer-process ".*" nil nil))

  868. (add-to-list 'bs-configurations '("same-dir" nil buffer-same-dir-p ".*" nil nil))

  869. (add-to-list 'bs-configurations '("this-frame" nil (lambda (buf) (memq buf (my-frame-buffer-get))) ".*" nil nil))

  870. ;; (setq bs-configurations (list '("processes" nil get-buffer-process ".*" nil nil)

  871. ;;                               '("files-and-scratch" "^\\*scratch\\*$" nil nil bs-visits-non-file bs-sort-buffer-interns-are-last)))

  872. (setq bs-default-configuration "this-frame")

  873. (setq bs-default-sort-name "by name")

  874. (add-hook 'bs-mode-hook

  875.           (lambda ()

  876.             (setq bs-default-configuration "this-frame")

  877.             ;; (and bs--show-all

  878.             ;;      (call-interactively 'bs-toggle-show-all))

  879.             (set (make-local-variable 'scroll-margin) 0)

  880.             ))

  881. 

  882. (defun buffer-same-dir-p (bf)

  883.   "return t if BF's dir is same as current dir, otherwise nil."

  884.   (let ((cdir (expand-file-name default-directory)))

  885.     (with-current-buffer bf

  886.       (equal (expand-file-name default-directory) cdir))))

  887. 

  888. (iswitchb-mode 1)

  889. 

  890. (defun iswitchb-buffer-display-other-window ()

  891.   ""

  892.   (interactive)

  893.   (let ((iswitchb-default-method 'display))

  894.     (call-interactively 'iswitchb-buffer)))

  895. 

  896. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  897. ;; sdic

  898. 

  899. (defun sdic-describe-word-at-point-echo ()

  900.   ""

  901.   (interactive)

  902.   (save-window-excursion

  903.     (sdic-describe-word-at-point))

  904.   (save-excursion

  905.     (set-buffer sdic-buffer-name)

  906.     (message (buffer-substring (point-min)

  907.                                (progn (goto-char (point-min))

  908.                                       (or (and (re-search-forward "^\\w" nil t 4)

  909.                                                (progn (previous-line) t)

  910.                                                (point-at-eol))

  911.                                           (point-max)))))))

  912. 

  913. (setq sdic-eiwa-dictionary-list '((sdicf-client "/usr/share/dict/gene.sdic")))

  914. (setq sdic-waei-dictionary-list '((sdicf-client "/usr/share/dict/jedict.sdic" (add-keys-to-headword t))))

  915. (setq sdic-disable-select-window t)

  916. (setq sdic-window-height 7)

  917. (when (require 'sdic nil t)

  918.   ;; (define-key my-prefix-map "\C-w" 'sdic-describe-word)

  919.   (define-key my-prefix-map "\C-t" 'sdic-describe-word-at-point-echo))

  920. 

  921. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  922. ;; vc

  923. ;; (require 'vc)

  924. 

  925. (setq vc-handled-backends nil)

  926. 

  927. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  928. ;; gauche-mode

  929. 

  930. (setq scheme-program-name

  931.       (setq gauche-program-name "gosh"))

  932. 

  933. (defun run-gauche-other-window ()

  934.   "Run gauche on other window"

  935.   (interactive)

  936.   (switch-to-buffer-other-window

  937.    (get-buffer-create "*scheme*"))

  938.   (run-gauche))

  939. 

  940. (defun run-gauche ()

  941.   "run gauche"

  942.   (run-scheme gauche-program-name)

  943.   )

  944. 

  945. (defun scheme-send-buffer ()

  946.   ""

  947.   (interactive)

  948.   (scheme-send-region (point-min) (point-max))

  949.   (my-scheme-display-scheme-buffer)

  950.   )

  951. 

  952. (defun my-scheme-display-scheme-buffer ()

  953.   ""

  954.   (interactive)

  955.   (set-window-text-height (display-buffer scheme-buffer

  956.                                           t)

  957.                           7))

  958. 

  959. (add-hook 'scheme-mode-hook

  960.           (lambda ()

  961.             nil))

  962. 

  963. (add-hook 'inferior-scheme-mode-hook

  964.           (lambda ()

  965.             ;; (my-scheme-display-scheme-buffer)

  966.             ))

  967. ;; http://d.hatena.ne.jp/kobapan/20090305/1236261804

  968. ;; http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el

  969. 

  970. (when (dllib-if-unfound "gauche-mode"

  971.                         "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el"

  972.                         t)

  973.   (setq auto-mode-alist

  974.         (cons '("\.gosh$" . gauche-mode) auto-mode-alist))

  975.   (setq auto-mode-alist

  976.         (cons '("\.gaucherc$" . gauche-mode) auto-mode-alist))

  977.   (autoload 'gauche-mode "gauche-mode" "Major mode for Scheme." t)

  978.   (autoload 'run-scheme "gauche-mode" "Run an inferior Scheme process." t)

  979.   (add-hook 'gauche-mode-hook

  980.             (lambda ()

  981.               (define-key gauche-mode-map (kbd "C-c C-z") 'run-gauche-other-window)

  982.               (define-key scheme-mode-map (kbd "C-c C-c") 'scheme-send-buffer)

  983.               (define-key scheme-mode-map (kbd "C-c C-b") 'my-scheme-display-scheme-buffer)

  984.               )))

  985. 

  986. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  987. ;; recentf-mode

  988. 

  989. (add-hook 'recentf-dialog-mode-hook

  990.           'my-recentf-abbrev-list)

  991. 

  992. (defun my-recentf-delete-entry ()

  993.   ""

  994.   (interactive)

  995.   (let ((p (point)))

  996.     (setq recentf-list

  997.           (delete (my-recentf-get-filename) recentf-list))

  998.     (recentf-open-files)

  999.     (goto-char p)))

  1000. 

  1001. (defun my-recentf-abbrev-list ()

  1002.   ""

  1003.   (setq recentf-list

  1004.         (mapcar 'abbreviate-file-name

  1005.                 recentf-list)))

  1006. 

  1007. (defun my-recentf-view-file ()

  1008.   ""

  1009.   (interactive)

  1010.   (view-file (my-recentf-get-filename)))

  1011. 

  1012. (defun my-recentf-dired ()

  1013.   ""

  1014.   (interactive)

  1015.   (let ((file (my-recentf-get-filename)))

  1016.     (if (file-directory-p file)

  1017.         (dired file)

  1018.       (dired (or (file-name-directory file)

  1019.                  ".")))))

  1020. 

  1021. (defun my-recentf-x-open ()

  1022.   ""

  1023.   (interactive)

  1024.   (my-x-open (my-recentf-get-filename)))

  1025. 

  1026. (defun my-recentf-cd-and-find-file ()

  1027.   ""

  1028.   (interactive)

  1029.   (cd (file-name-directory (my-recentf-get-filename)))

  1030.   (call-interactively 'find-file))

  1031. 

  1032. (defun my-recentf-get-filename ()

  1033.   "get file name in recentf-mode"

  1034.   (replace-regexp-in-string "  \\(\\[.+?\\] \\)?" ; "  " or "  [\\d] "

  1035.                             ""

  1036.                             (buffer-substring-no-properties (point-at-bol)

  1037.                                                             (point-at-eol))))

  1038. 

  1039. (setq recentf-save-file (expand-file-name "~/.emacs.d/.recentf")

  1040.       recentf-max-menu-items 20

  1041.       recentf-max-saved-items 30

  1042.       recentf-show-file-shortcuts-flag nil)

  1043. 

  1044. (when (require 'recentf nil t)

  1045.   (global-set-key "\C-x\C-r" 'recentf-open-files)

  1046.   ;; (add-hook 'find-file-hook

  1047.   ;;           (lambda ()

  1048.   ;;             (recentf-add-file default-directory)))

  1049.   (recentf-mode 1)

  1050.   (add-to-list 'recentf-filename-handlers 'abbreviate-file-name)

  1051.   (add-to-list 'recentf-exclude "\\.emacs\\.d/\\.recentf"))

  1052. 

  1053. (add-hook 'recentf-dialog-mode-hook

  1054.           (lambda ()

  1055.             (recentf-save-list)

  1056.             ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f") 'my-recentf-cd-and-find-file)

  1057.             (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line)

  1058.             (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line)

  1059.             (define-key recentf-dialog-mode-map "o" 'my-recentf-x-open)

  1060.             (define-key recentf-dialog-mode-map "d" 'my-recentf-delete-entry)

  1061.             (define-key recentf-dialog-mode-map "@" 'my-recentf-dired)

  1062.             (define-key recentf-dialog-mode-map "v" 'my-recentf-view-file)

  1063.             (cd "~/")))

  1064. 

  1065. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1066. ;; dired

  1067. 

  1068. (require 'dired)

  1069. 

  1070. (defun my-dired-echo-file-head (&optional arg)

  1071.   ""

  1072.   (interactive "P")

  1073.   (let ((f (dired-get-filename)))

  1074.     (message "%s"

  1075.              (with-temp-buffer

  1076.                (insert-file-contents f)

  1077.                (buffer-substring-no-properties (point-min)

  1078.                                                (progn (goto-line (if arg

  1079.                                                                      (prefix-numeric-value arg)

  1080.                                                                    10))

  1081.                                                       (point-at-eol)))))))

  1082. 

  1083. (defun my-dired-diff ()

  1084.   ""

  1085.   (interactive)

  1086.   (let ((files (dired-get-marked-files nil nil nil t)))

  1087.     (if (eq (car files)

  1088.             t)

  1089.         (diff (cadr files) (dired-get-filename))

  1090.       (message "One files must be marked!"))))

  1091. 

  1092. (require 'dired-aux) ;; needed to use dired-dwim-target-directory

  1093. (defun my-dired-do-pack-or-unpack ()

  1094.   "pack or unpack files.

  1095. if targetting one file and that is archive file defined in `pack-program-alist', unpack that.

  1096. otherwise, pack marked files. prompt user to decide filename for archive."

  1097.   (interactive)

  1098.   (let* ((infiles (dired-get-marked-files t))

  1099.          (onefile (and (eq 1 ; filename if only one file targeted, otherwise nil.

  1100.                            (length infiles))

  1101.                        (car infiles))))

  1102.     (if (and onefile

  1103.              (my-pack-file-name-association onefile))

  1104.         (when (y-or-n-p (format "unpack %s? " onefile))

  1105.           (my-unpack onefile))

  1106.       (let* ((dir-default (dired-dwim-target-directory))

  1107.              (archive-default (my-pack-file-extension (file-name-nondirectory (car infiles))))

  1108.              (archive ;; (if (interactive-p)

  1109.               (read-file-name "Output file to pack : "

  1110.                               dir-default

  1111.                               nil

  1112.                               nil

  1113.                               archive-default)

  1114.               ;; (concat dir-default archive-default)

  1115.               ))

  1116.         (apply 'my-pack

  1117.                archive

  1118.                infiles))))

  1119.   (revert-buffer)

  1120.   ;; (dired-unmark-all-marks)

  1121.   )

  1122. 

  1123. (defun my-file-name-extension-with-tar (filename)

  1124.   "if FILENAME has extension with tar, like \"tar.gz\", return that.

  1125. otherwise, return extension normally."

  1126.   (if (string-equal "tar" (file-name-extension (file-name-sans-extension filename)))

  1127.       (concat "tar."

  1128.               (file-name-extension filename))

  1129.     (file-name-extension filename)))

  1130. 

  1131. (defun my-pack-file-extension (filename)

  1132.   "if FILENAME has extension and it can be used for pack, return FILENAME.

  1133. otherwise, return FILENAME with `my-pack-default-extension'"

  1134.   (if (my-pack-file-name-association filename)

  1135.       filename

  1136.     (concat filename "." my-pack-default-extension)))

  1137. 

  1138. (defvar my-7z-program-name

  1139.   (or (executable-find "7z")

  1140.       (executable-find "7za")

  1141.       (executable-find "7zr"))

  1142.   "7z program.")

  1143. 

  1144. (defvar my-pack-default-extension

  1145.   "7z"

  1146.   "default suffix for packing. filename with this suffix must matches one of `pack-program-alist'")

  1147. 

  1148. (defun my-pack-file-name-association (filename)

  1149.   "if the pattern matching FILENAME is found at car of the list in `pack-program-alist', return cdr of that list.

  1150. otherwise, return nil."

  1151.   (let ((case-fold-search nil))

  1152.     (assoc-default filename

  1153.                    my-pack-program-alist

  1154.                    'string-match-p

  1155.                    nil)))

  1156. 

  1157. (defvar my-pack-program-alist

  1158.   `(

  1159.     ("\\.7z\\'" ,(concat my-7z-program-name " a") ,(concat my-7z-program-name " x"))

  1160.     ("\\.zip\\'" "zip -r" "unzip")

  1161.     ("\\.tar\\'" "tar cf" "tar xf")

  1162.     ("\\.tgz\\'" "tar czf" "tar xzf")

  1163.     ("\\.tar\\.gz\\'" "tar czf" "tar xzf")

  1164.     )

  1165.   "Alist of filename patterns, command for pack and unpack.

  1166. Each element looks like (REGEXP PACKING-COMMAND UNPACKING-COMMAND).

  1167. PACKING-COMMAND and UNPACKING-COMMAND can be nil if the command is not available.

  1168. alist is searched from the beginning so pattern for \".tar.gz\" should be ahead of pattern for \".gz\"")

  1169. ;; (string-match-p "\\.gz\\'" "aaa.gz")    ; \' matches string end, $ also matches the point before newline.

  1170. 

  1171. (defun my-unpack (archive)

  1172.   "unpack ARCHIVE. command for unpacking is defined in `pack-program-alist'"

  1173.   (interactive "fArchive to extract: ")

  1174.   (let* ((earchive (expand-file-name archive))

  1175.          (cmd (nth 1

  1176.                    (my-pack-file-name-association earchive)))

  1177.          )

  1178.     (if cmd

  1179.         (shell-command (concat cmd 

  1180.                                " "

  1181.                                (shell-quote-argument earchive)))

  1182.       (message "this is not archive file defined in `pack-program-alist'!"))))

  1183. 

  1184. (defun my-pack (archive &rest files)

  1185.   "pack FILES into ARCHIVE.

  1186. if ARCHIVE have extension defined in `pack-program-alist', use that command.

  1187. otherwise, use `pack-default-extension' for pack."

  1188.   (let* ((archive-ext (my-pack-file-extension (expand-file-name archive)))

  1189.          (cmd (car (my-pack-file-name-association archive-ext)))

  1190.          )

  1191.     (if cmd

  1192.         (shell-command (concat cmd

  1193.                                " "

  1194.                                (shell-quote-argument archive-ext)

  1195.                                " "

  1196.                                (mapconcat 'shell-quote-argument

  1197.                                           files

  1198.                                           " ")))

  1199.       (message "invalid extension for packing!"))))

  1200. 

  1201. (defun my-pop-to-buffer-erase-noselect (buffer-or-name)

  1202.   "pop up buffer using `display-buffer' and return that buffer."

  1203.   (let ((bf (get-buffer-create buffer-or-name)))

  1204.     (with-current-buffer bf

  1205.       (cd ".")

  1206.       (erase-buffer))

  1207.     (display-buffer bf)

  1208.     bf))

  1209. 

  1210. (defun my-replace-nasi-none ()

  1211.   ""

  1212.   (save-excursion

  1213.     (let ((buffer-read-only nil))

  1214.       (goto-char (point-min))

  1215.       (while (search-forward "なし" nil t)

  1216.         (replace-match "none")))))

  1217. 

  1218. (defun dired-get-du ()                  ;em-unix.el使えるかも

  1219.   "dired get disk usage"

  1220.   (interactive)

  1221.   (message "calculating du...")

  1222.   (dired-do-shell-command "du -hs * " nil (dired-get-marked-files)))

  1223. 

  1224. (defun my-dired-scroll-up ()

  1225.   ""

  1226.   (interactive)

  1227.   (my-dired-previous-line (- (window-height) 1)))

  1228. 

  1229. (defun my-dired-scroll-down ()

  1230.   ""

  1231.   (interactive)

  1232.   (my-dired-next-line (- (window-height) 1)))

  1233. 

  1234. (defun my-dired-previous-line (&optional arg)

  1235.   ""

  1236.   (interactive)

  1237.   (dired-previous-line (or arg 1))

  1238.   (my-dired-print-current-dir-and-file))

  1239. 

  1240. (defun my-dired-next-line (&optional arg)

  1241.   ""

  1242.   (interactive)

  1243.   (dired-next-line (or arg 1))

  1244.   (my-dired-print-current-dir-and-file))

  1245. 

  1246. (defun my-dired-print-current-dir-and-file ()

  1247.   (message "%s  %s"

  1248.            default-directory

  1249.            (buffer-substring-no-properties (point-at-bol)

  1250.                                            (point-at-eol))))

  1251. 

  1252. (defun dired-do-execute-as-command ()

  1253.   ""

  1254.   (interactive)

  1255.   (let ((file (dired-get-filename t)))

  1256.     (if (file-executable-p file)

  1257.         (start-process file nil file)

  1258.       (when (y-or-n-p "this file cant be executed. mark as executable and go? : ")

  1259.         (set-file-modes file (file-modes-symbolic-to-number "u+x" (file-modes file)))

  1260.         (start-process file nil file)))))

  1261. 

  1262. ;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html

  1263. 

  1264. (defun my-dired-x-open ()

  1265.   ""

  1266.   (interactive)

  1267.   (my-x-open (dired-get-filename t t)))

  1268. 

  1269. (if (eq window-system 'mac)

  1270.     (setq dired-listing-switches "-lhFG")

  1271.   (setq dired-listing-switches "-lhFG --time-style=long-iso")

  1272.   )

  1273. (setq dired-listing-switches "-lhFG")

  1274. 

  1275. (define-minor-mode my-dired-display-all-mode

  1276.   ""

  1277.   :init-value nil

  1278.   :global nil

  1279.   :lighter " ALL"

  1280.   (when (eq major-mode 'dired-mode)

  1281.     (my-dired-display-all-set)

  1282.     (revert-buffer)))

  1283. (defun my-dired-display-all-set ()

  1284.   ""

  1285.   (if my-dired-display-all-mode

  1286.       (or (string-match-p my-dired-display-all-switch

  1287.                           dired-actual-switches)

  1288.           (setq dired-actual-switches

  1289.                 (concat my-dired-display-all-switch

  1290.                         " "

  1291.                         dired-actual-switches)))

  1292.     (setq dired-actual-switches

  1293.           (replace-regexp-in-string (concat my-dired-display-all-switch

  1294.                                             " ")

  1295.                                     ""

  1296.                                     dired-actual-switches))))

  1297. (defvar my-dired-display-all-switch "-A")

  1298. (add-hook 'dired-mode-hook

  1299.           'my-dired-display-all-set)

  1300. 

  1301. (put 'dired-find-alternate-file 'disabled nil)

  1302. (setq dired-ls-F-marks-symlinks t)

  1303. 

  1304. (require 'ls-lisp)

  1305. (setq ls-lisp-use-insert-directory-program nil)

  1306. (setq ls-lisp-dirs-first t)

  1307. (setq ls-lisp-use-localized-time-format t)

  1308. (setq ls-lisp-format-time-list

  1309.       '("%Y-%m-%d %H:%M"

  1310.         "%Y-%m-%d      "))

  1311. 

  1312. (setq dired-dwim-target t)

  1313. 

  1314. ;; (add-hook 'dired-after-readin-hook

  1315. ;;           'my-replace-nasi-none)

  1316. 

  1317. ;; (add-hook 'after-init-hook

  1318. ;;           (lambda ()

  1319. ;;             (dired ".")))

  1320. 

  1321. (add-hook 'dired-mode-hook

  1322.           (lambda ()

  1323.             (define-key dired-mode-map "o" 'my-dired-x-open)

  1324.             (define-key dired-mode-map "i" 'dired-get-du)

  1325.             (define-key dired-mode-map "!" 'shell-command)

  1326.             (define-key dired-mode-map "&" 'async-shell-command)

  1327.             (define-key dired-mode-map "X" 'dired-do-async-shell-command)

  1328.             (define-key dired-mode-map "=" 'my-dired-diff)

  1329.             (define-key dired-mode-map "B" 'gtkbm-add-current-dir)

  1330.             (define-key dired-mode-map "b" 'gtkbm)

  1331.             (define-key dired-mode-map "h" 'my-dired-echo-file-head)

  1332.             (define-key dired-mode-map "@" (lambda () (interactive) (my-x-open ".")))

  1333.             (define-key dired-mode-map (kbd "TAB") 'other-window)

  1334.             (define-key dired-mode-map "P" 'my-dired-do-pack-or-unpack)

  1335.             (define-key dired-mode-map "a" 'my-dired-display-all-mode)

  1336.             (define-key dired-mode-map "/" 'dired-isearch-filenames)

  1337.             (define-key dired-mode-map (kbd "DEL") 'dired-up-directory)

  1338.             (substitute-key-definition 'dired-next-line 'my-dired-next-line dired-mode-map)

  1339.             (substitute-key-definition 'dired-previous-line 'my-dired-previous-line dired-mode-map)

  1340.             (define-key dired-mode-map (kbd "<left>") 'my-dired-scroll-up)

  1341.             (define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)

  1342.             (let ((file "._Icon\015"))

  1343.               (when (file-readable-p file)

  1344.                 (delete-file file)))))

  1345. 

  1346. ;; http://blog.livedoor.jp/tek_nishi/archives/4693204.html

  1347. 

  1348. (defun my-dired-toggle-mark()

  1349.   (let ((cur (cond ((eq (following-char) dired-marker-char) ?\040)

  1350.                    (t dired-marker-char))))

  1351.     (delete-char 1)

  1352.     (insert cur)))

  1353. 

  1354. (defun my-dired-mark (arg)

  1355.   "toggle mark the current (or next ARG) files.

  1356. If on a subdir headerline, mark all its files except `.' and `..'.

  1357. 

  1358. Use \\[dired-unmark-all-files] to remove all marks

  1359. and \\[dired-unmark] on a subdir to remove the marks in

  1360. this subdir."

  1361. 

  1362.   (interactive "P")

  1363.   (if (dired-get-subdir)

  1364.       (save-excursion (dired-mark-subdir-files))

  1365.     (let ((inhibit-read-only t))

  1366.       (dired-repeat-over-lines

  1367.        (prefix-numeric-value arg)

  1368.        'my-dired-toggle-mark))))

  1369. 

  1370. (defun my-dired-mark-backward (arg)

  1371.   "In Dired, move up lines and toggle mark there.

  1372. Optional prefix ARG says how many lines to unflag; default is one line."

  1373.   (interactive "p")

  1374.   (my-dired-mark (- arg)))

  1375. 

  1376. (defun dired-mode-hooks()

  1377.   (local-set-key (kbd "SPC") 'my-dired-mark)

  1378.   (local-set-key (kbd "S-SPC") 'my-dired-mark-backward))

  1379. (add-hook 'dired-mode-hook 'dired-mode-hooks)

  1380. 

  1381. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1382. ;; eshell

  1383. 

  1384. (defun my-eshell-backward-delete-char ()

  1385.   (interactive)

  1386.   (when (< (save-excursion

  1387.              (eshell-bol)

  1388.              (point))

  1389.            (point))

  1390.     (backward-delete-char 1)))

  1391. 

  1392. (defun my-file-owner-p (file)

  1393.   "t if FILE is owned by me."

  1394.   (eq (user-uid) (nth 2 (file-attributes file))))

  1395. 

  1396. ;; ;; http://www.bookshelf.jp/pukiwiki/pukiwiki.php?Eshell%A4%F2%BB%C8%A4%A4%A4%B3%A4%CA%A4%B9

  1397. ;; ;; written by Stefan Reichoer <reichoer@web.de>

  1398. ;; (defun eshell/less (&rest args)

  1399. ;;   "Invoke `view-file' on the file.

  1400. ;; \"less +42 foo\" also goes to line 42 in the buffer."

  1401. ;;   (if args

  1402. ;;       (while args

  1403. ;;         (if (string-match "\\`\\+\\([0-9]+\\)\\'" (car args))

  1404. ;;             (let* ((line (string-to-number (match-string 1 (pop args))))

  1405. ;;                    (file (pop args)))

  1406. ;;               (view-file file)

  1407. ;;               (goto-line line))

  1408. ;;           (view-file (pop args))))))

  1409. 

  1410. ;; (defun eshell/git (&rest args)

  1411. ;;   ""

  1412. ;;   )

  1413. 

  1414. (defun eshell/o (&optional file)

  1415.   (my-x-open (or file ".")))

  1416. 

  1417. ;; (defun eshell/vi (&rest args)

  1418. ;;   "Invoke `find-file' on the file.

  1419. ;; \"vi +42 foo\" also goes to line 42 in the buffer."

  1420. ;;   (while args

  1421. ;;     (if (string-match "\\`\\+\\([0-9]+\\)\\'" (car args))

  1422. ;;         (let* ((line (string-to-number (match-string 1 (pop args))))

  1423. ;;                (file (pop args)))

  1424. ;;           (find-file file)

  1425. ;;           (goto-line line))

  1426. ;;       (find-file (pop args)))))

  1427. 

  1428. (defun eshell/clear ()

  1429.   "Clear the current buffer, leaving one prompt at the top."

  1430.   (let ((inhibit-read-only t))

  1431.     (erase-buffer)))

  1432. 

  1433. (defun eshell/d (&optional dirname switches)

  1434.   "if first arg is omitted open current directory."

  1435.   (dired (or dirname ".") switches))

  1436. 

  1437. (defun eshell/v ()

  1438.   (view-mode 1))

  1439. 

  1440. (defalias 'eshell/: 'ignore)

  1441. (defalias 'eshell/type 'eshell/which)

  1442. ;; (defalias 'eshell/vim 'eshell/vi)

  1443. (defalias 'eshell/ff 'find-file)

  1444. (defalias 'eshell/q 'eshell/exit)

  1445. 

  1446. (defun eshell-goto-prompt ()

  1447.   ""

  1448.   (interactive)

  1449.   (goto-char (point-max)))

  1450. 

  1451. (defun eshell-cd-default-directory (&optional eshell-buffer-or-name)

  1452.   "open eshell and change wd

  1453. if arg given, use that eshell buffer, otherwise make new eshell buffer."

  1454.   (interactive)

  1455.   (let ((dir (expand-file-name default-directory)))

  1456.     (switch-to-buffer (or eshell-buffer-or-name

  1457.                           (eshell t)))

  1458.     (unless (equal dir (expand-file-name default-directory))

  1459.       ;; (cd dir)

  1460.       ;; (eshell-interactive-print (concat "cd " dir "\n"))

  1461.       ;; (eshell-emit-prompt)

  1462.       (goto-char (point-max))

  1463.       (eshell-kill-input)

  1464.       (insert "cd " dir)

  1465.       (eshell-send-input))))

  1466. 

  1467. (setq eshell-directory-name "~/.emacs.d/eshell/")

  1468. (setq eshell-term-name "eterm-color")

  1469. (setq eshell-scroll-to-bottom-on-input t)

  1470. (setq eshell-cmpl-ignore-case t)

  1471. (setq eshell-cmpl-cycle-completions nil)

  1472. (setq eshell-highlight-prompt nil)

  1473. (setq eshell-ls-initial-args "-FG")     ; "-hF")

  1474. (setq eshell-prompt-function

  1475.       (lambda ()

  1476.         (with-temp-buffer

  1477.           (let (p1 p2 p3 p4)

  1478.             (insert " [")

  1479.             (setq p1 (point))

  1480.             (insert (abbreviate-file-name default-directory))

  1481.             (setq p2 (point))

  1482.             (insert "]"

  1483.                     "\n")

  1484.             (setq p3 (point))

  1485.             (insert user-login-name

  1486.                     "@"

  1487.                     (or (getenv "HOSTNAME")

  1488.                         (substring (shell-command-to-string (or (executable-find "hostname")

  1489.                                                                 "echo ''"))

  1490.                                    0

  1491.                                    -1)))

  1492.             (setq p4 (point))

  1493.             (insert " "

  1494.                     (format-time-string "%a, %d %b %Y %T %z")

  1495.                     " eshell\n"

  1496.                     "last:"

  1497.                     (number-to-string eshell-last-command-status)

  1498.                     (if (= (user-uid)

  1499.                            0)

  1500.                         " # "

  1501.                       " $ "))

  1502.             (add-text-properties p1

  1503.                                  p2

  1504.                                  '(face ((foreground-color . "yellow"))))

  1505.             (add-text-properties p3

  1506.                                  p4

  1507.                                  '(face ((foreground-color . "cyan"))))

  1508.             (buffer-substring (point-min)

  1509.                               (point-max))))))

  1510. 

  1511. (add-hook 'eshell-mode-hook

  1512.           (lambda ()

  1513.             ;; (define-key eshell-mode-map (kbd "C-x C-x") (lambda ()

  1514.             ;;                                               (interactive)

  1515.             ;;                                               (switch-to-buffer (other-buffer))))

  1516.             (define-key eshell-mode-map (kbd "C-u") (lambda ()

  1517.                                                       (interactive)

  1518.                                                       (eshell-goto-prompt)

  1519.                                                       (eshell-kill-input)))

  1520.             (define-key eshell-mode-map (kbd "C-g") (lambda ()

  1521.                                                       (interactive)

  1522.                                                       (eshell-goto-prompt)

  1523.                                                       (my-keyboard-quit)))

  1524.             (define-key eshell-mode-map (kbd "DEL") 'my-eshell-backward-delete-char)

  1525.             (define-key eshell-mode-map (kbd "C-p") 'eshell-previous-matching-input-from-input)

  1526.             (define-key eshell-mode-map (kbd "C-n") 'eshell-next-matching-input-from-input)

  1527.             (mapcar (lambda (alias)

  1528.                       (add-to-list 'eshell-command-aliases-list

  1529.                                    alias))

  1530.                     '(

  1531.                                         ; ("ll" "ls -l $*")

  1532.                                         ; ("la" "ls -a $*")

  1533.                                         ; ("lla" "ls -al $*")

  1534.                       ("ut" "slogin 03110414@un001.ecc.u-tokyo.ac.jp $*")

  1535.                       ("aptin" "apt-get install $*")

  1536.                       ("eless" "cat >>> (with-current-buffer (get-buffer-create \"*eshell output\") (erase-buffer) (setq buffer-read-only nil) (current-buffer)); (view-buffer (get-buffer \"*eshell output*\"))")

  1537.                       ("g" "git $*")

  1538.                       ))

  1539.                                         ; (eshell/alias "g" "git $*")

  1540.             (add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer)

  1541.             (apply 'eshell/addpath exec-path)

  1542.             (set (make-local-variable 'scroll-margin) 0)

  1543.             ;; (eshell/export "GIT_PAGER=")

  1544.             ;; (eshell/export "GIT_EDITOR=")

  1545.             (eshell/export "LC_MESSAGES=C")

  1546.             (add-to-list 'eshell-visual-commands "vim")

  1547.             (add-to-list 'eshell-visual-commands "git")

  1548.             (switch-to-buffer (current-buffer)) ; move buffer top of list

  1549.             ))

  1550. 

  1551. ;; (eval-after-load "em-alias"

  1552. ;;   '(progn ;; (eshell/alias "ll" "ls -l")

  1553. ;;      ;; (eshell/alias "la" "ls -a")

  1554. ;;      ;; (eshell/alias "lla" "ls -al")

  1555. ;;      (eshell/alias "sgcc" (if (eq system-type 'windows-nt)

  1556. ;;                               "gcc -o win.$1.exe $1"

  1557. ;;                             "gcc -o ${uname}.$1.out $1"))

  1558. ;;      (eshell/alias "slmgcc" (if (eq system-type 'windows-nt)

  1559. ;;                                 "gcc -lm -o win.$1.exe $1"

  1560. ;;                               "gcc -lm -o ${uname}.$1.out $1"))

  1561. ;;      ;; (eshell/alias "ut" "ssh g841105@un001.ecc.u-tokyo.ac.jp")

  1562. ;;      (add-to-list 'recentf-exclude (concat eshell-directory-name "alias"))))

  1563. 

  1564. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1565. ;; 最終更新日時を得る

  1566. 

  1567. (defvar my-buffer-file-last-modified-time nil "")

  1568. 

  1569. (make-variable-buffer-local 'my-buffer-file-last-modified-time)

  1570. 

  1571. (defun my-get-file-last-modified-time (file)

  1572.   ""

  1573.   (nth 5

  1574.        (file-attributes file)))

  1575. 

  1576. (defun my-set-buffer-file-last-modified-time ()

  1577.   ""

  1578.   (make-local-variable 'my-buffer-file-last-modified-time)

  1579.   (setq my-buffer-file-last-modified-time

  1580.         (format-time-string "%Y/%m/%d %H:%M" (my-get-file-last-modified-time buffer-file-name))))

  1581. 

  1582. (add-hook 'find-file-hook

  1583.           'my-set-buffer-file-last-modified-time)

  1584. (add-hook 'after-save-hook

  1585.           'my-set-buffer-file-last-modified-time)

  1586. (add-hook 'after-revert-hook

  1587.           'my-set-buffer-file-last-modified-time)

  1588. 

  1589. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1590. ;; auto saving

  1591. 

  1592. (defun my-save-this-buffer (silent-p)

  1593.   "save current buffer if can without asking"

  1594.   (let ((cm (if (current-message)

  1595.                 (format "%s\n" (current-message))

  1596.               ""))

  1597.         (fun (symbol-function (if silent-p

  1598.                                   'ignore

  1599.                                 'message))))

  1600.     (cond ((active-minibuffer-window) nil)

  1601.           ((not buffer-file-name) (funcall fun "%ssaving... this buffer doesn't visit any file." cm) nil)

  1602.           ((not (file-exists-p buffer-file-name)) (funcall fun "%ssaving... file not exist. save manually first." com) nil)

  1603.           (buffer-read-only (funcall fun "%ssaving... this buffer is read-only." cm) nil)

  1604.           ((not (buffer-modified-p)) (funcal fun "%ssaving... not modified yet." cm) nil)

  1605.           ((not (file-writable-p buffer-file-name)) (funcall fun "%ssaving... you cannot change this file." cm) nil)

  1606.           (t (funcall fun "%ssaving..." cm)

  1607.              (save-buffer)

  1608.              (funcall fun "%ssaving... done." cm)))))

  1609. ;; (if (and buffer-file-name

  1610. ;;          (not buffer-read-only)

  1611. ;;          (buffer-modified-p)

  1612. ;;          (file-writable-p buffer-file-name))

  1613. ;;     (save-buffer))) ; 静かな方

  1614. 

  1615. (defvar my-auto-save-this-buffer nil "auto save timer object")

  1616. 

  1617. (defun my-auto-save-this-buffer (sec &optional silent-p)

  1618.   "auto save current buffer if idle for SEC.

  1619. when SEC is nil, stop auto save if enabled."

  1620.   (if sec

  1621.       (progn (when my-auto-save-this-buffer

  1622.                (cancel-timer my-auto-save-this-buffer)

  1623.                (setq my-auto-save-this-buffer nil))

  1624.              (setq my-auto-save-this-buffer (run-with-idle-timer sec t 'my-save-this-buffer silent-p)))

  1625.     (when my-auto-save-this-buffer

  1626.       (cancel-timer my-auto-save-this-buffer)

  1627.       (setq my-auto-save-this-buffer nil))))

  1628. 

  1629. (my-auto-save-this-buffer 2 t)

  1630. 

  1631. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1632. ;; misc funcs

  1633. 

  1634. (defun my-format-time-string (&optional time)

  1635.   ""

  1636.   (let ((system-time-locale "C"))

  1637.     (format-time-string "%a, %d %b %Y %T" time)))

  1638. 

  1639. (defvar my-filer nil)

  1640. (setq my-filer (or (executable-find "pcmanfm")

  1641.                    (executable-find "nautilus")))

  1642. (defun my-x-open (file)

  1643.   "open file."

  1644.   (interactive "FOpen File: ")

  1645.   (setq file (expand-file-name file))

  1646.   (message "Opening %s..." file)

  1647.   (cond ((eq system-type 'windows-nt)

  1648.          (call-process "cmd.exe" nil 0 nil "/c" "start" "" (convert-standard-filename file)))

  1649.         ((eq system-type 'darwin)

  1650.          (call-process "open" nil 0 nil file))

  1651.         ((not (getenv "DESKTOP_SESSION"))

  1652.          (find-file file))

  1653.         (t

  1654.          (if (file-directory-p file)

  1655.              (call-process my-filer nil 0 nil file)

  1656.            (call-process "xdg-open" nil 0 nil file))))

  1657.   (recentf-add-file file)

  1658.   (message "Opening %s...done" file))

  1659. 

  1660. (defvar my-auto-indent-buffer-mode-list

  1661.   '(emacs-lisp-mode

  1662.     sh-mode

  1663.     js-mode

  1664.     sgml-mode

  1665.     c-mode

  1666.     c++-mode))

  1667. (setq my-auto-indent-buffer-mode-list nil) ;disable

  1668. (defun my-indent-buffer ()

  1669.   "indent whole buffer."

  1670.   (interactive)

  1671.   (indent-region (point-min)

  1672.                  (point-max)))

  1673. (defun my-auto-indent-buffer ()

  1674.   ""

  1675.   (when (memq major-mode my-auto-indent-buffer-mode-list)

  1676.     (my-indent-buffer)))

  1677. (add-hook 'before-save-hook

  1678.           'my-auto-indent-buffer)

  1679. 

  1680. (defun my-keyboard-quit ()

  1681.   ""

  1682.   (interactive)

  1683.   (run-hooks 'before-keyboard-quit-hook)

  1684.   ;; (redisplay t)

  1685.   (redraw-display)

  1686.   ;; (run-hooks 'window-configuration-change-hook)

  1687.   (my-revert-buffer-if-needed)

  1688.   ;; (revert-buffer t t)

  1689.   (keyboard-quit)

  1690.   (insert "insert me")

  1691.   (run-hooks 'after-keyboard-quit-hook))

  1692. (substitute-key-definition 'keyboard-quit 'my-keyboard-quit global-map)

  1693. ;; (global-set-key (kbd "C-g") 'my-keyboard-quit)

  1694. 

  1695. (defun my-convmv-sjis2utf8-test ()

  1696.   "run `convmv -r -f sjis -t utf8 *'

  1697. this is test, does not rename files"

  1698.   (interactive)

  1699.   (shell-command "convmv -r -f sjis -t utf8 *"))

  1700. 

  1701. (defun my-convmv-sjis2utf8-notest ()

  1702.   "run `convmv -r -f sjis -t utf8 * --notest'"

  1703.   (interactive)

  1704.   (shell-command "convmv -r -f sjis -t utf8 * --notest"))

  1705. 

  1706. (defun my-copy-whole-line ()

  1707.   ""

  1708.   (interactive)

  1709.   (kill-new (concat (buffer-substring (point-at-bol)

  1710.                                       (point-at-eol))

  1711.                     "\n")))

  1712. 

  1713. (defun kill-ring-save-buffer-file-name ()

  1714.   "get current filename"

  1715.   (interactive)

  1716.   (let ((file buffer-file-name))

  1717.     (if file

  1718.         (progn (kill-new file)

  1719.                (message file))

  1720.       (message "not visiting file."))))

  1721. 

  1722. ;; ;; コマンド的な

  1723. ;; (defvar my-execute-func-list nil "func list")

  1724. ;; (defvar my-execute-func-hist-list nil "func hist list")

  1725. ;; (setq my-execute-func-list '("(call-interactively 'my-francaiscd-b)"

  1726. ;;                              "(call-interactively 'my-francaiscd-a)"

  1727. ;;                              "parsec47"

  1728. ;;                              "chromium-browser"

  1729. ;;                              "inkscape"

  1730. ;;                              "audacious"

  1731. ;;                              "gnome-terminal"

  1732. ;;                              "zkaicd.py"

  1733. ;;                              "glchess"))

  1734. 

  1735. ;; (defun my-execute-start-process-or-eval-sexp ()

  1736. ;;   "execute something"

  1737. ;;   (interactive)

  1738. ;;   (let ((func (completing-read "command?: " my-execute-func-list nil nil "" my-execute-func-hist-list)))

  1739. ;;     (if (string= "(" (substring func 0 1))

  1740. ;;         (with-temp-buffer (insert func)

  1741. ;;                           (eval-buffer))

  1742. ;;       (start-process "ps"

  1743. ;;                      nil

  1744. ;;                      func))))

  1745. 

  1746. (defvar my-revert-buffer-if-needed-last-buffer nil)

  1747. 

  1748. (defun my-revert-buffer-if-needed ()

  1749.   ""

  1750.   (interactive)

  1751.   (unless (eq my-revert-buffer-if-needed-last-buffer (current-buffer))

  1752.     (setq my-revert-buffer-if-needed-last-buffer (current-buffer))

  1753.     (when (or (eq major-mode 'dired-mode)

  1754.               (not (verify-visited-file-modtime (current-buffer))))

  1755.       (revert-buffer t t)

  1756.       (message "%s reverted." (buffer-name)))))

  1757. 

  1758. (add-hook 'post-command-hook ; 'window-configuration-change-hook

  1759.           'my-revert-buffer-if-needed)

  1760. 

  1761. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1762. ;; forked from http://d.hatena.ne.jp/khiker/20100119/window_resize

  1763. (define-key my-prefix-map (kbd "C-w") 'my-window-organizer)

  1764. 

  1765. (defun my-window-organizer ()

  1766.   "Control window size and position."

  1767.   (interactive)

  1768.   (save-selected-window

  1769.     (select-window (window-at 0 0))

  1770.     (let ( ;; (window-obj (selected-window))

  1771.           ;; (current-width (window-width))

  1772.           ;; (current-height (window-height))

  1773.           action

  1774.           c)

  1775.       (catch 'end-flag

  1776.         (while t

  1777.           (setq action

  1778.                 (read-key-sequence-vector (format "size[%dx%d] 1: maximize; 2, 3: split; 0: delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."

  1779.                                                   (window-width)

  1780.                                                   (window-height))))

  1781.           (setq c (aref action 0))

  1782.           (cond ((= c ?l)

  1783.                  (unless (eq (window-width) (frame-width))

  1784.                    (enlarge-window-horizontally 1)))

  1785.                 ((= c ?h)

  1786.                  (unless (eq (window-width) (frame-width))

  1787.                    (shrink-window-horizontally 1)))

  1788.                 ((= c ?j)

  1789.                  (enlarge-window 1))

  1790.                 ((= c ?k)

  1791.                  (shrink-window 1))

  1792.                 ((= c ?o)

  1793.                  (other-window 1))

  1794.                 ((memq c '(?d ?0))

  1795.                  (unless (eq (selected-window) (next-window (selected-window) 0 1))

  1796.                    (delete-window (selected-window))))

  1797.                 ((= c ?1)

  1798.                  (delete-other-windows))

  1799.                 ((= c ?2)

  1800.                  (split-window-vertically))

  1801.                 ((= c ?3)

  1802.                  (split-window-horizontally))

  1803.                 ((memq c '(?q ?\C-g))

  1804.                  (message "Quit")

  1805.                  (throw 'end-flag t))

  1806.                 (t

  1807.                  (beep))))))))

  1808. ;; (aref (read-key-sequence-vector "aa") 0)

  1809. 

  1810. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1811. ;; save and restore frame size

  1812. ;;http://www.bookshelf.jp/soft/meadow_30.html#SEC416

  1813. (defun my-window-size-save ()

  1814.   (let* ((rlist (frame-parameters (selected-frame)))

  1815.          (ilist initial-frame-alist)

  1816.          (nCHeight (frame-height))

  1817.          (nCWidth (frame-width))

  1818.          (tMargin (if (integerp (cdr (assoc 'top rlist)))

  1819.                       (cdr (assoc 'top rlist)) 0))

  1820.          (lMargin (if (integerp (cdr (assoc 'left rlist)))

  1821.                       (cdr (assoc 'left rlist)) 0))

  1822.          buf

  1823.          (file "~/.emacs.d/.framesize.el")

  1824.          (recentf-exclude '("\\.emacs\\.d/\\.framesize\\.el$")))

  1825.     (if (get-file-buffer (expand-file-name file))

  1826.         (setq buf (get-file-buffer (expand-file-name file)))

  1827.       (setq buf (find-file-noselect file)))

  1828.     (set-buffer buf)

  1829.     (erase-buffer)

  1830.     (insert (concat

  1831.              ;; 初期値をいじるよりも modify-frame-parameters

  1832.              ;; で変えるだけの方がいい?

  1833.              "(delete 'width default-frame-alist)\n"

  1834.              "(delete 'height default-frame-alist)\n"

  1835.              "(delete 'top default-frame-alist)\n"

  1836.              "(delete 'left default-frame-alist)\n"

  1837.              "(setq default-frame-alist (append (list\n"

  1838.              "'(width . " (int-to-string nCWidth) ")\n"

  1839.              "'(height . " (int-to-string nCHeight) ")\n"

  1840.              "'(top . " (int-to-string tMargin) ")\n"

  1841.              "'(left . " (int-to-string lMargin) "))\n"

  1842.              "default-frame-alist))\n"

  1843.              ;;"(setq default-frame-alist default-frame-alist)"

  1844.              ))

  1845.     (save-buffer)

  1846.     ))

  1847. (defun my-window-size-load ()

  1848.   (let* ((file "~/.emacs.d/.framesize.el"))

  1849.     (if (file-exists-p file)

  1850.         (load file))))

  1851. (when window-system

  1852.   (my-window-size-load)

  1853.   (add-hook 'after-init-hook      ;何かがframeの大きさ勝手に変えやがる

  1854.             (lambda ()

  1855.               (run-with-timer 1

  1856.                               nil

  1857.                               (lambda ()

  1858.                                 (modify-frame-parameters (selected-frame)

  1859.                                                          default-frame-alist))))

  1860.             t)

  1861.   (add-hook 'kill-emacs-hook

  1862.             'my-window-size-save))

  1863. 

  1864. ;; windowサイズを固定

  1865. ;; setq default-frame-alist

  1866. ;;       (append (list '(width . 80)

  1867. ;; 		    '(height . 35)

  1868. ;; 	      )

  1869. ;; 	      default-frame-alist)

  1870. ;; ) ;;デフォルトのフレーム設定

  1871. 

  1872. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1873. ;; ;; emacsを殺伐とさせる

  1874. ;; ;; 補完させるとき失敗するからなし

  1875. ;; ;; http://e-arrows.sakura.ne.jp/2010/05/emacs-should-be-more-savage.html

  1876. ;; (defadvice message (before message-for-stupid (arg &rest arg2) activate)

  1877. ;;   (setq arg

  1878. ;;         (concat arg

  1879. ;;                 (if (eq nil (string-match "\\. *$" arg)) ".")

  1880. ;;                 " And You are a Coward!")))

  1881. 

  1882. 

  1883. 

  1884. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1885. ;; ubuntu

  1886. 

  1887. (defun my-load-scim ()

  1888.   "use scim-bridge.el as japanese im."

  1889.   ;; Load scim-bridge.

  1890.   (require 'scim-bridge)

  1891.   ;; Turn on scim-mode automatically after loading .emacs

  1892.   (add-hook 'after-init-hook 'scim-mode-on)

  1893.   (setq scim-cursor-color "red")

  1894.   (scim-define-preedit-key ?\^h t)

  1895.   (scim-define-common-key ?\* nil)

  1896.   (scim-define-common-key ?\^/ nil))

  1897. 

  1898. (defun my-load-anthy ()

  1899.   "use anthy.el as japanese im."

  1900.   ;; anthy

  1901.   (require 'anthy)

  1902.   (global-set-key [muhenkan] (lambda () (interactive) (anthy-mode-off)))

  1903.   (global-set-key [henkan] (lambda () (interactive) (anthy-mode-on)))

  1904.   (when (>= emacs-major-version 23)

  1905.     (setq anthy-accept-timeout 1)))

  1906. 

  1907. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1908. ;; windows用設定

  1909. 

  1910. ;; (add-to-list 'exec-path "c:/Program Files/Gauche/bin/")

  1911. 

  1912. (defun start-ckw-bash ()

  1913.   ""

  1914.   (interactive)

  1915.   (start-process "ckw_bash"

  1916.                  nil

  1917.                  "C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe")) ; cじゃないといけないらしい

  1918. 

  1919. (defun my-w32-add-export-path (&rest args)

  1920.   ""

  1921.   (mapcar (lambda (path)

  1922.             (add-to-list 'exec-path (expand-file-name path)))

  1923.           (reverse args))

  1924.   (setenv "PATH"

  1925.           (mapconcat 'convert-standard-filename

  1926.                      exec-path

  1927.                      ";")))

  1928. 

  1929. (when (eq system-type 'windows-nt)

  1930.   ;; (setq scheme-program-name "\"c:/Program Files/Gauche/bin/gosh.exe\" -i")

  1931.   ;; (setq python-python-command "c:/Python26/python.exe")

  1932. 

  1933.   (define-key my-prefix-map (kbd "C-c") 'start-ckw-bash)

  1934.   (my-w32-add-export-path "c:/WINDOWS"

  1935.                           (expand-file-name "~/bin")

  1936.                           (expand-file-name "~/dbx/apps/bin"))

  1937. 

  1938.   (when window-system

  1939.     (setq w32-enable-synthesized-fonts t))

  1940.   (setq file-name-coding-system 'sjis))

  1941.