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.
232 Commits
1 Branch
41 MiB
 
 
 
 
 
 
Tree: 49a57dc4e9
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '49a57dc4e9'
${ noResults }
dotfiles-mirror/emacs.el

1927 lines
68 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-readily-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 'mode-line

  308.                            (nth 1

  309.                                 (assq state

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

  311.       (set-face-background 'mode-line

  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-readily-state)

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

  328. 

  329. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  330. ;; file handling

  331. 

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

  333. 

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

  335. (when (require 'saveplace nil t)

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

  337. 

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

  339. (setq make-backup-files t)

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

  341. (setq backup-directory-alist

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

  343.             backup-directory-alist))

  344. (setq version-control 'never)

  345. (setq delete-old-versions t)

  346. 

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

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

  349. 

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

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

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

  353. 

  354. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  355. ;; editting

  356. (setq require-final-newline t)

  357. (setq kill-whole-line t)

  358. (setq scroll-conservatively 35

  359.       scroll-margin 2

  360.       scroll-step 0)

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

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

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

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

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

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

  367. (setq-default tab-width 4)

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

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

  370. (pc-selection-mode 1)

  371. (delete-selection-mode 1)

  372. (cua-mode 0)

  373. 

  374. ;; key bindings

  375. ;; moving around

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  390. 

  391. ;; C-h and DEL

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

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

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

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

  396. ;;                               (interactive)

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

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

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

  400. 

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

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

  403.                 ;; (lambda ()

  404.                 ;;   (interactive)

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

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

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

  408.                 )

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

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

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

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

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

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

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

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

  417.                 (lambda ()

  418.                   (interactive)

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

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

  421.                 )

  422. 

  423. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  424. ;; gmail

  425. 

  426. (setq mail-interactive t

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

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

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

  430.       smtpmail-smtp-service 587

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

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

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

  434. 

  435. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  436. ;; buffer killing

  437. 

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

  439.   ""

  440.   (interactive)

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

  442.       (kill-buffer (current-buffer))))

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

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

  445. 

  446. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  447. ;; for emacsclient

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

  449. 

  450. 

  451. 

  452. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  453. ;; global keys

  454. 

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

  456. 

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

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

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

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

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

  462. 

  463. ;; compose window

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

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

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

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

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

  469. 

  470. ;; disable annoying keys

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

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

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

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

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

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

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

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

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

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

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

  482. 

  483. (mouse-avoidance-mode 'banish)

  484. 

  485. 

  486. 

  487. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  488. ;; download library from web

  489. 

  490. (require 'url)

  491. 

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

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

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

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

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

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

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

  499.         (progn (condition-case nil

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

  501.                           (url-copy-file url

  502.                                          lpath

  503.                                          t)

  504.                           (when bite-compile-p

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

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

  507.                         nil))

  508.                (locate-library lib))

  509.       locate-p)))

  510. 

  511. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

  513. 

  514. (require 'simple nil t)

  515. 

  516. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  517. ;; share clipboard with x

  518. (when (and window-system

  519.            ;; (getenv "DESKTOP_SESSION")

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

  521.            )

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

  523.         x-select-enable-primary nil)

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

  525.   )

  526. 

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

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

  529. 

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

  531.      (executable-find "xclip")

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

  533.      (require 'xclip nil t)

  534.      (turn-on-xclip))

  535. 

  536. ;; その他のhook

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

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

  539. 

  540. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  541. ;; mode

  542. 

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

  544.           (lambda ()

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

  546. 

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

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

  549.           (lambda ()

  550.             (view-mode 1)

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

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

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

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

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

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

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

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

  559.             ))

  560. 

  561. ;; (ffap-bindings)

  562. 

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

  564.           (lambda ()

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

  566. 

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

  568.   ""

  569.   (interactive)

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

  571.                                                  (point))))

  572. 

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

  574.   ""

  575.   (interactive)

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

  577. 

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

  579.           (lambda ()

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

  581. 

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

  583.           (lambda ()

  584.             (set-window-text-height (display-buffer (current-buffer)

  585.                                                     t)

  586.                                     7)

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

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

  589. 

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

  591. 

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

  593. 

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

  595.           (lambda ()

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

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

  598. 

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

  600. 

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

  602.           (lambda ()

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

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

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

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

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

  608. 

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

  610.           (lambda ()

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

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

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

  614. 

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

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

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

  618.                         t)

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

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

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

  622.             (lambda ()

  623.               (outline-minor-mode 1)

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

  625. 

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

  627. ;; c-mode

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

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

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

  631.           (lambda ()

  632.             (setq c-basic-offset 2

  633.                   indent-tabs-mode nil)

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

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

  636.             ))

  637. 

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

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

  640.                         t)

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

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

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

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

  645. ;;           (lambda ()

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

  647. ;;                       'my-indent-buffer

  648. ;;                       nil

  649. ;;                       t)))

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

  651.           (lambda ()

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

  653.                                                    (interactive)

  654.                                                    (js2-enter-key)

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

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

  657.                       'js2-before-save)))

  658. 

  659. (and nil

  660.      (require 'zone nil t)

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

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

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

  664.                                   (unless (memq major-mode

  665.                                                 '(term-mode))

  666.                                     (zone)))))

  667. 

  668. (when (require 'uniquify nil t)

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

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

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

  672. 

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

  674.           (lambda()

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

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

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

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

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

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

  681. (setq view-read-only t)

  682. 

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

  684.           (lambda ()

  685.             (view-mode 1)

  686.             (setq truncate-lines nil)))

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

  688.                             'newframe

  689.                           'pushy))

  690. 

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

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

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

  694. ;;             'sgit-load))

  695. 

  696. (require 'session nil t)

  697. 

  698. (when (require 'gtkbm nil t)

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

  700. 

  701. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  702. ;; frame buffer

  703. 

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

  705.           (lambda (frame)

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

  707.                                "*Messages*")))

  708. 

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

  710. 

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

  712.   ""

  713.   (setq my-frame-buffer-plist

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

  715.                    (or frame

  716.                        (selected-frame))

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

  718.                      (if lst

  719.                          (add-to-list 'lst

  720.                                       (or buf

  721.                                           (current-buffer)))

  722.                        (list (or buf

  723.                                  (current-buffer))))))))

  724. 

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

  726.   ""

  727.   (setq my-frame-buffer-plist

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

  729.                    (or frame

  730.                        (selected-frame))

  731.                    (delq (or buf

  732.                              (current-buffer))

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

  734. 

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

  736.   ""

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

  738.              (or frame

  739.                  (selected-frame))))

  740. 

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

  742.   ""

  743.   (mapcar 'kill-buffer

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

  745. 

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

  747.           'my-frame-buffer-add)

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

  749.           'my-frame-buffer-add)

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

  751.           'my-frame-buffer-add)

  752. 

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

  754.           'my-frame-buffer-remove)

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

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

  757. 

  758. 

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

  760. (defun my-execute-terminal ()

  761.   ""

  762.   (interactive)

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

  764.                window-system)

  765.            my-desktop-terminal

  766.            )

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

  768.         (start-process "terminal"

  769.                        nil

  770.                        my-desktop-terminal))

  771.     (my-term)))

  772. 

  773. (defun my-term ()

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

  775.   (interactive)

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

  777.       (eshell t)

  778.     (if (featurep 'multi-term)

  779.         (multi-term)

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

  781. 

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

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

  784.   (interactive)

  785.   (if (eq 1

  786.           (length (frame-list)))

  787.       (save-buffers-kill-emacs)

  788.     (delete-frame)))

  789. 

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

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

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

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

  794. 

  795. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  796. ;; term mode

  797. 

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

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

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

  801.                        t)

  802.      (require 'multi-term nil t)

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

  804. 

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

  806.   ""

  807.   (interactive)

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

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

  810.     (kill-buffer)))

  811. 

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

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

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

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

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

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

  818.                                                                 (multi-term-list)))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  838.                             ;; (cua-mode 0)

  839.                             ;; (and cua-mode

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

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

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

  843.                                  (lambda ()

  844.                                    '(0 0)))

  845.                             ))

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

  847. 

  848. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  849. ;; buffer switching

  850. 

  851. (when (require 'bs nil t)

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

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

  854. 

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

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

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

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

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

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

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

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

  863.           (lambda ()

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

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

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

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

  868.             ))

  869. 

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

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

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

  873.     (with-current-buffer bf

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

  875. 

  876. (iswitchb-mode 1)

  877. 

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

  879.   ""

  880.   (interactive)

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

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

  883. 

  884. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  885. ;; sdic

  886. 

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

  888.   ""

  889.   (interactive)

  890.   (save-window-excursion

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

  892.   (save-excursion

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

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

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

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

  897.                                                (progn (previous-line) t)

  898.                                                (point-at-eol))

  899.                                           (point-max)))))))

  900. 

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

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

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

  904. (setq sdic-window-height 7)

  905. (when (require 'sdic nil t)

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

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

  908. 

  909. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  910. ;; vc

  911. ;; (require 'vc)

  912. 

  913. (setq vc-handled-backends nil)

  914. 

  915. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  916. ;; gauche-mode

  917. 

  918. (setq scheme-program-name

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

  920. 

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

  922.   "Run gauche on other window"

  923.   (interactive)

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

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

  926.   (run-gauche))

  927. 

  928. (defun run-gauche ()

  929.   "run gauche"

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

  931.   )

  932. 

  933. (defun scheme-send-buffer ()

  934.   ""

  935.   (interactive)

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

  937.   (set-window-text-height (display-buffer "*scheme*"

  938.                                           t)

  939.                           7)

  940.   )

  941. 

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

  943.           (lambda ()

  944.             nil))

  945. 

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

  947.           (lambda ()

  948.             (set-window-text-height (display-buffer "*scheme*")

  949.                                     7)

  950.             ))

  951. 

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

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

  954. 

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

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

  957.                         t)

  958.   (setq auto-mode-alist

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

  960.   (setq auto-mode-alist

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

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

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

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

  965.             (lambda ()

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

  967.               (define-key scheme-mode-map "\C-c\C-c" 'scheme-send-buffer)

  968.               )))

  969. 

  970. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  971. ;; recentf-mode

  972. 

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

  974.           'my-recentf-abbrev-list)

  975. 

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

  977.   ""

  978.   (interactive)

  979.   (let ((p (point)))

  980.     (setq recentf-list

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

  982.     (recentf-open-files)

  983.     (goto-char p)))

  984. 

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

  986.   ""

  987.   (setq recentf-list

  988.         (mapcar 'abbreviate-file-name

  989.                 recentf-list)))

  990. 

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

  992.   ""

  993.   (interactive)

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

  995. 

  996. (defun my-recentf-dired ()

  997.   ""

  998.   (interactive)

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

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

  1001.         (dired file)

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

  1003.                  ".")))))

  1004. 

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

  1006.   ""

  1007.   (interactive)

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

  1009. 

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

  1011.   ""

  1012.   (interactive)

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

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

  1015. 

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

  1017.   "get file name in recentf-mode"

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

  1019.                             ""

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

  1021.                                                             (point-at-eol))))

  1022. 

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

  1024.       recentf-max-menu-items 20

  1025.       recentf-max-saved-items 30

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

  1027. 

  1028. (when (require 'recentf nil t)

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

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

  1031.   ;;           (lambda ()

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

  1033.   (recentf-mode 1)

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

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

  1036. 

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

  1038.           (lambda ()

  1039.             (recentf-save-list)

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

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

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

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

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

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

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

  1047.             (cd "~/")))

  1048. 

  1049. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1050. ;; dired

  1051. 

  1052. (require 'dired)

  1053. 

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

  1055.   ""

  1056.   (interactive "P")

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

  1058.     (message "%s"

  1059.              (with-temp-buffer

  1060.                (insert-file-contents f)

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

  1062.                                                (progn (goto-line (if arg

  1063.                                                                      (prefix-numeric-value arg)

  1064.                                                                    10))

  1065.                                                       (point-at-eol)))))))

  1066. 

  1067. (defun my-dired-diff ()

  1068.   ""

  1069.   (interactive)

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

  1071.     (if (eq (car files)

  1072.             t)

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

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

  1075. 

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

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

  1078.   "pack or unpack files.

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

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

  1081.   (interactive)

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

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

  1084.                            (length infiles))

  1085.                        (car infiles))))

  1086.     (if (and onefile

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

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

  1089.           (my-unpack onefile))

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

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

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

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

  1094.                               dir-default

  1095.                               nil

  1096.                               nil

  1097.                               archive-default)

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

  1099.               ))

  1100.         (apply 'my-pack

  1101.                archive

  1102.                infiles))))

  1103.   (revert-buffer)

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

  1105.   )

  1106. 

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

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

  1109. otherwise, return extension normally."

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

  1111.       (concat "tar."

  1112.               (file-name-extension filename))

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

  1114. 

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

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

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

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

  1119.       filename

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

  1121. 

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

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

  1124.       (executable-find "7za")

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

  1126.   "7z program.")

  1127. 

  1128. (defvar my-pack-default-extension

  1129.   "7z"

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

  1131. 

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

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

  1134. otherwise, return nil."

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

  1136.     (assoc-default filename

  1137.                    my-pack-program-alist

  1138.                    'string-match-p

  1139.                    nil)))

  1140. 

  1141. (defvar my-pack-program-alist

  1142.   `(

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

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

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

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

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

  1148.     )

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

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

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

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

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

  1154. 

  1155. (defun my-unpack (archive)

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

  1157.   (interactive "fArchive to extract: ")

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

  1159.          (cmd (nth 1

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

  1161.          )

  1162.     (if cmd

  1163.         (shell-command (concat cmd 

  1164.                                " "

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

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

  1167. 

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

  1169.   "pack FILES into ARCHIVE.

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

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

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

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

  1174.          )

  1175.     (if cmd

  1176.         (shell-command (concat cmd

  1177.                                " "

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

  1179.                                " "

  1180.                                (mapconcat 'shell-quote-argument

  1181.                                           files

  1182.                                           " ")))

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

  1184. 

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

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

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

  1188.     (with-current-buffer bf

  1189.       (cd ".")

  1190.       (erase-buffer))

  1191.     (display-buffer bf)

  1192.     bf))

  1193. 

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

  1195.   ""

  1196.   (save-excursion

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

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

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

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

  1201. 

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

  1203.   "dired get disk usage"

  1204.   (interactive)

  1205.   (message "calculating du...")

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

  1207. 

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

  1209.   ""

  1210.   (interactive)

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

  1212. 

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

  1214.   ""

  1215.   (interactive)

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

  1217. 

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

  1219.   ""

  1220.   (interactive)

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

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

  1223. 

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

  1225.   ""

  1226.   (interactive)

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

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

  1229. 

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

  1231.   (message "%s  %s"

  1232.            default-directory

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

  1234.                                            (point-at-eol))))

  1235. 

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

  1237.   ""

  1238.   (interactive)

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

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

  1241.         (start-process file nil file)

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

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

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

  1245. 

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

  1247. 

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

  1249.   ""

  1250.   (interactive)

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

  1252. 

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

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

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

  1256.   )

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

  1258. 

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

  1260.   ""

  1261.   :init-value nil

  1262.   :global nil

  1263.   :lighter " ALL"

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

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

  1266.     (revert-buffer)))

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

  1268.   ""

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

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

  1271.                           dired-actual-switches)

  1272.           (setq dired-actual-switches

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

  1274.                         " "

  1275.                         dired-actual-switches)))

  1276.     (setq dired-actual-switches

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

  1278.                                             " ")

  1279.                                     ""

  1280.                                     dired-actual-switches))))

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

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

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

  1284. 

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

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

  1287. 

  1288. (require 'ls-lisp)

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

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

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

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

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

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

  1295. 

  1296. (setq dired-dwim-target t)

  1297. 

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

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

  1300. 

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

  1302. ;;           (lambda ()

  1303. ;;             (dired ".")))

  1304. 

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

  1306.           (lambda ()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1328.                 (delete-file file)))))

  1329. 

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

  1331. 

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

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

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

  1335.     (delete-char 1)

  1336.     (insert cur)))

  1337. 

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

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

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

  1341. 

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

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

  1344. this subdir."

  1345. 

  1346.   (interactive "P")

  1347.   (if (dired-get-subdir)

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

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

  1350.       (dired-repeat-over-lines

  1351.        (prefix-numeric-value arg)

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

  1353. 

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

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

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

  1357.   (interactive "p")

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

  1359. 

  1360. (defun dired-mode-hooks()

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

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

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

  1364. 

  1365. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1366. ;; eshell

  1367. 

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

  1369.   (interactive)

  1370.   (when (< (save-excursion

  1371.              (eshell-bol)

  1372.              (point))

  1373.            (point))

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

  1375. 

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

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

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

  1379. 

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

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

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

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

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

  1385. ;;   (if args

  1386. ;;       (while args

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

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

  1389. ;;                    (file (pop args)))

  1390. ;;               (view-file file)

  1391. ;;               (goto-line line))

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

  1393. 

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

  1395. ;;   ""

  1396. ;;   )

  1397. 

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

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

  1400. 

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

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

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

  1404. ;;   (while args

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

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

  1407. ;;                (file (pop args)))

  1408. ;;           (find-file file)

  1409. ;;           (goto-line line))

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

  1411. 

  1412. (defun eshell/clear ()

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

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

  1415.     (erase-buffer)))

  1416. 

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

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

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

  1420. 

  1421. (defun eshell/v ()

  1422.   (view-mode 1))

  1423. 

  1424. (defalias 'eshell/: 'ignore)

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

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

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

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

  1429. 

  1430. (defun eshell-goto-prompt ()

  1431.   ""

  1432.   (interactive)

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

  1434. 

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

  1436.   "open eshell and change wd

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

  1438.   (interactive)

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

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

  1441.                           (eshell t)))

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

  1443.       ;; (cd dir)

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

  1445.       ;; (eshell-emit-prompt)

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

  1447.       (eshell-kill-input)

  1448.       (insert "cd " dir)

  1449.       (eshell-send-input))))

  1450. 

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

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

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

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

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

  1456. (setq eshell-highlight-prompt nil)

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

  1458. (setq eshell-prompt-function

  1459.       (lambda ()

  1460.         (with-temp-buffer

  1461.           (let (p1 p2 p3 p4)

  1462.             (insert " [")

  1463.             (setq p1 (point))

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

  1465.             (setq p2 (point))

  1466.             (insert "]"

  1467.                     "\n")

  1468.             (setq p3 (point))

  1469.             (insert user-login-name

  1470.                     "@"

  1471.                     (or (getenv "HOSTNAME")

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

  1473.                                                                 "echo ''"))

  1474.                                    0

  1475.                                    -1)))

  1476.             (setq p4 (point))

  1477.             (insert " "

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

  1479.                     " eshell\n"

  1480.                     "last:"

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

  1482.                     (if (= (user-uid)

  1483.                            0)

  1484.                         " # "

  1485.                       " $ "))

  1486.             (add-text-properties p1

  1487.                                  p2

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

  1489.             (add-text-properties p3

  1490.                                  p4

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

  1492.             (buffer-substring (point-min)

  1493.                               (point-max))))))

  1494. 

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

  1496.           (lambda ()

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

  1498.             ;;                                               (interactive)

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

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

  1501.                                                       (interactive)

  1502.                                                       (eshell-goto-prompt)

  1503.                                                       (eshell-kill-input)))

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

  1505.                                                       (interactive)

  1506.                                                       (eshell-goto-prompt)

  1507.                                                       (my-keyboard-quit)))

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

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

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

  1511.             (mapcar (lambda (alias)

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

  1513.                                    alias))

  1514.                     '(

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

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

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

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

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

  1520.                       ("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*\"))")

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

  1522.                       ))

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

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

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

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

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

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

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

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

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

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

  1533.             ))

  1534. 

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

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

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

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

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

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

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

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

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

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

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

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

  1547. 

  1548. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

  1550. 

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

  1552. 

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

  1554. 

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

  1556.   ""

  1557.   (nth 5

  1558.        (file-attributes file)))

  1559. 

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

  1561.   ""

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

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

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

  1565. 

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

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

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

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

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

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

  1572. 

  1573. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1574. ;; auto saving

  1575. 

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

  1577.   "save current buffer if can without asking"

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

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

  1580.               ""))

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

  1582.                                   'ignore

  1583.                                 'message))))

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

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

  1586.           ((not (file-exists-p buffer-file-name)) (funcall fun "%ssaving... file not exist. save manually first." com) nil)

  1587.           (buffer-read-only (funcall fun "%ssaving... this buffer is read-only." cm) nil)

  1588.           ((not (buffer-modified-p)) (funcal fun "%ssaving... not modified yet." cm) nil)

  1589.           ((not (file-writable-p buffer-file-name)) (funcall fun "%ssaving... you cannot change this file." cm) nil)

  1590.           (t (funcall fun "%ssaving..." cm)

  1591.              (save-buffer)

  1592.              (funcall fun "%ssaving... done." cm)))))

  1593. ;; (if (and buffer-file-name

  1594. ;;          (not buffer-read-only)

  1595. ;;          (buffer-modified-p)

  1596. ;;          (file-writable-p buffer-file-name))

  1597. ;;     (save-buffer))) ; 静かな方

  1598. 

  1599. (defvar my-auto-save-this-buffer nil "auto save timer object")

  1600. 

  1601. (defun my-auto-save-this-buffer (sec &optional silent-p)

  1602.   "auto save current buffer if idle for SEC.

  1603. when SEC is nil, stop auto save if enabled."

  1604.   (if sec

  1605.       (progn (when my-auto-save-this-buffer

  1606.                (cancel-timer my-auto-save-this-buffer)

  1607.                (setq my-auto-save-this-buffer nil))

  1608.              (setq my-auto-save-this-buffer (run-with-idle-timer sec t 'my-save-this-buffer silent-p)))

  1609.     (when my-auto-save-this-buffer

  1610.       (cancel-timer my-auto-save-this-buffer)

  1611.       (setq my-auto-save-this-buffer nil))))

  1612. 

  1613. (my-auto-save-this-buffer 2 t)

  1614. 

  1615. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1616. ;; misc funcs

  1617. 

  1618. (defun my-format-time-string (&optional time)

  1619.   ""

  1620.   (let ((system-time-locale "C"))

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

  1622. 

  1623. (defvar my-filer nil)

  1624. (setq my-filer (or (executable-find "pcmanfm")

  1625.                    (executable-find "nautilus")))

  1626. (defun my-x-open (file)

  1627.   "open file."

  1628.   (interactive "FOpen File: ")

  1629.   (setq file (expand-file-name file))

  1630.   (message "Opening %s..." file)

  1631.   (cond ((eq system-type 'windows-nt)

  1632.          (call-process "cmd.exe" nil 0 nil "/c" "start" "" (convert-standard-filename file)))

  1633.         ((eq system-type 'darwin)

  1634.          (call-process "open" nil 0 nil file))

  1635.         ((not (getenv "DESKTOP_SESSION"))

  1636.          (find-file file))

  1637.         (t

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

  1639.              (call-process my-filer nil 0 nil file)

  1640.            (call-process "xdg-open" nil 0 nil file))))

  1641.   (recentf-add-file file)

  1642.   (message "Opening %s...done" file))

  1643. 

  1644. (defvar my-auto-indent-buffer-mode-list

  1645.   '(emacs-lisp-mode

  1646.     sh-mode

  1647.     js-mode

  1648.     sgml-mode

  1649.     c-mode

  1650.     c++-mode))

  1651. (setq my-auto-indent-buffer-mode-list nil) ;disable

  1652. (defun my-indent-buffer ()

  1653.   "indent whole buffer."

  1654.   (interactive)

  1655.   (indent-region (point-min)

  1656.                  (point-max)))

  1657. (defun my-auto-indent-buffer ()

  1658.   ""

  1659.   (when (memq major-mode my-auto-indent-buffer-mode-list)

  1660.     (my-indent-buffer)))

  1661. (add-hook 'before-save-hook

  1662.           'my-auto-indent-buffer)

  1663. 

  1664. (defun my-keyboard-quit ()

  1665.   ""

  1666.   (interactive)

  1667.   (run-hooks 'before-keyboard-quit-hook)

  1668.   ;; (redisplay t)

  1669.   (redraw-display)

  1670.   ;; (run-hooks 'window-configuration-change-hook)

  1671.   (my-revert-buffer-if-needed)

  1672.   ;; (revert-buffer t t)

  1673.   (keyboard-quit)

  1674.   (insert "insert me")

  1675.   (run-hooks 'after-keyboard-quit-hook))

  1676. (substitute-key-definition 'keyboard-quit 'my-keyboard-quit global-map)

  1677. ;; (global-set-key (kbd "C-g") 'my-keyboard-quit)

  1678. 

  1679. (defun my-convmv-sjis2utf8-test ()

  1680.   "run `convmv -r -f sjis -t utf8 *'

  1681. this is test, does not rename files"

  1682.   (interactive)

  1683.   (shell-command "convmv -r -f sjis -t utf8 *"))

  1684. 

  1685. (defun my-convmv-sjis2utf8-notest ()

  1686.   "run `convmv -r -f sjis -t utf8 * --notest'"

  1687.   (interactive)

  1688.   (shell-command "convmv -r -f sjis -t utf8 * --notest"))

  1689. 

  1690. (defun my-copy-whole-line ()

  1691.   ""

  1692.   (interactive)

  1693.   (kill-new (concat (buffer-substring (point-at-bol)

  1694.                                       (point-at-eol))

  1695.                     "\n")))

  1696. 

  1697. (defun kill-ring-save-buffer-file-name ()

  1698.   "get current filename"

  1699.   (interactive)

  1700.   (let ((file buffer-file-name))

  1701.     (if file

  1702.         (progn (kill-new file)

  1703.                (message file))

  1704.       (message "not visiting file."))))

  1705. 

  1706. ;; ;; コマンド的な

  1707. ;; (defvar my-execute-func-list nil "func list")

  1708. ;; (defvar my-execute-func-hist-list nil "func hist list")

  1709. ;; (setq my-execute-func-list '("(call-interactively 'my-francaiscd-b)"

  1710. ;;                              "(call-interactively 'my-francaiscd-a)"

  1711. ;;                              "parsec47"

  1712. ;;                              "chromium-browser"

  1713. ;;                              "inkscape"

  1714. ;;                              "audacious"

  1715. ;;                              "gnome-terminal"

  1716. ;;                              "zkaicd.py"

  1717. ;;                              "glchess"))

  1718. 

  1719. ;; (defun my-execute-start-process-or-eval-sexp ()

  1720. ;;   "execute something"

  1721. ;;   (interactive)

  1722. ;;   (let ((func (completing-read "command?: " my-execute-func-list nil nil "" my-execute-func-hist-list)))

  1723. ;;     (if (string= "(" (substring func 0 1))

  1724. ;;         (with-temp-buffer (insert func)

  1725. ;;                           (eval-buffer))

  1726. ;;       (start-process "ps"

  1727. ;;                      nil

  1728. ;;                      func))))

  1729. 

  1730. (defvar my-revert-buffer-if-needed-last-buffer nil)

  1731. 

  1732. (defun my-revert-buffer-if-needed ()

  1733.   ""

  1734.   (interactive)

  1735.   (unless (eq my-revert-buffer-if-needed-last-buffer (current-buffer))

  1736.     (setq my-revert-buffer-if-needed-last-buffer (current-buffer))

  1737.     (when (or (eq major-mode 'dired-mode)

  1738.               (not (verify-visited-file-modtime (current-buffer))))

  1739.       (revert-buffer t t)

  1740.       (message "%s reverted." (buffer-name)))))

  1741. 

  1742. (add-hook 'post-command-hook ; 'window-configuration-change-hook

  1743.           'my-revert-buffer-if-needed)

  1744. 

  1745. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1746. ;; forked from http://d.hatena.ne.jp/khiker/20100119/window_resize

  1747. (define-key my-prefix-map (kbd "C-w") 'my-window-organizer)

  1748. 

  1749. (defun my-window-organizer ()

  1750.   "Control window size and position."

  1751.   (interactive)

  1752.   (save-selected-window

  1753.     (select-window (window-at 0 0))

  1754.     (let ( ;; (window-obj (selected-window))

  1755.           ;; (current-width (window-width))

  1756.           ;; (current-height (window-height))

  1757.           action

  1758.           c)

  1759.       (catch 'end-flag

  1760.         (while t

  1761.           (setq action

  1762.                 (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."

  1763.                                                   (window-width)

  1764.                                                   (window-height))))

  1765.           (setq c (aref action 0))

  1766.           (cond ((= c ?l)

  1767.                  (unless (eq (window-width) (frame-width))

  1768.                    (enlarge-window-horizontally 1)))

  1769.                 ((= c ?h)

  1770.                  (unless (eq (window-width) (frame-width))

  1771.                    (shrink-window-horizontally 1)))

  1772.                 ((= c ?j)

  1773.                  (enlarge-window 1))

  1774.                 ((= c ?k)

  1775.                  (shrink-window 1))

  1776.                 ((= c ?o)

  1777.                  (other-window 1))

  1778.                 ((memq c '(?d ?0))

  1779.                  (unless (eq (selected-window) (next-window (selected-window) 0 1))

  1780.                    (delete-window (selected-window))))

  1781.                 ((= c ?1)

  1782.                  (delete-other-windows))

  1783.                 ((= c ?2)

  1784.                  (split-window-vertically))

  1785.                 ((= c ?3)

  1786.                  (split-window-horizontally))

  1787.                 ((memq c '(?q ?\C-g))

  1788.                  (message "Quit")

  1789.                  (throw 'end-flag t))

  1790.                 (t

  1791.                  (beep))))))))

  1792. ;; (aref (read-key-sequence-vector "aa") 0)

  1793. 

  1794. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1795. ;; save and restore frame size

  1796. ;;http://www.bookshelf.jp/soft/meadow_30.html#SEC416

  1797. (defun my-window-size-save ()

  1798.   (let* ((rlist (frame-parameters (selected-frame)))

  1799.          (ilist initial-frame-alist)

  1800.          (nCHeight (frame-height))

  1801.          (nCWidth (frame-width))

  1802.          (tMargin (if (integerp (cdr (assoc 'top rlist)))

  1803.                       (cdr (assoc 'top rlist)) 0))

  1804.          (lMargin (if (integerp (cdr (assoc 'left rlist)))

  1805.                       (cdr (assoc 'left rlist)) 0))

  1806.          buf

  1807.          (file "~/.emacs.d/.framesize.el")

  1808.          (recentf-exclude '("\\.emacs\\.d/\\.framesize\\.el$")))

  1809.     (if (get-file-buffer (expand-file-name file))

  1810.         (setq buf (get-file-buffer (expand-file-name file)))

  1811.       (setq buf (find-file-noselect file)))

  1812.     (set-buffer buf)

  1813.     (erase-buffer)

  1814.     (insert (concat

  1815.              ;; 初期値をいじるよりも modify-frame-parameters

  1816.              ;; で変えるだけの方がいい?

  1817.              "(delete 'width default-frame-alist)\n"

  1818.              "(delete 'height default-frame-alist)\n"

  1819.              "(delete 'top default-frame-alist)\n"

  1820.              "(delete 'left default-frame-alist)\n"

  1821.              "(setq default-frame-alist (append (list\n"

  1822.              "'(width . " (int-to-string nCWidth) ")\n"

  1823.              "'(height . " (int-to-string nCHeight) ")\n"

  1824.              "'(top . " (int-to-string tMargin) ")\n"

  1825.              "'(left . " (int-to-string lMargin) "))\n"

  1826.              "default-frame-alist))\n"

  1827.              ;;"(setq default-frame-alist default-frame-alist)"

  1828.              ))

  1829.     (save-buffer)

  1830.     ))

  1831. (defun my-window-size-load ()

  1832.   (let* ((file "~/.emacs.d/.framesize.el"))

  1833.     (if (file-exists-p file)

  1834.         (load file))))

  1835. (when window-system

  1836.   (my-window-size-load)

  1837.   (add-hook 'after-init-hook      ;何かがframeの大きさ勝手に変えやがる

  1838.             (lambda ()

  1839.               (run-with-timer 1

  1840.                               nil

  1841.                               (lambda ()

  1842.                                 (modify-frame-parameters (selected-frame)

  1843.                                                          default-frame-alist))))

  1844.             t)

  1845.   (add-hook 'kill-emacs-hook

  1846.             'my-window-size-save))

  1847. 

  1848. ;; windowサイズを固定

  1849. ;; setq default-frame-alist

  1850. ;;       (append (list '(width . 80)

  1851. ;; 		    '(height . 35)

  1852. ;; 	      )

  1853. ;; 	      default-frame-alist)

  1854. ;; ) ;;デフォルトのフレーム設定

  1855. 

  1856. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1857. ;; ;; emacsを殺伐とさせる

  1858. ;; ;; 補完させるとき失敗するからなし

  1859. ;; ;; http://e-arrows.sakura.ne.jp/2010/05/emacs-should-be-more-savage.html

  1860. ;; (defadvice message (before message-for-stupid (arg &rest arg2) activate)

  1861. ;;   (setq arg

  1862. ;;         (concat arg

  1863. ;;                 (if (eq nil (string-match "\\. *$" arg)) ".")

  1864. ;;                 " And You are a Coward!")))

  1865. 

  1866. 

  1867. 

  1868. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1869. ;; ubuntu

  1870. 

  1871. (defun my-load-scim ()

  1872.   "use scim-bridge.el as japanese im."

  1873.   ;; Load scim-bridge.

  1874.   (require 'scim-bridge)

  1875.   ;; Turn on scim-mode automatically after loading .emacs

  1876.   (add-hook 'after-init-hook 'scim-mode-on)

  1877.   (setq scim-cursor-color "red")

  1878.   (scim-define-preedit-key ?\^h t)

  1879.   (scim-define-common-key ?\* nil)

  1880.   (scim-define-common-key ?\^/ nil))

  1881. 

  1882. (defun my-load-anthy ()

  1883.   "use anthy.el as japanese im."

  1884.   ;; anthy

  1885.   (require 'anthy)

  1886.   (global-set-key [muhenkan] (lambda () (interactive) (anthy-mode-off)))

  1887.   (global-set-key [henkan] (lambda () (interactive) (anthy-mode-on)))

  1888.   (when (>= emacs-major-version 23)

  1889.     (setq anthy-accept-timeout 1)))

  1890. 

  1891. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1892. ;; windows用設定

  1893. 

  1894. ;; (add-to-list 'exec-path "c:/Program Files/Gauche/bin/")

  1895. 

  1896. (defun start-ckw-bash ()

  1897.   ""

  1898.   (interactive)

  1899.   (start-process "ckw_bash"

  1900.                  nil

  1901.                  "C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe")) ; cじゃないといけないらしい

  1902. 

  1903. (defun my-w32-add-export-path (&rest args)

  1904.   ""

  1905.   (mapcar (lambda (path)

  1906.             (add-to-list 'exec-path (expand-file-name path)))

  1907.           (reverse args))

  1908.   (setenv "PATH"

  1909.           (mapconcat 'convert-standard-filename

  1910.                      exec-path

  1911.                      ";")))

  1912. 

  1913. (when (eq system-type 'windows-nt)

  1914.   ;; (setq scheme-program-name "\"c:/Program Files/Gauche/bin/gosh.exe\" -i")

  1915.   ;; (setq python-python-command "c:/Python26/python.exe")

  1916. 

  1917.   (define-key my-prefix-map (kbd "C-c") 'start-ckw-bash)

  1918.   (my-w32-add-export-path "c:/WINDOWS"

  1919.                           (expand-file-name "~/bin")

  1920.                           (expand-file-name "~/dbx/apps/bin"))

  1921. 

  1922.   (when window-system

  1923.     (setq w32-enable-synthesized-fonts t))

  1924.   (setq file-name-coding-system 'sjis))

  1925.