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.
 
 
 
 
 
 

1609 lines
54 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. (face-spec-set 'term-color-black (face-default-spec 'term-color-black))
  558. (face-spec-set 'term-color-red (face-default-spec 'term-color-red))
  559. (face-spec-set 'term-color-green (face-default-spec 'term-color-green))
  560. (face-spec-set 'term-color-yellow (face-default-spec 'term-color-yellow))
  561. (face-spec-set 'term-color-blue (face-default-spec 'term-color-blue))
  562. (face-spec-set 'term-color-magenta (face-default-spec 'term-color-magenta))
  563. (face-spec-set 'term-color-cyan (face-default-spec 'term-color-cyan))
  564. (face-spec-set 'term-color-white (face-default-spec 'term-color-white))
  565. )
  566. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  567. ;; file handling
  568. (when (safe-require-or-eval 'editorconfig)
  569. ;; (set-variable 'editorconfig-get-properties-function
  570. ;; 'editorconfig-core-get-properties-hash)
  571. (editorconfig-mode 1))
  572. (when (fboundp 'editorconfig-custom-majormode)
  573. (add-hook 'editorconfig-custom-hooks
  574. 'editorconfig-custom-majormode))
  575. (when (fboundp 'editorconfig-charset-extras)
  576. (add-hook 'editorconfig-custom-hooks
  577. 'editorconfig-charset-extras))
  578. (setq revert-without-query '(".+"))
  579. ;; save cursor position
  580. (when (safe-require-or-eval 'saveplace)
  581. (setq-default save-place t)
  582. (setq save-place-file (concat user-emacs-directory
  583. "places")))
  584. ;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260
  585. (setq make-backup-files t)
  586. ;; (make-directory (expand-file-name "~/.emacsbackup"))
  587. (setq backup-directory-alist
  588. (cons (cons "\\.*$" (expand-file-name (concat user-emacs-directory
  589. "backup")))
  590. backup-directory-alist))
  591. (setq version-control 'never)
  592. (setq delete-old-versions t)
  593. (setq auto-save-list-file-prefix (expand-file-name (concat user-emacs-directory
  594. "auto-save/")))
  595. (setq delete-auto-save-files t)
  596. (add-to-list 'completion-ignored-extensions ".bak")
  597. ;; (setq delete-by-moving-to-trash t
  598. ;; trash-directory "~/.emacs.d/trash")
  599. (add-hook 'after-save-hook
  600. 'executable-make-buffer-file-executable-if-script-p)
  601. (set (defvar bookmark-default-file)
  602. (expand-file-name (concat user-emacs-directory
  603. "bmk")))
  604. (with-eval-after-load 'recentf
  605. (defvar recentf-exclude nil)
  606. (add-to-list 'recentf-exclude
  607. (regexp-quote bookmark-default-file)))
  608. (when (safe-require-or-eval 'smart-revert)
  609. (smart-revert-on))
  610. ;; autosave
  611. (when (safe-require-or-eval 'autosave)
  612. (autosave-set 8))
  613. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  614. ;; buffer killing
  615. ;; (defun my-delete-window-killing-buffer () nil)
  616. (defun my-query-kill-current-buffer ()
  617. "Interactively kill current buffer."
  618. (interactive)
  619. (if (y-or-n-p (concat "kill current buffer? :"))
  620. (kill-buffer (current-buffer))))
  621. ;;(global-set-key "\C-xk" 'my-query-kill-current-buffer)
  622. (substitute-key-definition 'kill-buffer
  623. 'my-query-kill-current-buffer
  624. global-map)
  625. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  626. ;; share clipboard with x
  627. ;; this page describes this in details, but only these sexps seem to be needed
  628. ;; http://garin.jp/doc/Linux/xwindow_clipboard
  629. (and (not window-system)
  630. (not (eq window-system 'mac))
  631. (getenv "DISPLAY")
  632. (not (equal (getenv "DISPLAY") ""))
  633. (executable-find "xclip")
  634. ;; (< emacs-major-version 24)
  635. (safe-require-or-eval 'xclip)
  636. nil
  637. (turn-on-xclip))
  638. (and (eq system-type 'darwin)
  639. (safe-require-or-eval 'pasteboard)
  640. (turn-on-pasteboard))
  641. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  642. ;; some modes and hooks
  643. ;; Workaround to avoid ensime error
  644. (defvar ensime-mode-key-prefix nil)
  645. ;; http://qiita.com/sune2/items/b73037f9e85962f5afb7
  646. (when (safe-require-or-eval 'company)
  647. (global-company-mode)
  648. (set-variable 'company-idle-delay 0.5)
  649. (set-variable 'company-minimum-prefix-length 2)
  650. (set-variable 'company-selection-wrap-around t))
  651. ;; https://github.com/lunaryorn/flycheck
  652. (when (safe-require-or-eval 'flycheck)
  653. (call-after-init 'global-flycheck-mode))
  654. (set-variable 'ac-ignore-case nil)
  655. (when (autoload-eval-lazily 'term-run '(term-run-shell-command term-run))
  656. (define-key ctl-x-map "t" 'term-run-shell-command))
  657. (add-to-list 'safe-local-variable-values
  658. '(encoding utf-8))
  659. (setq enable-local-variables :safe)
  660. (when (safe-require-or-eval 'remember-major-modes-mode)
  661. (remember-major-modes-mode 1))
  662. ;; Detect file type from shebang and set major-mode.
  663. (add-to-list 'interpreter-mode-alist
  664. '("python3" . python-mode))
  665. (add-to-list 'interpreter-mode-alist
  666. '("python2" . python-mode))
  667. (with-eval-after-load 'python
  668. (defvar python-mode-map (make-sparse-keymap))
  669. (define-key python-mode-map (kbd "C-m") 'newline-and-indent))
  670. ;; http://fukuyama.co/foreign-regexp
  671. '(and (safe-require-or-eval 'foreign-regexp)
  672. (progn
  673. (setq foreign-regexp/regexp-type 'perl)
  674. '(setq reb-re-syntax 'foreign-regexp)
  675. ))
  676. (autoload-eval-lazily 'sql '(sql-mode)
  677. (safe-require-or-eval 'sql-indent))
  678. (when (autoload-eval-lazily 'git-command)
  679. (define-key ctl-x-map "g" 'git-command))
  680. (when (safe-require-or-eval 'git-commit)
  681. (global-git-commit-mode 1))
  682. (autoload-eval-lazily 'sl)
  683. (with-eval-after-load 'rst
  684. (define-key rst-mode-map (kbd "C-m") 'newline-and-indent))
  685. ;; jdee is too old! use malabar instead
  686. (with-eval-after-load 'jdee
  687. (add-hook 'jdee-mode-hook
  688. (lambda ()
  689. (make-local-variable 'global-mode-string)
  690. (add-to-list 'global-mode-string
  691. mode-line-position))))
  692. ;; Cannot enable error thrown. Why???
  693. ;; https://github.com/m0smith/malabar-mode#Installation
  694. ;; (when (autoload-eval-lazily 'malabar-mode)
  695. ;; (add-to-list 'load-path
  696. ;; (expand-file-name (concat user-emacs-directory "/cedet")))
  697. ;; (safe-require-or-eval 'cedet-devel-load)
  698. ;; (call-after-init 'activate-malabar-mode))
  699. (with-eval-after-load 'make-mode
  700. (defvar makefile-mode-map (make-sparse-keymap))
  701. (define-key makefile-mode-map (kbd "C-m") 'newline-and-indent)
  702. ;; this functions is set in write-file-functions, i cannot find any
  703. ;; good way to remove this.
  704. (fset 'makefile-warn-suspicious-lines 'ignore))
  705. (with-eval-after-load 'verilog-mode
  706. (defvar verilog-mode-map (make-sparse-keymap))
  707. (define-key verilog-mode-map ";" 'self-insert-command))
  708. (setq diff-switches "-u")
  709. (with-eval-after-load 'diff-mode
  710. ;; (when (and (eq major-mode
  711. ;; 'diff-mode)
  712. ;; (not buffer-file-name))
  713. ;; ;; do not pass when major-mode is derived mode of diff-mode
  714. ;; (view-mode 1))
  715. (set-face-attribute 'diff-header nil
  716. :foreground nil
  717. :background nil
  718. :weight 'bold)
  719. (set-face-attribute 'diff-file-header nil
  720. :foreground nil
  721. :background nil
  722. :weight 'bold)
  723. (set-face-foreground 'diff-index-face "blue")
  724. (set-face-attribute 'diff-hunk-header nil
  725. :foreground "cyan"
  726. :weight 'normal)
  727. (set-face-attribute 'diff-context nil
  728. ;; :foreground "white"
  729. :foreground nil
  730. :weight 'normal)
  731. (set-face-foreground 'diff-removed-face "red")
  732. (set-face-foreground 'diff-added-face "green")
  733. (set-face-background 'diff-removed-face nil)
  734. (set-face-background 'diff-added-face nil)
  735. (set-face-attribute 'diff-changed nil
  736. :foreground "magenta"
  737. :weight 'normal)
  738. (set-face-attribute 'diff-refine-change nil
  739. :foreground nil
  740. :background nil
  741. :weight 'bold
  742. :inverse-video t)
  743. ;; Annoying !
  744. ;;(diff-auto-refine-mode)
  745. )
  746. ;; (ffap-bindings)
  747. (set-variable 'browse-url-browser-function
  748. 'eww-browse-url)
  749. (set-variable 'sh-here-document-word "__EOC__")
  750. (when (autoload-eval-lazily 'adoc-mode
  751. nil
  752. (defvar adoc-mode-map (make-sparse-keymap))
  753. (define-key adoc-mode-map (kbd "C-m") 'newline))
  754. (setq auto-mode-alist
  755. `(("\\.adoc\\'" . adoc-mode)
  756. ("\\.asciidoc\\'" . adoc-mode)
  757. ,@auto-mode-alist)))
  758. (with-eval-after-load 'markup-faces
  759. ;; Is this too match ?
  760. (set-face-foreground 'markup-meta-face
  761. "color-245")
  762. (set-face-foreground 'markup-meta-hide-face
  763. "color-245")
  764. )
  765. ;; TODO: check if this is required
  766. (when (autoload-eval-lazily 'groovy-mode nil
  767. (defvar groovy-mode-map (make-sparse-keymap))
  768. (define-key groovy-mode-map "(" 'self-insert-command)
  769. (define-key groovy-mode-map ")" 'self-insert-command)
  770. (define-key groovy-mode-map (kbd "C-m") 'newline-and-indent)
  771. )
  772. (add-to-list 'auto-mode-alist
  773. '("build\\.gradle\\'" . groovy-mode)))
  774. (with-eval-after-load 'yaml-mode
  775. (defvar yaml-mode-map (make-sparse-keymap))
  776. (define-key yaml-mode-map (kbd "C-m") 'newline))
  777. (with-eval-after-load 'html-mode
  778. (defvar html-mode-map (make-sparse-keymap))
  779. (define-key html-mode-map (kbd "C-m") 'reindent-then-newline-and-indent))
  780. (with-eval-after-load 'text-mode
  781. (define-key text-mode-map (kbd "C-m") 'newline))
  782. (add-to-list 'Info-default-directory-list
  783. (expand-file-name "~/.info/emacs-ja"))
  784. (with-eval-after-load 'apropos
  785. (defvar apropos-mode-map (make-sparse-keymap))
  786. (define-key apropos-mode-map "n" 'next-line)
  787. (define-key apropos-mode-map "p" 'previous-line))
  788. ;; `isearch' library does not call `provide' so cannot use with-eval-after-load
  789. ;; (define-key isearch-mode-map
  790. ;; (kbd "C-j") 'isearch-other-control-char)
  791. ;; (define-key isearch-mode-map
  792. ;; (kbd "C-k") 'isearch-other-control-char)
  793. ;; (define-key isearch-mode-map
  794. ;; (kbd "C-h") 'isearch-other-control-char)
  795. (define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char)
  796. (define-key isearch-mode-map (kbd "M-r")
  797. 'isearch-query-replace-regexp)
  798. ;; do not cleanup isearch highlight: use `lazy-highlight-cleanup' to remove
  799. (setq lazy-highlight-cleanup nil)
  800. ;; face for isearch highlighing
  801. (set-face-attribute 'lazy-highlight
  802. nil
  803. :foreground `unspecified
  804. :background `unspecified
  805. :underline t
  806. ;; :weight `bold
  807. )
  808. (add-hook 'outline-mode-hook
  809. (lambda ()
  810. (when (string-match "\\.md\\'" buffer-file-name)
  811. (set (make-local-variable 'outline-regexp) "#+ "))))
  812. (add-to-list 'auto-mode-alist (cons "\\.ol\\'" 'outline-mode))
  813. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode))
  814. (when (autoload-eval-lazily 'markdown-mode
  815. '(markdown-mode gfm-mode)
  816. (defvar gfm-mode-map (make-sparse-keymap))
  817. (define-key gfm-mode-map (kbd "C-m") 'electric-indent-just-newline))
  818. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'gfm-mode))
  819. (set-variable 'markdown-command (or (executable-find "markdown")
  820. (executable-find "markdown.pl")
  821. ""))
  822. (add-hook 'markdown-mode-hook
  823. (lambda ()
  824. (outline-minor-mode 1)
  825. (flyspell-mode)
  826. (set (make-local-variable 'comment-start) ";")))
  827. )
  828. ;; c-mode
  829. ;; http://www.emacswiki.org/emacs/IndentingC
  830. ;; http://en.wikipedia.org/wiki/Indent_style
  831. ;; http://d.hatena.ne.jp/emergent/20070203/1170512717
  832. ;; http://seesaawiki.jp/whiteflare503/d/Emacs%20%a5%a4%a5%f3%a5%c7%a5%f3%a5%c8
  833. (with-eval-after-load 'cc-vars
  834. (defvar c-default-style nil)
  835. (add-to-list 'c-default-style
  836. '(c-mode . "k&r"))
  837. (add-to-list 'c-default-style
  838. '(c++-mode . "k&r"))
  839. (add-hook 'c-mode-common-hook
  840. (lambda ()
  841. ;; why c-basic-offset in k&r style defaults to 5 ???
  842. (set-variable 'c-basic-offset 4)
  843. (set-variable 'indent-tabs-mode nil)
  844. ;; (set-face-foreground 'font-lock-keyword-face "blue")
  845. (c-toggle-hungry-state -1)
  846. ;; (and (require 'gtags nil t)
  847. ;; (gtags-mode 1))
  848. )))
  849. (autoload-eval-lazily 'js2-mode nil
  850. ;; currently do not use js2-mode
  851. ;; (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
  852. ;; (add-to-list 'auto-mode-alist '("\\.jsm\\'" . js2-mode))
  853. (defvar js2-mode-map (make-sparse-keymap))
  854. (define-key js2-mode-map (kbd "C-m") (lambda ()
  855. (interactive)
  856. (js2-enter-key)
  857. (indent-for-tab-command)))
  858. ;; (add-hook (kill-local-variable 'before-save-hook)
  859. ;; 'js2-before-save)
  860. ;; (add-hook 'before-save-hook
  861. ;; 'my-indent-buffer
  862. ;; nil
  863. ;; t)
  864. )
  865. (add-to-list 'interpreter-mode-alist
  866. '("node" . js-mode))
  867. (when (autoload-eval-lazily 'flymake-jslint
  868. '(flymake-jslint-load))
  869. (autoload-eval-lazily 'js nil
  870. (add-hook 'js-mode-hook
  871. 'flymake-jslint-load)))
  872. (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
  873. (with-eval-after-load 'uniquify
  874. (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
  875. (setq uniquify-ignore-buffers-re "*[^*]+*")
  876. (setq uniquify-min-dir-content 1))
  877. (with-eval-after-load 'view
  878. (defvar view-mode-map (make-sparse-keymap))
  879. (define-key view-mode-map "j" 'scroll-up-line)
  880. (define-key view-mode-map "k" 'scroll-down-line)
  881. (define-key view-mode-map "v" 'toggle-read-only)
  882. (define-key view-mode-map "q" 'bury-buffer)
  883. ;; (define-key view-mode-map "/" 'nonincremental-re-search-forward)
  884. ;; (define-key view-mode-map "?" 'nonincremental-re-search-backward)
  885. ;; (define-key view-mode-map
  886. ;; "n" 'nonincremental-repeat-search-forward)
  887. ;; (define-key view-mode-map
  888. ;; "N" 'nonincremental-repeat-search-backward)
  889. (define-key view-mode-map "/" 'isearch-forward-regexp)
  890. (define-key view-mode-map "?" 'isearch-backward-regexp)
  891. (define-key view-mode-map "n" 'isearch-repeat-forward)
  892. (define-key view-mode-map "N" 'isearch-repeat-backward)
  893. (define-key view-mode-map (kbd "C-m") 'my-rgrep-symbol-at-point))
  894. (global-set-key "\M-r" 'view-mode)
  895. ;; (setq view-read-only t)
  896. (with-eval-after-load 'term
  897. (defvar term-raw-map (make-sparse-keymap))
  898. (define-key term-raw-map (kbd "C-x")
  899. (lookup-key (current-global-map)
  900. (kbd "C-x"))))
  901. (add-hook 'term-mode-hook
  902. (lambda ()
  903. ;; Stop current line highlighting
  904. (set (make-local-variable (defvar hl-line-range-function))
  905. (lambda () '(0 . 0)))
  906. (set (make-local-variable 'scroll-margin)
  907. 0)))
  908. (add-hook 'Man-mode-hook
  909. (lambda ()
  910. (view-mode 1)
  911. (setq truncate-lines nil)))
  912. (set-variable 'Man-notify-method (if window-system
  913. 'newframe
  914. 'aggressive))
  915. (set-variable 'woman-cache-filename (expand-file-name (concat user-emacs-directory
  916. "woman_cache.el")))
  917. ;; not work because man.el will be loaded when man called
  918. (defalias 'man 'woman)
  919. (add-to-list 'auto-mode-alist
  920. '("tox\\.ini\\'" . conf-unix-mode))
  921. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  922. ;; buffer switching
  923. (defvar bs-configurations)
  924. (when (autoload-eval-lazily 'bs '(bs-show)
  925. (add-to-list 'bs-configurations
  926. '("specials" "^\\*" nil ".*" nil nil))
  927. (add-to-list 'bs-configurations
  928. '("files-and-specials" "^\\*" buffer-file-name ".*" nil nil))
  929. (defvar bs-mode-map)
  930. (defvar bs-current-configuration)
  931. (define-key bs-mode-map (kbd "t")
  932. ;; TODO: fix toggle feature
  933. (lambda ()
  934. (interactive)
  935. (if (string= "specials"
  936. bs-current-configuration)
  937. (bs-set-configuration "files")
  938. (bs-set-configuration "specials"))
  939. (bs-refresh)
  940. (bs-message-without-log "%s"
  941. (bs--current-config-message))))
  942. ;; (setq bs-configurations (list
  943. ;; '("processes" nil get-buffer-process ".*" nil nil)
  944. ;; '("files-and-scratch" "^\\*scratch\\*$" nil nil
  945. ;; bs-visits-non-file bs-sort-buffer-interns-are-last)))
  946. )
  947. (defalias 'list-buffers 'bs-show)
  948. (set-variable 'bs-default-configuration "files-and-specials")
  949. (set-variable 'bs-default-sort-name "by nothing")
  950. (add-hook 'bs-mode-hook
  951. (lambda ()
  952. (set (make-local-variable 'scroll-margin) 0))))
  953. ;;(iswitchb-mode 1)
  954. (icomplete-mode)
  955. (defun iswitchb-buffer-display-other-window ()
  956. "Do iswitchb in other window."
  957. (interactive)
  958. (let ((iswitchb-default-method 'display))
  959. (call-interactively 'iswitchb-buffer)))
  960. ;;;;;;;;;;;;;;;;;;;;;;;;
  961. ;; ilookup
  962. (with-eval-after-load 'ilookup
  963. (set-variable 'ilookup-dict-alist
  964. '(
  965. ("sdcv" . (lambda (word)
  966. (shell-command-to-string
  967. (format "sdcv -n '%s'"
  968. word))))
  969. ("en" . (lambda (word)
  970. (shell-command-to-string
  971. (format "sdcv -n -u dictd_www.dict.org_gcide '%s'"
  972. word))))
  973. ("ja" . (lambda (word)
  974. (shell-command-to-string
  975. (format "sdcv -n -u EJ-GENE95 -u jmdict-en-ja '%s'"
  976. word))))
  977. ("jaj" . (lambda (word)
  978. (shell-command-to-string
  979. (format "sdcv -n -u jmdict-en-ja '%s'"
  980. word))))
  981. ("jag" .
  982. (lambda (word)
  983. (with-temp-buffer
  984. (insert (shell-command-to-string
  985. (format "sdcv -n -u 'Genius English-Japanese' '%s'"
  986. word)))
  987. (html2text)
  988. (buffer-substring (point-min)
  989. (point-max)))))
  990. ("alc" . (lambda (word)
  991. (shell-command-to-string
  992. (format "alc '%s' | head -n 20"
  993. word))))
  994. ("app" . (lambda (word)
  995. (shell-command-to-string
  996. (format "dict_app '%s'"
  997. word))))
  998. ;; letters broken
  999. ("ms" .
  1000. (lambda (word)
  1001. (let ((url (concat
  1002. "http://api.microsofttranslator.com/V2/Ajax.svc/"
  1003. "Translate?appId=%s&text=%s&to=%s"))
  1004. (apikey "3C9778666C5BA4B406FFCBEE64EF478963039C51")
  1005. (target "ja")
  1006. (eword (url-hexify-string word)))
  1007. (with-current-buffer (url-retrieve-synchronously
  1008. (format url
  1009. apikey
  1010. eword
  1011. target))
  1012. (message "")
  1013. (goto-char (point-min))
  1014. (search-forward-regexp "^$"
  1015. nil
  1016. t)
  1017. (url-unhex-string (buffer-substring-no-properties
  1018. (point)
  1019. (point-max)))))))
  1020. ))
  1021. ;; (funcall (cdr (assoc "ms"
  1022. ;; ilookup-alist))
  1023. ;; "dictionary")
  1024. ;; (switch-to-buffer (url-retrieve-synchronously "http://api.microsofttranslator.com/V2/Ajax.svc/Translate?appId=3C9778666C5BA4B406FFCBEE64EF478963039C51&text=dictionary&to=ja"))
  1025. ;; (switch-to-buffer (url-retrieve-synchronously "http://google.com"))
  1026. (set-variable 'ilookup-default "ja")
  1027. (when (locate-library "google-translate")
  1028. (defvar ilookup-dict-alist nil)
  1029. (add-to-list 'ilookup-dict-alist
  1030. '("gt" .
  1031. (lambda (word)
  1032. (save-excursion
  1033. (google-translate-translate "auto"
  1034. "ja"
  1035. word))
  1036. (with-current-buffer "*Google Translate*"
  1037. (buffer-substring-no-properties (point-min)
  1038. (point-max)))))))
  1039. )
  1040. (when (autoload-eval-lazily 'google-translate '(google-translate-translate
  1041. google-translate-at-point))
  1042. (set-variable 'google-translate-default-source-language "auto")
  1043. (set-variable 'google-translate-default-target-language "ja"))
  1044. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1045. ;; vc
  1046. (set-variable 'vc-handled-backends '())
  1047. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1048. ;; recentf-mode
  1049. (set-variable 'recentf-save-file (expand-file-name (concat user-emacs-directory
  1050. "recentf")))
  1051. (set-variable 'recentf-max-menu-items 20)
  1052. (set-variable 'recentf-max-saved-items 30)
  1053. (set-variable 'recentf-show-file-shortcuts-flag nil)
  1054. (when (safe-require-or-eval 'recentf)
  1055. (add-to-list 'recentf-exclude
  1056. (regexp-quote recentf-save-file))
  1057. (add-to-list 'recentf-exclude
  1058. (regexp-quote (expand-file-name user-emacs-directory)))
  1059. (define-key ctl-x-map (kbd "C-r") 'recentf-open-files)
  1060. (remove-hook 'find-file-hook
  1061. 'recentf-track-opened-file)
  1062. (defun my-recentf-load-track-save-list ()
  1063. "Load current recentf list from file, track current visiting file, then save
  1064. the list."
  1065. (recentf-load-list)
  1066. (recentf-track-opened-file)
  1067. (recentf-save-list))
  1068. (add-hook 'find-file-hook
  1069. 'my-recentf-load-track-save-list)
  1070. (add-hook 'kill-emacs-hook
  1071. 'recentf-load-list)
  1072. ;;(run-with-idle-timer 5 t 'recentf-save-list)
  1073. ;; (add-hook 'find-file-hook
  1074. ;; (lambda ()
  1075. ;; (recentf-add-file default-directory)))
  1076. (and (autoload-eval-lazily 'recentf-show)
  1077. (define-key ctl-x-map (kbd "C-r") 'recentf-show)
  1078. (add-hook 'recentf-show-before-listing-hook
  1079. 'recentf-load-list))
  1080. (recentf-mode 1)
  1081. (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line)
  1082. (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line)
  1083. (define-key recentf-dialog-mode-map "p" 'previous-line)
  1084. (define-key recentf-dialog-mode-map "n" 'next-line)
  1085. (add-hook 'recentf-dialog-mode-hook
  1086. (lambda ()
  1087. ;; (recentf-save-list)
  1088. ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f")
  1089. ;; 'my-recentf-cd-and-find-file)
  1090. (cd "~/"))))
  1091. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1092. ;; dired
  1093. (defun my-dired-echo-file-head (arg)
  1094. ""
  1095. (interactive "P")
  1096. (let ((f (dired-get-filename)))
  1097. (message "%s"
  1098. (with-temp-buffer
  1099. (insert-file-contents f)
  1100. (buffer-substring-no-properties
  1101. (point-min)
  1102. (progn (goto-char (point-min))
  1103. (forward-line (1- (if arg
  1104. (prefix-numeric-value arg)
  1105. 7)))
  1106. (point-at-eol)))))))
  1107. (defun my-dired-diff ()
  1108. ""
  1109. (interactive)
  1110. (let ((files (dired-get-marked-files nil nil nil t)))
  1111. (if (eq (car files)
  1112. t)
  1113. (diff (cadr files) (dired-get-filename))
  1114. (message "One file must be marked!"))))
  1115. (defun dired-get-file-info ()
  1116. "dired get file info"
  1117. (interactive)
  1118. (let ((f (shell-quote-argument (dired-get-filename t))))
  1119. (if (file-directory-p f)
  1120. (progn
  1121. (message "Calculating disk usage...")
  1122. (shell-command (concat "du -hsD "
  1123. f)))
  1124. (shell-command (concat "file "
  1125. f)))))
  1126. (defun my-dired-scroll-up ()
  1127. ""
  1128. (interactive)
  1129. (my-dired-previous-line (- (window-height) 1)))
  1130. (defun my-dired-scroll-down ()
  1131. ""
  1132. (interactive)
  1133. (my-dired-next-line (- (window-height) 1)))
  1134. ;; (defun my-dired-forward-line (arg)
  1135. ;; ""
  1136. ;; (interactive "p"))
  1137. (defun my-dired-previous-line (arg)
  1138. ""
  1139. (interactive "p")
  1140. (if (> arg 0)
  1141. (progn
  1142. (if (eq (line-number-at-pos)
  1143. 1)
  1144. (goto-char (point-max))
  1145. (forward-line -1))
  1146. (my-dired-previous-line (if (or (dired-get-filename nil t)
  1147. (dired-get-subdir))
  1148. (- arg 1)
  1149. arg)))
  1150. (dired-move-to-filename)))
  1151. (defun my-dired-next-line (arg)
  1152. ""
  1153. (interactive "p")
  1154. (if (> arg 0)
  1155. (progn
  1156. (if (eq (point)
  1157. (point-max))
  1158. (goto-char (point-min))
  1159. (forward-line 1))
  1160. (my-dired-next-line (if (or (dired-get-filename nil t)
  1161. (dired-get-subdir))
  1162. (- arg 1)
  1163. arg)))
  1164. (dired-move-to-filename)))
  1165. ;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html
  1166. (if (eq window-system 'mac)
  1167. (setq dired-listing-switches "-lhF")
  1168. (setq dired-listing-switches "-lhF --time-style=long-iso")
  1169. )
  1170. (setq dired-listing-switches "-lhF")
  1171. (put 'dired-find-alternate-file 'disabled nil)
  1172. ;; when using dired-find-alternate-file
  1173. ;; reuse current dired buffer for the file to open
  1174. (set-variable 'dired-ls-F-marks-symlinks t)
  1175. (with-eval-after-load 'ls-lisp
  1176. (setq ls-lisp-use-insert-directory-program nil) ; always use ls-lisp
  1177. (setq ls-lisp-dirs-first t)
  1178. (setq ls-lisp-use-localized-time-format t)
  1179. (setq ls-lisp-format-time-list
  1180. '("%Y-%m-%d %H:%M"
  1181. "%Y-%m-%d ")))
  1182. (set-variable 'dired-dwim-target t)
  1183. (set-variable 'dired-isearch-filenames t)
  1184. (set-variable 'dired-hide-details-hide-symlink-targets nil)
  1185. (set-variable 'dired-hide-details-hide-information-lines nil)
  1186. ;; (add-hook 'dired-after-readin-hook
  1187. ;; 'my-replace-nasi-none)
  1188. ;; (add-hook 'after-init-hook
  1189. ;; (lambda ()
  1190. ;; (dired ".")))
  1191. (with-eval-after-load 'dired
  1192. (safe-require-or-eval 'ls-lisp)
  1193. (defvar dired-mode-map (make-sparse-keymap))
  1194. (define-key dired-mode-map "o" 'my-dired-x-open)
  1195. (define-key dired-mode-map "i" 'dired-get-file-info)
  1196. (define-key dired-mode-map "f" 'find-file)
  1197. (define-key dired-mode-map "!" 'shell-command)
  1198. (define-key dired-mode-map "&" 'async-shell-command)
  1199. (define-key dired-mode-map "X" 'dired-do-async-shell-command)
  1200. (define-key dired-mode-map "=" 'my-dired-diff)
  1201. (define-key dired-mode-map "B" 'gtkbm-add-current-dir)
  1202. (define-key dired-mode-map "b" 'gtkbm)
  1203. (define-key dired-mode-map "h" 'my-dired-echo-file-head)
  1204. (define-key dired-mode-map "@" (lambda ()
  1205. (interactive) (my-x-open ".")))
  1206. (define-key dired-mode-map (kbd "TAB") 'other-window)
  1207. ;; (define-key dired-mode-map "P" 'my-dired-do-pack-or-unpack)
  1208. (define-key dired-mode-map "/" 'dired-isearch-filenames)
  1209. (define-key dired-mode-map (kbd "DEL") 'dired-up-directory)
  1210. (define-key dired-mode-map (kbd "C-h") 'dired-up-directory)
  1211. (substitute-key-definition 'dired-next-line
  1212. 'my-dired-next-line
  1213. dired-mode-map)
  1214. (substitute-key-definition 'dired-previous-line
  1215. 'my-dired-previous-line
  1216. dired-mode-map)
  1217. ;; (define-key dired-mode-map (kbd "C-p") 'my-dired-previous-line)
  1218. ;; (define-key dired-mode-map (kbd "p") 'my-dired-previous-line)
  1219. ;; (define-key dired-mode-map (kbd "C-n") 'my-dired-next-line)
  1220. ;; (define-key dired-mode-map (kbd "n") 'my-dired-next-line)
  1221. (define-key dired-mode-map (kbd "<left>") 'my-dired-scroll-up)
  1222. (define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)
  1223. (define-key dired-mode-map (kbd "ESC p") 'my-dired-scroll-up)
  1224. (define-key dired-mode-map (kbd "ESC n") 'my-dired-scroll-down)
  1225. (add-hook 'dired-mode-hook
  1226. (lambda ()
  1227. (when (fboundp 'dired-hide-details-mode)
  1228. (dired-hide-details-mode t)
  1229. (local-set-key "l" 'dired-hide-details-mode))
  1230. (let ((file "._Icon\015"))
  1231. (when nil
  1232. '(file-readable-p file)
  1233. (delete-file file)))))
  1234. (when (autoload-eval-lazily 'pack '(dired-do-pack-or-unpack pack-pack))
  1235. (with-eval-after-load 'dired
  1236. (define-key dired-mode-map "P" 'pack-dired-dwim)))
  1237. (when (autoload-eval-lazily 'dired-list-all-mode)
  1238. (setq dired-listing-switches "-lhF")
  1239. (with-eval-after-load 'dired
  1240. (define-key dired-mode-map "a" 'dired-list-all-mode))))
  1241. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1242. ;; misc funcs
  1243. (defalias 'qcalc 'quick-calc)
  1244. (defun memo (&optional dir)
  1245. "Open memo.txt in DIR."
  1246. (interactive)
  1247. (pop-to-buffer (find-file-noselect (concat (if dir
  1248. (file-name-as-directory dir)
  1249. "")
  1250. "memo.txt"))))
  1251. (defvar my-rgrep-alist
  1252. `(
  1253. ;; the silver searcher
  1254. ("ag"
  1255. (executable-find "ag")
  1256. "ag --nocolor --nogroup --nopager --filename ")
  1257. ;; ack
  1258. ("ack"
  1259. (executable-find "ack")
  1260. "ack --nocolor --nogroup --nopager --with-filename ")
  1261. ;; gnu global
  1262. ("global"
  1263. (and (require 'gtags nil t)
  1264. (executable-find "global")
  1265. (gtags-get-rootpath))
  1266. "global --result grep ")
  1267. ;; git grep
  1268. ("gitgrep"
  1269. (eq 0
  1270. (shell-command "git rev-parse --git-dir"))
  1271. "git --no-pager -c color.grep=false grep -nH -e ")
  1272. ;; grep
  1273. ("grep"
  1274. t
  1275. ,(concat "find . "
  1276. "-path '*/.git' -prune -o "
  1277. "-path '*/.svn' -prune -o "
  1278. "-type f -print0 | "
  1279. "xargs -0 grep -nH -e "))
  1280. )
  1281. "Alist of rgrep command.
  1282. Each element is in the form like (NAME SEXP COMMAND), where SEXP returns the
  1283. condition to choose COMMAND when evaluated.")
  1284. (defvar my-rgrep-default nil
  1285. "Default command name for my-rgrep.")
  1286. (defun my-rgrep-grep-command (&optional name alist)
  1287. "Return recursive grep command for current directory or nil.
  1288. If NAME is given, use that without testing.
  1289. Commands are searched from ALIST."
  1290. (if alist
  1291. (if name
  1292. ;; if name is given search that from alist and return the command
  1293. (nth 2 (assoc name
  1294. alist))
  1295. ;; if name is not given try test in 1th elem
  1296. (let ((car (car alist))
  1297. (cdr (cdr alist)))
  1298. (if (eval (nth 1 car))
  1299. ;; if the condition is true return the command
  1300. (nth 2 car)
  1301. ;; try next one
  1302. (and cdr
  1303. (my-rgrep-grep-command name cdr)))))
  1304. ;; if alist is not given set default value
  1305. (my-rgrep-grep-command name my-rgrep-alist)))
  1306. (defun my-rgrep (command-args)
  1307. "My recursive grep. Run COMMAND-ARGS."
  1308. (interactive (let ((cmd (my-rgrep-grep-command my-rgrep-default
  1309. nil)))
  1310. (if cmd
  1311. (list (read-shell-command "grep command: "
  1312. cmd
  1313. 'grep-find-history))
  1314. (error "My-Rgrep: Command for rgrep not found")
  1315. )))
  1316. (compilation-start command-args
  1317. 'grep-mode))
  1318. ;; (defun my-rgrep-symbol-at-point (command-args)
  1319. ;; "My recursive grep. Run COMMAND-ARGS."
  1320. ;; (interactive (list (read-shell-command "grep command: "
  1321. ;; (concat (my-rgrep-grep-command)
  1322. ;; " "
  1323. ;; (thing-at-point 'symbol))
  1324. ;; 'grep-find-history)))
  1325. ;; (compilation-start command-args
  1326. ;; 'grep-mode))
  1327. (defmacro define-my-rgrep (name)
  1328. "Define rgrep for NAME."
  1329. `(defun ,(intern (concat "my-rgrep-"
  1330. name)) ()
  1331. ,(format "My recursive grep by %s."
  1332. name)
  1333. (interactive)
  1334. (let ((my-rgrep-default ,name))
  1335. (if (called-interactively-p 'any)
  1336. (call-interactively 'my-rgrep)
  1337. (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
  1338. )
  1339. (define-my-rgrep "ack")
  1340. (define-my-rgrep "ag")
  1341. (define-my-rgrep "gitgrep")
  1342. (define-my-rgrep "grep")
  1343. (define-my-rgrep "global")
  1344. (define-key ctl-x-map "s" 'my-rgrep)
  1345. ;; (defun make ()
  1346. ;; "Run \"make -k\" in current directory."
  1347. ;; (interactive)
  1348. ;; (compile "make -k"))
  1349. (defalias 'make 'compile)
  1350. (define-key ctl-x-map "c" 'compile)
  1351. ;;;;;;;;;;;;;;;;;;;;;;;
  1352. ;; adoc-simple-mode
  1353. (when (safe-require-or-eval 'adoc-mode)
  1354. (defvar adoc-simple-font-lock-keywords
  1355. nil)
  1356. (define-derived-mode adoc-simple-mode adoc-mode
  1357. "Adoc-Simple"
  1358. "Major mode for editing AsciiDoc text files.
  1359. This mode is a simplified version of `adoc-mode'."
  1360. '(set (make-local-variable 'font-lock-defaults)
  1361. '(adoc-simple-font-lock-keywords
  1362. nil nil nil nil
  1363. (font-lock-multiline . t)
  1364. (font-lock-mark-block-function . adoc-font-lock-mark-block-function))))
  1365. (add-to-list 'auto-mode-alist
  1366. '("\\.adoc\\'" . adoc-simple-mode)))
  1367. (when (and (safe-require-or-eval 'google-translate)
  1368. (safe-require-or-eval 'google-translate-smooth-ui))
  1369. (add-to-list 'google-translate-translation-directions-alist
  1370. '("en" . "ja"))
  1371. (defun translate-echo-at-point ()
  1372. "Translate popup at point."
  1373. (interactive)
  1374. (let ((google-translate-output-destination 'echo-area))
  1375. (google-translate-translate "auto" "ja" (current-word t t))))
  1376. (define-minor-mode auto-translate-mode
  1377. "Translate word at point automatically."
  1378. :global nil
  1379. :lighter "ATranslate"))
  1380. ;;; emacs.el ends here