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.
 
 
 
 
 
 

1600 line
53 KiB

  1. ;;; emacs.el --- 10sr emacs initialization
  2. ;;; Commentary:
  3. ;;; Code:
  4. ;; SETUP_LOAD: (let ((file "DOTFILES_DIR/emacs.el"))
  5. ;; SETUP_LOAD: (and (file-readable-p file)
  6. ;; SETUP_LOAD: (load-file file)))
  7. (setq debug-on-error t)
  8. ;; make directories
  9. (unless (file-directory-p (expand-file-name user-emacs-directory))
  10. (make-directory (expand-file-name user-emacs-directory)))
  11. (require 'cl-lib)
  12. (require 'simple)
  13. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  14. ;; Some macros for internals
  15. ;; `emacs --load emacs.el` with Emacs 24.3 requires with-eval-after-load to be
  16. ;; defined at the toplevel (means that it should not be defined inside of some
  17. ;; special forms like `when'. I do not now how to do with about this...)
  18. (unless (fboundp 'with-eval-after-load)
  19. ;; polyfill for Emacs < 24.4
  20. (defmacro with-eval-after-load (file &rest body)
  21. "After FILE is loaded execute BODY."
  22. (declare (indent 1) (debug t))
  23. `(eval-after-load ,file (quote (progn ,@body)))))
  24. (defun call-after-init (func)
  25. "If `after-init-hook' has been run, call FUNC immediately.
  26. Otherwize hook it."
  27. (if after-init-time
  28. (funcall func)
  29. (add-hook 'after-init-hook
  30. func)))
  31. (defmacro safe-require-or-eval (feature)
  32. "Require FEATURE if available.
  33. At compile time the feature will be loaded immediately."
  34. `(eval-and-compile
  35. (message "safe-require-or-eval: Trying to require %s" ,feature)
  36. (require ,feature nil t)))
  37. (defmacro autoload-eval-lazily (feature &optional functions &rest body)
  38. "Define autoloading FEATURE that defines FUNCTIONS.
  39. FEATURE is a symbol. FUNCTIONS is a list of symbols. If FUNCTIONS is nil,
  40. the function same as FEATURE is defined as autoloaded function. BODY is passed
  41. to `eval-after-load'.
  42. After this macro is expanded, this returns the path to library if FEATURE
  43. found, otherwise returns nil."
  44. (declare (indent 2) (debug t))
  45. (let* ((libname (symbol-name (eval feature)))
  46. (libpath (locate-library libname)))
  47. `(progn
  48. (when (locate-library ,libname)
  49. ,@(mapcar (lambda (f)
  50. `(unless (fboundp ',f)
  51. (progn
  52. (message "Autoloaded function `%S' defined (%s)"
  53. (quote ,f)
  54. ,libpath)
  55. (autoload (quote ,f)
  56. ,libname
  57. ,(concat "Autoloaded function defined in \""
  58. libpath
  59. "\".")
  60. t))))
  61. (or (eval functions)
  62. `(,(eval feature)))))
  63. (eval-after-load ,feature
  64. (quote (progn
  65. ,@body)))
  66. (locate-library ,libname))))
  67. (when (autoload-eval-lazily 'tetris nil
  68. (message "Tetris loaded!"))
  69. (message "Tetris found!"))
  70. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  71. ;; package
  72. (set (defvar 10sr-package-list)
  73. '(
  74. vimrc-mode
  75. markdown-mode
  76. yaml-mode
  77. gnuplot-mode
  78. php-mode
  79. erlang
  80. js2-mode
  81. js-doc
  82. git-commit
  83. gitignore-mode
  84. adoc-mode
  85. malabar-mode
  86. ;; ack
  87. color-moccur
  88. ggtags
  89. flycheck
  90. auto-highlight-symbol
  91. hl-todo
  92. pp-c-l
  93. ;; is flymake installs are required?
  94. ;;flymake-jshint
  95. ;;flymake-python-pyflakes
  96. xclip
  97. foreign-regexp
  98. multi-term
  99. term-run
  100. editorconfig
  101. git-ps1-mode
  102. restart-emacs
  103. fill-column-indicator
  104. pkgbuild-mode
  105. minibuffer-line
  106. which-key
  107. ;; I think this works in place of my autosave lib
  108. super-save
  109. scala-mode
  110. ;;ensime
  111. editorconfig
  112. editorconfig-custom-majormode
  113. cyberpunk-theme
  114. grandshell-theme
  115. afternoon-theme
  116. git-command
  117. prompt-text
  118. ;; 10sr repository
  119. ;; 10sr-extras
  120. terminal-title
  121. recentf-show
  122. dired-list-all-mode
  123. pack
  124. set-modeline-color
  125. read-only-only-mode
  126. smart-revert
  127. autosave
  128. ;;window-organizer
  129. remember-major-modes-mode
  130. ilookup
  131. pasteboard
  132. end-mark
  133. sl
  134. gosh-mode
  135. ))
  136. (when (safe-require-or-eval 'package)
  137. (setq package-archives
  138. `(,@package-archives
  139. ("melpa" . "https://melpa.org/packages/")
  140. ("10sr-el" . "https://10sr.github.io/emacs-lisp/elpa/")))
  141. (package-initialize)
  142. (defun my-auto-install-package ()
  143. "Install packages semi-automatically."
  144. (interactive)
  145. (package-refresh-contents)
  146. (mapc (lambda (pkg)
  147. (or (package-installed-p pkg)
  148. (package-install pkg)))
  149. 10sr-package-list))
  150. )
  151. ;; (lazy-load-eval 'sudoku)
  152. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  153. ;; my-idle-hook
  154. (defvar my-idle-hook nil
  155. "Hook run when idle for several secs.")
  156. (defvar my-idle-hook-sec 5
  157. "Second to run `my-idle-hook'.")
  158. (run-with-idle-timer my-idle-hook-sec
  159. t
  160. (lambda ()
  161. (run-hooks 'my-idle-hook)))
  162. ;; (add-hook 'my-idle-hook
  163. ;; (lambda ()
  164. ;; (message "idle hook message")))
  165. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  166. ;; start and quit
  167. (setq inhibit-startup-message t)
  168. (setq confirm-kill-emacs 'y-or-n-p)
  169. (setq gc-cons-threshold (* 1024 1024 4))
  170. (when window-system
  171. (add-to-list 'default-frame-alist '(cursor-type . box))
  172. (add-to-list 'default-frame-alist '(background-color . "white"))
  173. (add-to-list 'default-frame-alist '(foreground-color . "gray10"))
  174. ;; (add-to-list 'default-frame-alist '(alpha . (80 100 100 100)))
  175. ;; does not work?
  176. )
  177. ;; (add-to-list 'default-frame-alist '(cursor-type . box))
  178. (if window-system (menu-bar-mode 1) (menu-bar-mode 0))
  179. (and (fboundp 'tool-bar-mode)
  180. (tool-bar-mode 0))
  181. (and (fboundp 'set-scroll-bar-mode)
  182. (set-scroll-bar-mode nil))
  183. (add-hook 'kill-emacs-hook
  184. ;; load init file when terminating emacs to ensure file is not broken
  185. 'reload-init-file)
  186. (defun my-force-kill-emacs ()
  187. "My force kill Emacs."
  188. (interactive)
  189. (let ((kill-emacs-hook nil))
  190. (kill-emacs)))
  191. (call-after-init
  192. (lambda ()
  193. (message "%s %s" invocation-name emacs-version)
  194. (message "Invocation directory: %s" default-directory)
  195. (message "%s was taken to initialize emacs." (emacs-init-time))
  196. (switch-to-buffer "*Messages*")))
  197. (cd ".") ; when using windows use / instead of \ in `default-directory'
  198. ;; locale
  199. (set-language-environment "Japanese")
  200. (set-default-coding-systems 'utf-8-unix)
  201. (prefer-coding-system 'utf-8-unix)
  202. (setq system-time-locale "C")
  203. ;; my prefix map
  204. (defvar my-prefix-map nil
  205. "My prefix map.")
  206. (define-prefix-command 'my-prefix-map)
  207. (define-key ctl-x-map (kbd "C-x") 'my-prefix-map)
  208. (define-key my-prefix-map (kbd "C-q") 'quoted-insert)
  209. (define-key my-prefix-map (kbd "C-z") 'suspend-frame)
  210. ;; (comint-show-maximum-output)
  211. ;; kill scratch
  212. (call-after-init (lambda ()
  213. (let ((buf (get-buffer "*scratch*")))
  214. (when buf
  215. (kill-buffer buf)))))
  216. ;; modifier keys
  217. ;; (setq mac-option-modifier 'control)
  218. ;; display
  219. (setq visible-bell t)
  220. (setq ring-bell-function 'ignore)
  221. (mouse-avoidance-mode 'banish)
  222. (setq echo-keystrokes 0.1)
  223. (defun reload-init-file ()
  224. "Reload Emacs init file."
  225. (interactive)
  226. (when (and user-init-file
  227. (file-readable-p user-init-file))
  228. (load-file user-init-file)))
  229. (safe-require-or-eval 'session)
  230. ;; server
  231. (set-variable 'server-name (concat "server"
  232. (number-to-string (emacs-pid))))
  233. ;; In Cygwin Environment `server-runnning-p' stops when server-use-tcp is nil
  234. ;; In Darwin environment, init fails with message like 'Service name too long'
  235. ;; when server-use-tcp is nil
  236. (when (or (eq system-type
  237. 'cygwin)
  238. (eq system-type
  239. 'darwin))
  240. (set-variable 'server-use-tcp t))
  241. ;; MSYS2 fix
  242. (when (eq system-type
  243. 'windows-nt)
  244. (setq shell-file-name
  245. (executable-find "bash"))
  246. '(setq function-key-map
  247. `(,@function-key-map ([pause] . [?\C-c])
  248. ))
  249. (define-key key-translation-map
  250. (kbd "<pause>")
  251. (kbd "C-c"))
  252. '(keyboard-translate [pause]
  253. (kbd "C-c")p)
  254. ;; TODO: move to other place later
  255. (when (not window-system)
  256. (setq interprogram-paste-function nil)
  257. (setq interprogram-cut-function nil)))
  258. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  259. ;; global keys
  260. (global-set-key (kbd "<up>") 'scroll-down-line)
  261. (global-set-key (kbd "<down>") 'scroll-up-line)
  262. (global-set-key (kbd "<left>") 'scroll-down)
  263. (global-set-key (kbd "<right>") 'scroll-up)
  264. ;; (define-key my-prefix-map (kbd "C-h") help-map)
  265. (global-set-key (kbd "C-\\") help-map)
  266. (define-key ctl-x-map (kbd "DEL") help-map)
  267. (define-key ctl-x-map (kbd "C-h") help-map)
  268. (define-key help-map "a" 'apropos)
  269. ;; disable annoying keys
  270. (global-set-key [prior] 'ignore)
  271. (global-set-key (kbd "<next>") 'ignore)
  272. (global-set-key [menu] 'ignore)
  273. (global-set-key [down-mouse-1] 'ignore)
  274. (global-set-key [down-mouse-2] 'ignore)
  275. (global-set-key [down-mouse-3] 'ignore)
  276. (global-set-key [mouse-1] 'ignore)
  277. (global-set-key [mouse-2] 'ignore)
  278. (global-set-key [mouse-3] 'ignore)
  279. (global-set-key (kbd "<eisu-toggle>") 'ignore)
  280. (global-set-key (kbd "C-<eisu-toggle>") 'ignore)
  281. (when (safe-require-or-eval 'which-key)
  282. (which-key-mode))
  283. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  284. ;; editting
  285. (defun my-copy-whole-line ()
  286. "Copy whole line."
  287. (interactive)
  288. (kill-new (concat (buffer-substring (point-at-bol)
  289. (point-at-eol))
  290. "\n")))
  291. (setq require-final-newline t)
  292. (setq kill-whole-line t)
  293. (setq scroll-conservatively 35
  294. scroll-margin 2
  295. scroll-step 0)
  296. (setq-default major-mode 'text-mode)
  297. (setq next-line-add-newlines nil)
  298. (setq kill-read-only-ok t)
  299. (setq truncate-partial-width-windows nil) ; when splitted horizontally
  300. ;; (setq-default line-spacing 0.2)
  301. (setq-default indicate-empty-lines t) ; when using x indicate empty line
  302. (setq-default tab-width 4)
  303. (setq-default indent-tabs-mode nil)
  304. ;; (setq-default indent-line-function nil)
  305. (setq-default truncate-lines nil)
  306. ;; (pc-selection-mode 1) ; make some already defined keybind back to default
  307. (delete-selection-mode 1)
  308. (cua-mode 0)
  309. (setq line-move-visual nil)
  310. ;; key bindings
  311. ;; moving around
  312. ;; (global-set-key (kbd "M-j") 'next-line)
  313. ;; (global-set-key (kbd "M-k") 'previous-line)
  314. ;; (global-set-key (kbd "M-h") 'backward-char)
  315. ;; (global-set-key (kbd "M-l") 'forward-char)
  316. ;;(keyboard-translate ?\M-j ?\C-j)
  317. ;; (global-set-key (kbd "M-p") 'backward-paragraph)
  318. (define-key esc-map "p" 'backward-paragraph)
  319. ;; (global-set-key (kbd "M-n") 'forward-paragraph)
  320. (define-key esc-map "n" 'forward-paragraph)
  321. (global-set-key (kbd "C-<up>") 'scroll-down-line)
  322. (global-set-key (kbd "C-<down>") 'scroll-up-line)
  323. (global-set-key (kbd "C-<left>") 'scroll-down)
  324. (global-set-key (kbd "C-<right>") 'scroll-up)
  325. (global-set-key (kbd "<select>") 'ignore) ; 'previous-line-mark)
  326. (define-key ctl-x-map (kbd "ESC x") 'execute-extended-command)
  327. (define-key ctl-x-map (kbd "ESC :") 'eval-expression)
  328. ;; C-h and DEL
  329. (global-set-key (kbd "C-h") (kbd "DEL"))
  330. (global-set-key (kbd "C-m") 'reindent-then-newline-and-indent)
  331. ;; (global-set-key (kbd "C-o") (kbd "C-e C-m"))
  332. (define-key esc-map "k" 'my-copy-whole-line)
  333. ;; (global-set-key "\C-z" 'undo) ; undo is M-u
  334. (define-key esc-map "u" 'undo)
  335. (define-key esc-map "i" (kbd "ESC TAB"))
  336. ;; (global-set-key (kbd "C-r") 'query-replace-regexp)
  337. (global-set-key (kbd "C-s") 'isearch-forward-regexp)
  338. (global-set-key (kbd "C-r") 'isearch-backward-regexp)
  339. (define-key my-prefix-map (kbd "C-o") 'occur)
  340. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  341. ;; title and mode-line
  342. (when (safe-require-or-eval 'terminal-title)
  343. ;; if TERM is not screen use default value
  344. (if (getenv "TMUX")
  345. ;; if use tmux locally just basename of current dir
  346. (set-variable 'terminal-title-format
  347. '((file-name-nondirectory (directory-file-name
  348. default-directory))))
  349. (if (and (let ((tty-type (frame-parameter nil
  350. 'tty-type)))
  351. (and tty-type
  352. (equal (car (split-string tty-type
  353. "-"))
  354. "screen")))
  355. (not (getenv "SSH_CONNECTION")))
  356. (set-variable 'terminal-title-format
  357. '((file-name-nondirectory (directory-file-name
  358. default-directory))))
  359. ;; seems that TMUX is used locally and ssh to remote host
  360. (set-variable 'terminal-title-format
  361. `("em:"
  362. ,user-login-name
  363. "@"
  364. ,(car (split-string (system-name)
  365. "\\."))
  366. ":"
  367. default-directory))
  368. )
  369. )
  370. (terminal-title-mode))
  371. (setq eol-mnemonic-dos "\\r\\n")
  372. (setq eol-mnemonic-mac "\\r")
  373. (setq eol-mnemonic-unix "\\n")
  374. (which-function-mode 0)
  375. (line-number-mode 0)
  376. (column-number-mode 0)
  377. (size-indication-mode 0)
  378. (setq mode-line-position
  379. '(:eval (format "L%%l/%d,C%%c"
  380. (count-lines (point-max)
  381. (point-min)))))
  382. (when (safe-require-or-eval 'git-ps1-mode)
  383. (git-ps1-mode))
  384. ;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title
  385. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  386. ;; minibuffer
  387. (setq insert-default-directory t)
  388. (setq completion-ignore-case t
  389. read-file-name-completion-ignore-case t
  390. read-buffer-completion-ignore-case t)
  391. (setq resize-mini-windows t)
  392. (temp-buffer-resize-mode 1)
  393. (savehist-mode 1)
  394. (defvar display-time-format "%Y/%m/%d %a %H:%M")
  395. (fset 'yes-or-no-p 'y-or-n-p)
  396. ;; complete symbol when `eval'
  397. (define-key read-expression-map (kbd "TAB") 'completion-at-point)
  398. (define-key minibuffer-local-map (kbd "C-u")
  399. (lambda () (interactive) (delete-region (point-at-bol) (point))))
  400. ;; I dont know these bindings are good
  401. (define-key minibuffer-local-map (kbd "C-p") (kbd "ESC p"))
  402. (define-key minibuffer-local-map (kbd "C-n") (kbd "ESC n"))
  403. (when (safe-require-or-eval 'minibuffer-line)
  404. (set-face-underline 'minibuffer-line nil)
  405. (set-variable 'minibuffer-line-refresh-interval
  406. 25)
  407. (set-variable 'minibuffer-line-format
  408. `(,(concat user-login-name
  409. "@"
  410. (car (split-string (system-name)
  411. "\\."))
  412. ":")
  413. (:eval (abbreviate-file-name (or buffer-file-name
  414. default-directory)))
  415. (:eval (and (fboundp 'git-ps1-mode-get-current)
  416. (git-ps1-mode-get-current " [GIT:%s]")))
  417. " "
  418. (:eval (format-time-string display-time-format))))
  419. (minibuffer-line-mode 1)
  420. )
  421. (when (safe-require-or-eval 'prompt-text)
  422. (set-variable 'prompt-text-format
  423. `(,(concat ""
  424. user-login-name
  425. "@"
  426. (car (split-string (system-name)
  427. "\\."))
  428. ":")
  429. (:eval (abbreviate-file-name (or buffer-file-name
  430. default-directory)))
  431. (:eval (and (fboundp 'git-ps1-mode-get-current)
  432. (git-ps1-mode-get-current " [GIT:%s]")))
  433. " "
  434. (:eval (format-time-string display-time-format))
  435. "\n"
  436. (:eval (symbol-name this-command))
  437. ": "))
  438. (prompt-text-mode 1))
  439. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  440. ;; letters, font-lock mode and fonts
  441. ;; (set-face-background 'vertical-border (face-foreground 'mode-line))
  442. ;; (set-window-margins (selected-window) 1 1)
  443. (and (or (eq system-type 'Darwin)
  444. (eq system-type 'darwin))
  445. (fboundp 'mac-set-input-method-parameter)
  446. (mac-set-input-method-parameter 'japanese 'cursor-color "red")
  447. (mac-set-input-method-parameter 'roman 'cursor-color "black"))
  448. (when (and (boundp 'input-method-activate-hook) ; i dont know this is correct
  449. (boundp 'input-method-inactivate-hook))
  450. (add-hook 'input-method-activate-hook
  451. (lambda () (set-cursor-color "red")))
  452. (add-hook 'input-method-inactivate-hook
  453. (lambda () (set-cursor-color "black"))))
  454. (when (safe-require-or-eval 'paren)
  455. (show-paren-mode 1)
  456. (setq show-paren-delay 0.5
  457. show-paren-style 'parenthesis) ; mixed is hard to read
  458. ;; (set-face-background 'show-paren-match
  459. ;; "black")
  460. ;; ;; (face-foreground 'default))
  461. ;; (set-face-foreground 'show-paren-match
  462. ;; "white")
  463. ;; (set-face-inverse-video-p 'show-paren-match
  464. ;; t)
  465. )
  466. (transient-mark-mode 1)
  467. (global-font-lock-mode 1)
  468. (setq font-lock-global-modes
  469. '(not
  470. help-mode
  471. eshell-mode
  472. ;;term-mode
  473. Man-mode))
  474. ;; (standard-display-ascii ?\n "$\n")
  475. ;; (defvar my-eol-face
  476. ;; '(("\n" . (0 font-lock-comment-face t nil)))
  477. ;; )
  478. ;; (defvar my-tab-face
  479. ;; '(("\t" . '(0 highlight t nil))))
  480. (defvar my-jspace-face
  481. '(("\u3000" . '(0 highlight t nil))))
  482. (add-hook 'font-lock-mode-hook
  483. (lambda ()
  484. ;; (font-lock-add-keywords nil my-eol-face)
  485. (font-lock-add-keywords nil my-jspace-face)
  486. ))
  487. (when (safe-require-or-eval 'whitespace)
  488. (add-to-list 'whitespace-display-mappings
  489. ;; We need t since last one takes precedence
  490. `(tab-mark ?\t ,(vconcat "^I\t")) t)
  491. ;; (add-to-list 'whitespace-display-mappings
  492. ;; `(newline-mark ?\n ,(vconcat "$\n")))
  493. (setq whitespace-style '(face
  494. trailing ; trailing blanks
  495. newline ; newlines
  496. newline-mark ; use display table for newline
  497. tab-mark
  498. empty ; empty lines at beg or end of buffer
  499. lines-tail ; lines over 80
  500. ))
  501. ;; (setq whitespace-newline 'font-lock-comment-face)
  502. (set-variable 'whitespace-line-column nil)
  503. (global-whitespace-mode t)
  504. (add-hook 'dired-mode-hook
  505. (lambda ()
  506. (set (make-local-variable 'whitespace-style) nil)))
  507. (if (eq (display-color-cells)
  508. 256)
  509. (set-face-foreground 'whitespace-newline "color-109")
  510. ;; (progn
  511. ;; (set-face-bold-p 'whitespace-newline
  512. ;; t))
  513. ))
  514. (and nil
  515. (safe-require-or-eval 'fill-column-indicator)
  516. (setq fill-column-indicator))
  517. ;; highlight current line
  518. ;; http://wiki.riywo.com/index.php?Meadow
  519. (face-spec-set 'hl-line
  520. '((((min-colors 256)
  521. (background dark))
  522. (:background "color-234"))
  523. (((min-colors 256)
  524. (background light))
  525. (:background "color-234"))
  526. (t
  527. (:underline "black"))))
  528. (set-variable 'hl-line-global-modes
  529. '(not
  530. term-mode))
  531. (global-hl-line-mode 1) ;; (hl-line-mode 1)
  532. (set-face-foreground 'font-lock-regexp-grouping-backslash "#666")
  533. (set-face-foreground 'font-lock-regexp-grouping-construct "#f60")
  534. ;;(safe-require-or-eval 'set-modeline-color)
  535. ;; (let ((fg (face-foreground 'default))
  536. ;; (bg (face-background 'default)))
  537. ;; (set-face-background 'mode-line-inactive
  538. ;; (if (face-inverse-video-p 'mode-line) fg bg))
  539. ;; (set-face-foreground 'mode-line-inactive
  540. ;; (if (face-inverse-video-p 'mode-line) bg fg)))
  541. ;; (set-face-underline 'mode-line-inactive
  542. ;; t)
  543. ;; (set-face-underline 'vertical-border
  544. ;; nil)
  545. (when (safe-require-or-eval 'end-mark)
  546. (global-end-mark-mode))
  547. (when (safe-require-or-eval 'auto-highlight-symbol)
  548. (set-variable 'ahs-idle-interval 0.6)
  549. (global-auto-highlight-symbol-mode 1))
  550. (when (safe-require-or-eval 'cyberpunk-theme)
  551. (load-theme 'cyberpunk t)
  552. (set-face-attribute 'button
  553. nil
  554. :inherit 'highlight)
  555. (set-face-foreground 'mode-line-inactive
  556. "white")
  557. )
  558. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  559. ;; file handling
  560. (when (safe-require-or-eval 'editorconfig)
  561. ;; (set-variable 'editorconfig-get-properties-function
  562. ;; 'editorconfig-core-get-properties-hash)
  563. (editorconfig-mode 1))
  564. (when (fboundp 'editorconfig-custom-majormode)
  565. (add-hook 'editorconfig-custom-hooks
  566. 'editorconfig-custom-majormode))
  567. (when (fboundp 'editorconfig-charset-extras)
  568. (add-hook 'editorconfig-custom-hooks
  569. 'editorconfig-charset-extras))
  570. (setq revert-without-query '(".+"))
  571. ;; save cursor position
  572. (when (safe-require-or-eval 'saveplace)
  573. (setq-default save-place t)
  574. (setq save-place-file (concat user-emacs-directory
  575. "places")))
  576. ;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260
  577. (setq make-backup-files t)
  578. ;; (make-directory (expand-file-name "~/.emacsbackup"))
  579. (setq backup-directory-alist
  580. (cons (cons "\\.*$" (expand-file-name (concat user-emacs-directory
  581. "backup")))
  582. backup-directory-alist))
  583. (setq version-control 'never)
  584. (setq delete-old-versions t)
  585. (setq auto-save-list-file-prefix (expand-file-name (concat user-emacs-directory
  586. "auto-save/")))
  587. (setq delete-auto-save-files t)
  588. (add-to-list 'completion-ignored-extensions ".bak")
  589. ;; (setq delete-by-moving-to-trash t
  590. ;; trash-directory "~/.emacs.d/trash")
  591. (add-hook 'after-save-hook
  592. 'executable-make-buffer-file-executable-if-script-p)
  593. (set (defvar bookmark-default-file)
  594. (expand-file-name (concat user-emacs-directory
  595. "bmk")))
  596. (with-eval-after-load 'recentf
  597. (defvar recentf-exclude nil)
  598. (add-to-list 'recentf-exclude
  599. (regexp-quote bookmark-default-file)))
  600. (when (safe-require-or-eval 'smart-revert)
  601. (smart-revert-on))
  602. ;; autosave
  603. (when (safe-require-or-eval 'autosave)
  604. (autosave-set 8))
  605. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  606. ;; buffer killing
  607. ;; (defun my-delete-window-killing-buffer () nil)
  608. (defun my-query-kill-current-buffer ()
  609. "Interactively kill current buffer."
  610. (interactive)
  611. (if (y-or-n-p (concat "kill current buffer? :"))
  612. (kill-buffer (current-buffer))))
  613. ;;(global-set-key "\C-xk" 'my-query-kill-current-buffer)
  614. (substitute-key-definition 'kill-buffer
  615. 'my-query-kill-current-buffer
  616. global-map)
  617. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  618. ;; share clipboard with x
  619. ;; this page describes this in details, but only these sexps seem to be needed
  620. ;; http://garin.jp/doc/Linux/xwindow_clipboard
  621. (and (not window-system)
  622. (not (eq window-system 'mac))
  623. (getenv "DISPLAY")
  624. (not (equal (getenv "DISPLAY") ""))
  625. (executable-find "xclip")
  626. ;; (< emacs-major-version 24)
  627. (safe-require-or-eval 'xclip)
  628. nil
  629. (turn-on-xclip))
  630. (and (eq system-type 'darwin)
  631. (safe-require-or-eval 'pasteboard)
  632. (turn-on-pasteboard))
  633. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  634. ;; some modes and hooks
  635. ;; Workaround to avoid ensime error
  636. (defvar ensime-mode-key-prefix nil)
  637. ;; http://qiita.com/sune2/items/b73037f9e85962f5afb7
  638. (when (safe-require-or-eval 'company)
  639. (global-company-mode)
  640. (set-variable 'company-idle-delay 0.5)
  641. (set-variable 'company-minimum-prefix-length 2)
  642. (set-variable 'company-selection-wrap-around t))
  643. ;; https://github.com/lunaryorn/flycheck
  644. (when (safe-require-or-eval 'flycheck)
  645. (call-after-init 'global-flycheck-mode))
  646. (set-variable 'ac-ignore-case nil)
  647. (when (autoload-eval-lazily 'term-run '(term-run-shell-command term-run))
  648. (define-key ctl-x-map "t" 'term-run-shell-command))
  649. (add-to-list 'safe-local-variable-values
  650. '(encoding utf-8))
  651. (setq enable-local-variables :safe)
  652. (when (safe-require-or-eval 'remember-major-modes-mode)
  653. (remember-major-modes-mode 1))
  654. ;; Detect file type from shebang and set major-mode.
  655. (add-to-list 'interpreter-mode-alist
  656. '("python3" . python-mode))
  657. (add-to-list 'interpreter-mode-alist
  658. '("python2" . python-mode))
  659. (with-eval-after-load 'python
  660. (defvar python-mode-map (make-sparse-keymap))
  661. (define-key python-mode-map (kbd "C-m") 'newline-and-indent))
  662. ;; http://fukuyama.co/foreign-regexp
  663. '(and (safe-require-or-eval 'foreign-regexp)
  664. (progn
  665. (setq foreign-regexp/regexp-type 'perl)
  666. '(setq reb-re-syntax 'foreign-regexp)
  667. ))
  668. (autoload-eval-lazily 'sql '(sql-mode)
  669. (safe-require-or-eval 'sql-indent))
  670. (when (autoload-eval-lazily 'git-command)
  671. (define-key ctl-x-map "g" 'git-command))
  672. (when (safe-require-or-eval 'git-commit)
  673. (global-git-commit-mode 1))
  674. (autoload-eval-lazily 'sl)
  675. (with-eval-after-load 'rst
  676. (define-key rst-mode-map (kbd "C-m") 'newline-and-indent))
  677. ;; jdee is too old! use malabar instead
  678. (with-eval-after-load 'jdee
  679. (add-hook 'jdee-mode-hook
  680. (lambda ()
  681. (make-local-variable 'global-mode-string)
  682. (add-to-list 'global-mode-string
  683. mode-line-position))))
  684. ;; Cannot enable error thrown. Why???
  685. ;; https://github.com/m0smith/malabar-mode#Installation
  686. ;; (when (autoload-eval-lazily 'malabar-mode)
  687. ;; (add-to-list 'load-path
  688. ;; (expand-file-name (concat user-emacs-directory "/cedet")))
  689. ;; (safe-require-or-eval 'cedet-devel-load)
  690. ;; (call-after-init 'activate-malabar-mode))
  691. (with-eval-after-load 'make-mode
  692. (defvar makefile-mode-map (make-sparse-keymap))
  693. (define-key makefile-mode-map (kbd "C-m") 'newline-and-indent)
  694. ;; this functions is set in write-file-functions, i cannot find any
  695. ;; good way to remove this.
  696. (fset 'makefile-warn-suspicious-lines 'ignore))
  697. (with-eval-after-load 'verilog-mode
  698. (defvar verilog-mode-map (make-sparse-keymap))
  699. (define-key verilog-mode-map ";" 'self-insert-command))
  700. (setq diff-switches "-u")
  701. (with-eval-after-load 'diff-mode
  702. ;; (when (and (eq major-mode
  703. ;; 'diff-mode)
  704. ;; (not buffer-file-name))
  705. ;; ;; do not pass when major-mode is derived mode of diff-mode
  706. ;; (view-mode 1))
  707. (set-face-attribute 'diff-header nil
  708. :foreground nil
  709. :background nil
  710. :weight 'bold)
  711. (set-face-attribute 'diff-file-header nil
  712. :foreground nil
  713. :background nil
  714. :weight 'bold)
  715. (set-face-foreground 'diff-index-face "blue")
  716. (set-face-attribute 'diff-hunk-header nil
  717. :foreground "cyan"
  718. :weight 'normal)
  719. (set-face-attribute 'diff-context nil
  720. ;; :foreground "white"
  721. :foreground nil
  722. :weight 'normal)
  723. (set-face-foreground 'diff-removed-face "red")
  724. (set-face-foreground 'diff-added-face "green")
  725. (set-face-background 'diff-removed-face nil)
  726. (set-face-background 'diff-added-face nil)
  727. (set-face-attribute 'diff-changed nil
  728. :foreground "magenta"
  729. :weight 'normal)
  730. (set-face-attribute 'diff-refine-change nil
  731. :foreground nil
  732. :background nil
  733. :weight 'bold
  734. :inverse-video t)
  735. ;; Annoying !
  736. ;;(diff-auto-refine-mode)
  737. )
  738. ;; (ffap-bindings)
  739. (set-variable 'browse-url-browser-function
  740. 'eww-browse-url)
  741. (set-variable 'sh-here-document-word "__EOC__")
  742. (when (autoload-eval-lazily 'adoc-mode
  743. nil
  744. (defvar adoc-mode-map (make-sparse-keymap))
  745. (define-key adoc-mode-map (kbd "C-m") 'newline))
  746. (setq auto-mode-alist
  747. `(("\\.adoc\\'" . adoc-mode)
  748. ("\\.asciidoc\\'" . adoc-mode)
  749. ,@auto-mode-alist)))
  750. (with-eval-after-load 'markup-faces
  751. ;; Is this too match ?
  752. (set-face-foreground 'markup-meta-face
  753. "color-245")
  754. (set-face-foreground 'markup-meta-hide-face
  755. "color-245")
  756. )
  757. ;; TODO: check if this is required
  758. (when (autoload-eval-lazily 'groovy-mode nil
  759. (defvar groovy-mode-map (make-sparse-keymap))
  760. (define-key groovy-mode-map "(" 'self-insert-command)
  761. (define-key groovy-mode-map ")" 'self-insert-command)
  762. (define-key groovy-mode-map (kbd "C-m") 'newline-and-indent)
  763. )
  764. (add-to-list 'auto-mode-alist
  765. '("build\\.gradle\\'" . groovy-mode)))
  766. (with-eval-after-load 'yaml-mode
  767. (defvar yaml-mode-map (make-sparse-keymap))
  768. (define-key yaml-mode-map (kbd "C-m") 'newline))
  769. (with-eval-after-load 'html-mode
  770. (defvar html-mode-map (make-sparse-keymap))
  771. (define-key html-mode-map (kbd "C-m") 'reindent-then-newline-and-indent))
  772. (with-eval-after-load 'text-mode
  773. (define-key text-mode-map (kbd "C-m") 'newline))
  774. (add-to-list 'Info-default-directory-list
  775. (expand-file-name "~/.info/emacs-ja"))
  776. (with-eval-after-load 'apropos
  777. (defvar apropos-mode-map (make-sparse-keymap))
  778. (define-key apropos-mode-map "n" 'next-line)
  779. (define-key apropos-mode-map "p" 'previous-line))
  780. ;; `isearch' library does not call `provide' so cannot use with-eval-after-load
  781. ;; (define-key isearch-mode-map
  782. ;; (kbd "C-j") 'isearch-other-control-char)
  783. ;; (define-key isearch-mode-map
  784. ;; (kbd "C-k") 'isearch-other-control-char)
  785. ;; (define-key isearch-mode-map
  786. ;; (kbd "C-h") 'isearch-other-control-char)
  787. (define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char)
  788. (define-key isearch-mode-map (kbd "M-r")
  789. 'isearch-query-replace-regexp)
  790. ;; do not cleanup isearch highlight: use `lazy-highlight-cleanup' to remove
  791. (setq lazy-highlight-cleanup nil)
  792. ;; face for isearch highlighing
  793. (set-face-attribute 'lazy-highlight
  794. nil
  795. :foreground `unspecified
  796. :background `unspecified
  797. :underline t
  798. ;; :weight `bold
  799. )
  800. (add-hook 'outline-mode-hook
  801. (lambda ()
  802. (when (string-match "\\.md\\'" buffer-file-name)
  803. (set (make-local-variable 'outline-regexp) "#+ "))))
  804. (add-to-list 'auto-mode-alist (cons "\\.ol\\'" 'outline-mode))
  805. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode))
  806. (when (autoload-eval-lazily 'markdown-mode
  807. '(markdown-mode gfm-mode)
  808. (defvar gfm-mode-map (make-sparse-keymap))
  809. (define-key gfm-mode-map (kbd "C-m") 'electric-indent-just-newline))
  810. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'gfm-mode))
  811. (set-variable 'markdown-command (or (executable-find "markdown")
  812. (executable-find "markdown.pl")
  813. ""))
  814. (add-hook 'markdown-mode-hook
  815. (lambda ()
  816. (outline-minor-mode 1)
  817. (flyspell-mode)
  818. (set (make-local-variable 'comment-start) ";")))
  819. )
  820. ;; c-mode
  821. ;; http://www.emacswiki.org/emacs/IndentingC
  822. ;; http://en.wikipedia.org/wiki/Indent_style
  823. ;; http://d.hatena.ne.jp/emergent/20070203/1170512717
  824. ;; http://seesaawiki.jp/whiteflare503/d/Emacs%20%a5%a4%a5%f3%a5%c7%a5%f3%a5%c8
  825. (with-eval-after-load 'cc-vars
  826. (defvar c-default-style nil)
  827. (add-to-list 'c-default-style
  828. '(c-mode . "k&r"))
  829. (add-to-list 'c-default-style
  830. '(c++-mode . "k&r"))
  831. (add-hook 'c-mode-common-hook
  832. (lambda ()
  833. ;; why c-basic-offset in k&r style defaults to 5 ???
  834. (set-variable 'c-basic-offset 4)
  835. (set-variable 'indent-tabs-mode nil)
  836. ;; (set-face-foreground 'font-lock-keyword-face "blue")
  837. (c-toggle-hungry-state -1)
  838. ;; (and (require 'gtags nil t)
  839. ;; (gtags-mode 1))
  840. )))
  841. (autoload-eval-lazily 'js2-mode nil
  842. ;; currently do not use js2-mode
  843. ;; (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
  844. ;; (add-to-list 'auto-mode-alist '("\\.jsm\\'" . js2-mode))
  845. (defvar js2-mode-map (make-sparse-keymap))
  846. (define-key js2-mode-map (kbd "C-m") (lambda ()
  847. (interactive)
  848. (js2-enter-key)
  849. (indent-for-tab-command)))
  850. ;; (add-hook (kill-local-variable 'before-save-hook)
  851. ;; 'js2-before-save)
  852. ;; (add-hook 'before-save-hook
  853. ;; 'my-indent-buffer
  854. ;; nil
  855. ;; t)
  856. )
  857. (add-to-list 'interpreter-mode-alist
  858. '("node" . js-mode))
  859. (when (autoload-eval-lazily 'flymake-jslint
  860. '(flymake-jslint-load))
  861. (autoload-eval-lazily 'js nil
  862. (add-hook 'js-mode-hook
  863. 'flymake-jslint-load)))
  864. (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
  865. (with-eval-after-load 'uniquify
  866. (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
  867. (setq uniquify-ignore-buffers-re "*[^*]+*")
  868. (setq uniquify-min-dir-content 1))
  869. (with-eval-after-load 'view
  870. (defvar view-mode-map (make-sparse-keymap))
  871. (define-key view-mode-map "j" 'scroll-up-line)
  872. (define-key view-mode-map "k" 'scroll-down-line)
  873. (define-key view-mode-map "v" 'toggle-read-only)
  874. (define-key view-mode-map "q" 'bury-buffer)
  875. ;; (define-key view-mode-map "/" 'nonincremental-re-search-forward)
  876. ;; (define-key view-mode-map "?" 'nonincremental-re-search-backward)
  877. ;; (define-key view-mode-map
  878. ;; "n" 'nonincremental-repeat-search-forward)
  879. ;; (define-key view-mode-map
  880. ;; "N" 'nonincremental-repeat-search-backward)
  881. (define-key view-mode-map "/" 'isearch-forward-regexp)
  882. (define-key view-mode-map "?" 'isearch-backward-regexp)
  883. (define-key view-mode-map "n" 'isearch-repeat-forward)
  884. (define-key view-mode-map "N" 'isearch-repeat-backward)
  885. (define-key view-mode-map (kbd "C-m") 'my-rgrep-symbol-at-point))
  886. (global-set-key "\M-r" 'view-mode)
  887. ;; (setq view-read-only t)
  888. (with-eval-after-load 'term
  889. (defvar term-raw-map (make-sparse-keymap))
  890. (define-key term-raw-map (kbd "C-x")
  891. (lookup-key (current-global-map)
  892. (kbd "C-x"))))
  893. (add-hook 'term-mode-hook
  894. (lambda ()
  895. ;; Stop current line highlighting
  896. (set (make-local-variable (defvar hl-line-range-function))
  897. (lambda () '(0 . 0)))
  898. (set (make-local-variable 'scroll-margin)
  899. 0)))
  900. (add-hook 'Man-mode-hook
  901. (lambda ()
  902. (view-mode 1)
  903. (setq truncate-lines nil)))
  904. (set-variable 'Man-notify-method (if window-system
  905. 'newframe
  906. 'aggressive))
  907. (set-variable 'woman-cache-filename (expand-file-name (concat user-emacs-directory
  908. "woman_cache.el")))
  909. ;; not work because man.el will be loaded when man called
  910. (defalias 'man 'woman)
  911. (add-to-list 'auto-mode-alist
  912. '("tox\\.ini\\'" . conf-unix-mode))
  913. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  914. ;; buffer switching
  915. (defvar bs-configurations)
  916. (when (autoload-eval-lazily 'bs '(bs-show)
  917. (add-to-list 'bs-configurations
  918. '("specials" "^\\*" nil ".*" nil nil))
  919. (add-to-list 'bs-configurations
  920. '("files-and-specials" "^\\*" buffer-file-name ".*" nil nil))
  921. (defvar bs-mode-map)
  922. (defvar bs-current-configuration)
  923. (define-key bs-mode-map (kbd "t")
  924. ;; TODO: fix toggle feature
  925. (lambda ()
  926. (interactive)
  927. (if (string= "specials"
  928. bs-current-configuration)
  929. (bs-set-configuration "files")
  930. (bs-set-configuration "specials"))
  931. (bs-refresh)
  932. (bs-message-without-log "%s"
  933. (bs--current-config-message))))
  934. ;; (setq bs-configurations (list
  935. ;; '("processes" nil get-buffer-process ".*" nil nil)
  936. ;; '("files-and-scratch" "^\\*scratch\\*$" nil nil
  937. ;; bs-visits-non-file bs-sort-buffer-interns-are-last)))
  938. )
  939. (defalias 'list-buffers 'bs-show)
  940. (set-variable 'bs-default-configuration "files-and-specials")
  941. (set-variable 'bs-default-sort-name "by nothing")
  942. (add-hook 'bs-mode-hook
  943. (lambda ()
  944. (set (make-local-variable 'scroll-margin) 0))))
  945. ;;(iswitchb-mode 1)
  946. (icomplete-mode)
  947. (defun iswitchb-buffer-display-other-window ()
  948. "Do iswitchb in other window."
  949. (interactive)
  950. (let ((iswitchb-default-method 'display))
  951. (call-interactively 'iswitchb-buffer)))
  952. ;;;;;;;;;;;;;;;;;;;;;;;;
  953. ;; ilookup
  954. (with-eval-after-load 'ilookup
  955. (set-variable 'ilookup-dict-alist
  956. '(
  957. ("sdcv" . (lambda (word)
  958. (shell-command-to-string
  959. (format "sdcv -n '%s'"
  960. word))))
  961. ("en" . (lambda (word)
  962. (shell-command-to-string
  963. (format "sdcv -n -u dictd_www.dict.org_gcide '%s'"
  964. word))))
  965. ("ja" . (lambda (word)
  966. (shell-command-to-string
  967. (format "sdcv -n -u EJ-GENE95 -u jmdict-en-ja '%s'"
  968. word))))
  969. ("jaj" . (lambda (word)
  970. (shell-command-to-string
  971. (format "sdcv -n -u jmdict-en-ja '%s'"
  972. word))))
  973. ("jag" .
  974. (lambda (word)
  975. (with-temp-buffer
  976. (insert (shell-command-to-string
  977. (format "sdcv -n -u 'Genius English-Japanese' '%s'"
  978. word)))
  979. (html2text)
  980. (buffer-substring (point-min)
  981. (point-max)))))
  982. ("alc" . (lambda (word)
  983. (shell-command-to-string
  984. (format "alc '%s' | head -n 20"
  985. word))))
  986. ("app" . (lambda (word)
  987. (shell-command-to-string
  988. (format "dict_app '%s'"
  989. word))))
  990. ;; letters broken
  991. ("ms" .
  992. (lambda (word)
  993. (let ((url (concat
  994. "http://api.microsofttranslator.com/V2/Ajax.svc/"
  995. "Translate?appId=%s&text=%s&to=%s"))
  996. (apikey "3C9778666C5BA4B406FFCBEE64EF478963039C51")
  997. (target "ja")
  998. (eword (url-hexify-string word)))
  999. (with-current-buffer (url-retrieve-synchronously
  1000. (format url
  1001. apikey
  1002. eword
  1003. target))
  1004. (message "")
  1005. (goto-char (point-min))
  1006. (search-forward-regexp "^$"
  1007. nil
  1008. t)
  1009. (url-unhex-string (buffer-substring-no-properties
  1010. (point)
  1011. (point-max)))))))
  1012. ))
  1013. ;; (funcall (cdr (assoc "ms"
  1014. ;; ilookup-alist))
  1015. ;; "dictionary")
  1016. ;; (switch-to-buffer (url-retrieve-synchronously "http://api.microsofttranslator.com/V2/Ajax.svc/Translate?appId=3C9778666C5BA4B406FFCBEE64EF478963039C51&text=dictionary&to=ja"))
  1017. ;; (switch-to-buffer (url-retrieve-synchronously "http://google.com"))
  1018. (set-variable 'ilookup-default "ja")
  1019. (when (locate-library "google-translate")
  1020. (defvar ilookup-dict-alist nil)
  1021. (add-to-list 'ilookup-dict-alist
  1022. '("gt" .
  1023. (lambda (word)
  1024. (save-excursion
  1025. (google-translate-translate "auto"
  1026. "ja"
  1027. word))
  1028. (with-current-buffer "*Google Translate*"
  1029. (buffer-substring-no-properties (point-min)
  1030. (point-max)))))))
  1031. )
  1032. (when (autoload-eval-lazily 'google-translate '(google-translate-translate
  1033. google-translate-at-point))
  1034. (set-variable 'google-translate-default-source-language "auto")
  1035. (set-variable 'google-translate-default-target-language "ja"))
  1036. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1037. ;; vc
  1038. (set-variable 'vc-handled-backends '())
  1039. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1040. ;; recentf-mode
  1041. (set-variable 'recentf-save-file (expand-file-name (concat user-emacs-directory
  1042. "recentf")))
  1043. (set-variable 'recentf-max-menu-items 20)
  1044. (set-variable 'recentf-max-saved-items 30)
  1045. (set-variable 'recentf-show-file-shortcuts-flag nil)
  1046. (when (safe-require-or-eval 'recentf)
  1047. (add-to-list 'recentf-exclude
  1048. (regexp-quote recentf-save-file))
  1049. (add-to-list 'recentf-exclude
  1050. (regexp-quote (expand-file-name user-emacs-directory)))
  1051. (define-key ctl-x-map (kbd "C-r") 'recentf-open-files)
  1052. (remove-hook 'find-file-hook
  1053. 'recentf-track-opened-file)
  1054. (defun my-recentf-load-track-save-list ()
  1055. "Load current recentf list from file, track current visiting file, then save
  1056. the list."
  1057. (recentf-load-list)
  1058. (recentf-track-opened-file)
  1059. (recentf-save-list))
  1060. (add-hook 'find-file-hook
  1061. 'my-recentf-load-track-save-list)
  1062. (add-hook 'kill-emacs-hook
  1063. 'recentf-load-list)
  1064. ;;(run-with-idle-timer 5 t 'recentf-save-list)
  1065. ;; (add-hook 'find-file-hook
  1066. ;; (lambda ()
  1067. ;; (recentf-add-file default-directory)))
  1068. (and (autoload-eval-lazily 'recentf-show)
  1069. (define-key ctl-x-map (kbd "C-r") 'recentf-show)
  1070. (add-hook 'recentf-show-before-listing-hook
  1071. 'recentf-load-list))
  1072. (recentf-mode 1)
  1073. (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line)
  1074. (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line)
  1075. (define-key recentf-dialog-mode-map "p" 'previous-line)
  1076. (define-key recentf-dialog-mode-map "n" 'next-line)
  1077. (add-hook 'recentf-dialog-mode-hook
  1078. (lambda ()
  1079. ;; (recentf-save-list)
  1080. ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f")
  1081. ;; 'my-recentf-cd-and-find-file)
  1082. (cd "~/"))))
  1083. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1084. ;; dired
  1085. (defun my-dired-echo-file-head (arg)
  1086. ""
  1087. (interactive "P")
  1088. (let ((f (dired-get-filename)))
  1089. (message "%s"
  1090. (with-temp-buffer
  1091. (insert-file-contents f)
  1092. (buffer-substring-no-properties
  1093. (point-min)
  1094. (progn (goto-char (point-min))
  1095. (forward-line (1- (if arg
  1096. (prefix-numeric-value arg)
  1097. 7)))
  1098. (point-at-eol)))))))
  1099. (defun my-dired-diff ()
  1100. ""
  1101. (interactive)
  1102. (let ((files (dired-get-marked-files nil nil nil t)))
  1103. (if (eq (car files)
  1104. t)
  1105. (diff (cadr files) (dired-get-filename))
  1106. (message "One file must be marked!"))))
  1107. (defun dired-get-file-info ()
  1108. "dired get file info"
  1109. (interactive)
  1110. (let ((f (shell-quote-argument (dired-get-filename t))))
  1111. (if (file-directory-p f)
  1112. (progn
  1113. (message "Calculating disk usage...")
  1114. (shell-command (concat "du -hsD "
  1115. f)))
  1116. (shell-command (concat "file "
  1117. f)))))
  1118. (defun my-dired-scroll-up ()
  1119. ""
  1120. (interactive)
  1121. (my-dired-previous-line (- (window-height) 1)))
  1122. (defun my-dired-scroll-down ()
  1123. ""
  1124. (interactive)
  1125. (my-dired-next-line (- (window-height) 1)))
  1126. ;; (defun my-dired-forward-line (arg)
  1127. ;; ""
  1128. ;; (interactive "p"))
  1129. (defun my-dired-previous-line (arg)
  1130. ""
  1131. (interactive "p")
  1132. (if (> arg 0)
  1133. (progn
  1134. (if (eq (line-number-at-pos)
  1135. 1)
  1136. (goto-char (point-max))
  1137. (forward-line -1))
  1138. (my-dired-previous-line (if (or (dired-get-filename nil t)
  1139. (dired-get-subdir))
  1140. (- arg 1)
  1141. arg)))
  1142. (dired-move-to-filename)))
  1143. (defun my-dired-next-line (arg)
  1144. ""
  1145. (interactive "p")
  1146. (if (> arg 0)
  1147. (progn
  1148. (if (eq (point)
  1149. (point-max))
  1150. (goto-char (point-min))
  1151. (forward-line 1))
  1152. (my-dired-next-line (if (or (dired-get-filename nil t)
  1153. (dired-get-subdir))
  1154. (- arg 1)
  1155. arg)))
  1156. (dired-move-to-filename)))
  1157. ;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html
  1158. (if (eq window-system 'mac)
  1159. (setq dired-listing-switches "-lhF")
  1160. (setq dired-listing-switches "-lhF --time-style=long-iso")
  1161. )
  1162. (setq dired-listing-switches "-lhF")
  1163. (put 'dired-find-alternate-file 'disabled nil)
  1164. ;; when using dired-find-alternate-file
  1165. ;; reuse current dired buffer for the file to open
  1166. (set-variable 'dired-ls-F-marks-symlinks t)
  1167. (with-eval-after-load 'ls-lisp
  1168. (setq ls-lisp-use-insert-directory-program nil) ; always use ls-lisp
  1169. (setq ls-lisp-dirs-first t)
  1170. (setq ls-lisp-use-localized-time-format t)
  1171. (setq ls-lisp-format-time-list
  1172. '("%Y-%m-%d %H:%M"
  1173. "%Y-%m-%d ")))
  1174. (set-variable 'dired-dwim-target t)
  1175. (set-variable 'dired-isearch-filenames t)
  1176. (set-variable 'dired-hide-details-hide-symlink-targets nil)
  1177. (set-variable 'dired-hide-details-hide-information-lines nil)
  1178. ;; (add-hook 'dired-after-readin-hook
  1179. ;; 'my-replace-nasi-none)
  1180. ;; (add-hook 'after-init-hook
  1181. ;; (lambda ()
  1182. ;; (dired ".")))
  1183. (with-eval-after-load 'dired
  1184. (safe-require-or-eval 'ls-lisp)
  1185. (defvar dired-mode-map (make-sparse-keymap))
  1186. (define-key dired-mode-map "o" 'my-dired-x-open)
  1187. (define-key dired-mode-map "i" 'dired-get-file-info)
  1188. (define-key dired-mode-map "f" 'find-file)
  1189. (define-key dired-mode-map "!" 'shell-command)
  1190. (define-key dired-mode-map "&" 'async-shell-command)
  1191. (define-key dired-mode-map "X" 'dired-do-async-shell-command)
  1192. (define-key dired-mode-map "=" 'my-dired-diff)
  1193. (define-key dired-mode-map "B" 'gtkbm-add-current-dir)
  1194. (define-key dired-mode-map "b" 'gtkbm)
  1195. (define-key dired-mode-map "h" 'my-dired-echo-file-head)
  1196. (define-key dired-mode-map "@" (lambda ()
  1197. (interactive) (my-x-open ".")))
  1198. (define-key dired-mode-map (kbd "TAB") 'other-window)
  1199. ;; (define-key dired-mode-map "P" 'my-dired-do-pack-or-unpack)
  1200. (define-key dired-mode-map "/" 'dired-isearch-filenames)
  1201. (define-key dired-mode-map (kbd "DEL") 'dired-up-directory)
  1202. (define-key dired-mode-map (kbd "C-h") 'dired-up-directory)
  1203. (substitute-key-definition 'dired-next-line
  1204. 'my-dired-next-line
  1205. dired-mode-map)
  1206. (substitute-key-definition 'dired-previous-line
  1207. 'my-dired-previous-line
  1208. dired-mode-map)
  1209. ;; (define-key dired-mode-map (kbd "C-p") 'my-dired-previous-line)
  1210. ;; (define-key dired-mode-map (kbd "p") 'my-dired-previous-line)
  1211. ;; (define-key dired-mode-map (kbd "C-n") 'my-dired-next-line)
  1212. ;; (define-key dired-mode-map (kbd "n") 'my-dired-next-line)
  1213. (define-key dired-mode-map (kbd "<left>") 'my-dired-scroll-up)
  1214. (define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)
  1215. (define-key dired-mode-map (kbd "ESC p") 'my-dired-scroll-up)
  1216. (define-key dired-mode-map (kbd "ESC n") 'my-dired-scroll-down)
  1217. (add-hook 'dired-mode-hook
  1218. (lambda ()
  1219. (when (fboundp 'dired-hide-details-mode)
  1220. (dired-hide-details-mode t)
  1221. (local-set-key "l" 'dired-hide-details-mode))
  1222. (let ((file "._Icon\015"))
  1223. (when nil
  1224. '(file-readable-p file)
  1225. (delete-file file)))))
  1226. (when (autoload-eval-lazily 'pack '(dired-do-pack-or-unpack pack-pack))
  1227. (with-eval-after-load 'dired
  1228. (define-key dired-mode-map "P" 'dired-do-pack-or-unpack)))
  1229. (when (autoload-eval-lazily 'dired-list-all-mode)
  1230. (setq dired-listing-switches "-lhF")
  1231. (with-eval-after-load 'dired
  1232. (define-key dired-mode-map "a" 'dired-list-all-mode))))
  1233. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1234. ;; misc funcs
  1235. (defalias 'qcalc 'quick-calc)
  1236. (defun memo (&optional dir)
  1237. "Open memo.txt in DIR."
  1238. (interactive)
  1239. (pop-to-buffer (find-file-noselect (concat (if dir
  1240. (file-name-as-directory dir)
  1241. "")
  1242. "memo.txt"))))
  1243. (defvar my-rgrep-alist
  1244. `(
  1245. ;; the silver searcher
  1246. ("ag"
  1247. (executable-find "ag")
  1248. "ag --nocolor --nogroup --nopager --filename ")
  1249. ;; ack
  1250. ("ack"
  1251. (executable-find "ack")
  1252. "ack --nocolor --nogroup --nopager --with-filename ")
  1253. ;; gnu global
  1254. ("global"
  1255. (and (require 'gtags nil t)
  1256. (executable-find "global")
  1257. (gtags-get-rootpath))
  1258. "global --result grep ")
  1259. ;; git grep
  1260. ("gitgrep"
  1261. (eq 0
  1262. (shell-command "git rev-parse --git-dir"))
  1263. "git --no-pager -c color.grep=false grep -nH -e ")
  1264. ;; grep
  1265. ("grep"
  1266. t
  1267. ,(concat "find . "
  1268. "-path '*/.git' -prune -o "
  1269. "-path '*/.svn' -prune -o "
  1270. "-type f -print0 | "
  1271. "xargs -0 grep -nH -e "))
  1272. )
  1273. "Alist of rgrep command.
  1274. Each element is in the form like (NAME SEXP COMMAND), where SEXP returns the
  1275. condition to choose COMMAND when evaluated.")
  1276. (defvar my-rgrep-default nil
  1277. "Default command name for my-rgrep.")
  1278. (defun my-rgrep-grep-command (&optional name alist)
  1279. "Return recursive grep command for current directory or nil.
  1280. If NAME is given, use that without testing.
  1281. Commands are searched from ALIST."
  1282. (if alist
  1283. (if name
  1284. ;; if name is given search that from alist and return the command
  1285. (nth 2 (assoc name
  1286. alist))
  1287. ;; if name is not given try test in 1th elem
  1288. (let ((car (car alist))
  1289. (cdr (cdr alist)))
  1290. (if (eval (nth 1 car))
  1291. ;; if the condition is true return the command
  1292. (nth 2 car)
  1293. ;; try next one
  1294. (and cdr
  1295. (my-rgrep-grep-command name cdr)))))
  1296. ;; if alist is not given set default value
  1297. (my-rgrep-grep-command name my-rgrep-alist)))
  1298. (defun my-rgrep (command-args)
  1299. "My recursive grep. Run COMMAND-ARGS."
  1300. (interactive (let ((cmd (my-rgrep-grep-command my-rgrep-default
  1301. nil)))
  1302. (if cmd
  1303. (list (read-shell-command "grep command: "
  1304. cmd
  1305. 'grep-find-history))
  1306. (error "My-Rgrep: Command for rgrep not found")
  1307. )))
  1308. (compilation-start command-args
  1309. 'grep-mode))
  1310. ;; (defun my-rgrep-symbol-at-point (command-args)
  1311. ;; "My recursive grep. Run COMMAND-ARGS."
  1312. ;; (interactive (list (read-shell-command "grep command: "
  1313. ;; (concat (my-rgrep-grep-command)
  1314. ;; " "
  1315. ;; (thing-at-point 'symbol))
  1316. ;; 'grep-find-history)))
  1317. ;; (compilation-start command-args
  1318. ;; 'grep-mode))
  1319. (defmacro define-my-rgrep (name)
  1320. "Define rgrep for NAME."
  1321. `(defun ,(intern (concat "my-rgrep-"
  1322. name)) ()
  1323. ,(format "My recursive grep by %s."
  1324. name)
  1325. (interactive)
  1326. (let ((my-rgrep-default ,name))
  1327. (if (called-interactively-p 'any)
  1328. (call-interactively 'my-rgrep)
  1329. (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
  1330. )
  1331. (define-my-rgrep "ack")
  1332. (define-my-rgrep "ag")
  1333. (define-my-rgrep "gitgrep")
  1334. (define-my-rgrep "grep")
  1335. (define-my-rgrep "global")
  1336. (define-key ctl-x-map "s" 'my-rgrep)
  1337. ;; (defun make ()
  1338. ;; "Run \"make -k\" in current directory."
  1339. ;; (interactive)
  1340. ;; (compile "make -k"))
  1341. (defalias 'make 'compile)
  1342. (define-key ctl-x-map "c" 'compile)
  1343. ;;;;;;;;;;;;;;;;;;;;;;;
  1344. ;; adoc-simple-mode
  1345. (when (safe-require-or-eval 'adoc-mode)
  1346. (defvar adoc-simple-font-lock-keywords
  1347. nil)
  1348. (define-derived-mode adoc-simple-mode adoc-mode
  1349. "Adoc-Simple"
  1350. "Major mode for editing AsciiDoc text files.
  1351. This mode is a simplified version of `adoc-mode'."
  1352. '(set (make-local-variable 'font-lock-defaults)
  1353. '(adoc-simple-font-lock-keywords
  1354. nil nil nil nil
  1355. (font-lock-multiline . t)
  1356. (font-lock-mark-block-function . adoc-font-lock-mark-block-function))))
  1357. (add-to-list 'auto-mode-alist
  1358. '("\\.adoc\\'" . adoc-simple-mode)))
  1359. (when (and (safe-require-or-eval 'google-translate)
  1360. (safe-require-or-eval 'google-translate-smooth-ui))
  1361. (add-to-list 'google-translate-translation-directions-alist
  1362. '("en" . "ja"))
  1363. (defun translate-echo-at-point ()
  1364. "Translate popup at point."
  1365. (interactive)
  1366. (let ((google-translate-output-destination 'echo-area))
  1367. (google-translate-translate "auto" "ja" (current-word t t))))
  1368. (define-minor-mode auto-translate-mode
  1369. "Translate word at point automatically."
  1370. :global nil
  1371. :lighter "ATranslate"))
  1372. ;;; emacs.el ends here