您最多选择25个主题 主题必须以字母或数字开头,可以包含连字符 (-),并且长度不得超过35个字符
 
 
 
 
 
 

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