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.
 
 
 
 
 
 

2234 lines
72 KiB

  1. ;;; emacs.el --- 10sr emacs initialization
  2. ;; Time-stamp: <2018-10-09 15:15:44 JST 10sr>
  3. ;;; Code:
  4. ;; SETUP_LOAD: (let ((file "DOTFILES_DIR/emacs.el"))
  5. ;; SETUP_LOAD: (and (file-readable-p file)
  6. ;; SETUP_LOAD: (byte-recompile-file file nil 0 t)))
  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. go-mode
  77. ;; It seems malabar has been merged into jdee and this package
  78. ;; already removed
  79. ;; malabar-mode
  80. ;; ack
  81. color-moccur
  82. ggtags
  83. flycheck
  84. auto-highlight-symbol
  85. hl-todo
  86. ;; Currently not available
  87. ;; pp-c-l
  88. xclip
  89. foreign-regexp
  90. multi-term
  91. term-run
  92. editorconfig
  93. git-ps1-mode
  94. restart-emacs
  95. fill-column-indicator
  96. pkgbuild-mode
  97. minibuffer-line
  98. which-key
  99. ;; I think this works in place of my autosave lib
  100. super-save
  101. pipenv
  102. imenu-list
  103. page-break-lines
  104. sync-recentf
  105. aggressive-indent
  106. fancy-narrow
  107. dired-filter
  108. wgrep
  109. magit
  110. scala-mode
  111. ;;ensime
  112. editorconfig
  113. editorconfig-custom-majormode
  114. git-command
  115. prompt-text
  116. ;; 10sr repository
  117. ;; 10sr-extras
  118. terminal-title
  119. recentf-show
  120. dired-list-all-mode
  121. pack
  122. set-modeline-color
  123. read-only-only-mode
  124. smart-revert
  125. autosave
  126. ;;window-organizer
  127. ilookup
  128. pasteboard
  129. end-mark
  130. sl
  131. gosh-mode
  132. ))
  133. (when (safe-require-or-eval 'package)
  134. (setq package-archives
  135. `(,@package-archives
  136. ("melpa" . "https://melpa.org/packages/")
  137. ;; Somehow fails to download via https
  138. ("10sr-el" . "http://10sr.github.io/emacs-lisp/elpa/")))
  139. (package-initialize)
  140. (defun my-auto-install-package ()
  141. "Install packages semi-automatically."
  142. (interactive)
  143. (package-refresh-contents)
  144. (mapc (lambda (pkg)
  145. (or (package-installed-p pkg)
  146. (package-install pkg)))
  147. 10sr-package-list))
  148. )
  149. ;; (lazy-load-eval 'sudoku)
  150. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  151. ;; my-idle-hook
  152. (defvar my-idle-hook nil
  153. "Hook run when idle for several secs.")
  154. (defvar my-idle-hook-sec 5
  155. "Second to run `my-idle-hook'.")
  156. (run-with-idle-timer my-idle-hook-sec
  157. t
  158. (lambda ()
  159. (run-hooks 'my-idle-hook)))
  160. ;; (add-hook 'my-idle-hook
  161. ;; (lambda ()
  162. ;; (message "idle hook message")))
  163. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  164. ;; start and quit
  165. (setq inhibit-startup-message t)
  166. (setq confirm-kill-emacs 'y-or-n-p)
  167. (setq gc-cons-threshold (* 1024 1024 16))
  168. (setq garbage-collection-messages t)
  169. (when window-system
  170. (add-to-list 'default-frame-alist '(cursor-type . box))
  171. (add-to-list 'default-frame-alist '(background-color . "white"))
  172. (add-to-list 'default-frame-alist '(foreground-color . "gray10"))
  173. ;; (add-to-list 'default-frame-alist '(alpha . (80 100 100 100)))
  174. ;; does not work?
  175. )
  176. ;; (add-to-list 'default-frame-alist '(cursor-type . box))
  177. (if window-system (menu-bar-mode 1) (menu-bar-mode 0))
  178. (and (fboundp 'tool-bar-mode)
  179. (tool-bar-mode 0))
  180. (and (fboundp 'set-scroll-bar-mode)
  181. (set-scroll-bar-mode nil))
  182. (call-after-init
  183. (lambda ()
  184. (message "%s %s" invocation-name emacs-version)
  185. (message "Invocation directory: %s" default-directory)
  186. (message "%s was taken to initialize emacs." (emacs-init-time))
  187. (view-echo-area-messages)
  188. ;; (view-emacs-news)
  189. ))
  190. (cd ".") ; when using windows use / instead of \ in `default-directory'
  191. ;; locale
  192. (set-language-environment "Japanese")
  193. (set-default-coding-systems 'utf-8-unix)
  194. (prefer-coding-system 'utf-8-unix)
  195. (setq system-time-locale "C")
  196. ;; my prefix map
  197. (defvar my-prefix-map nil
  198. "My prefix map.")
  199. (define-prefix-command 'my-prefix-map)
  200. ;; (define-key ctl-x-map (kbd "C-x") 'my-prefix-map)
  201. ;; (define-key my-prefix-map (kbd "C-q") 'quoted-insert)
  202. ;; (define-key my-prefix-map (kbd "C-z") 'suspend-frame)
  203. ;; (comint-show-maximum-output)
  204. ;; kill scratch
  205. (call-after-init (lambda ()
  206. (let ((buf (get-buffer "*scratch*")))
  207. (when buf
  208. (kill-buffer buf)))))
  209. ;; modifier keys
  210. ;; (setq mac-option-modifier 'control)
  211. ;; display
  212. (setq visible-bell t)
  213. (setq ring-bell-function 'ignore)
  214. (mouse-avoidance-mode 'banish)
  215. (setq echo-keystrokes 0.1)
  216. (defun reload-init-file ()
  217. "Reload Emacs init file."
  218. (interactive)
  219. (when (and user-init-file
  220. (file-readable-p user-init-file))
  221. (load-file user-init-file)))
  222. (safe-require-or-eval 'session)
  223. ;; server
  224. (set-variable 'server-name (concat "server"
  225. (number-to-string (emacs-pid))))
  226. ;; In Cygwin Environment `server-runnning-p' stops when server-use-tcp is nil
  227. ;; In Darwin environment, init fails with message like 'Service name too long'
  228. ;; when server-use-tcp is nil
  229. (when (or (eq system-type
  230. 'cygwin)
  231. (eq system-type
  232. 'darwin))
  233. (set-variable 'server-use-tcp t))
  234. ;; MSYS2 fix
  235. (when (eq system-type
  236. 'windows-nt)
  237. (setq shell-file-name
  238. (executable-find "bash"))
  239. '(setq function-key-map
  240. `(,@function-key-map ([pause] . [?\C-c])
  241. ))
  242. (define-key key-translation-map
  243. (kbd "<pause>")
  244. (kbd "C-c"))
  245. '(keyboard-translate [pause]
  246. (kbd "C-c")p)
  247. ;; TODO: move to other place later
  248. (when (not window-system)
  249. (setq interprogram-paste-function nil)
  250. (setq interprogram-cut-function nil)))
  251. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  252. ;; global keys
  253. (global-set-key (kbd "<up>") 'scroll-down-line)
  254. (global-set-key (kbd "<down>") 'scroll-up-line)
  255. (global-set-key (kbd "<left>") 'scroll-down)
  256. (global-set-key (kbd "<right>") 'scroll-up)
  257. ;; (define-key my-prefix-map (kbd "C-h") help-map)
  258. (global-set-key (kbd "C-\\") help-map)
  259. (define-key ctl-x-map (kbd "DEL") help-map)
  260. (define-key ctl-x-map (kbd "C-h") help-map)
  261. (define-key help-map "a" 'apropos)
  262. ;; disable annoying keys
  263. (global-set-key [prior] 'ignore)
  264. (global-set-key (kbd "<next>") 'ignore)
  265. (global-set-key [menu] 'ignore)
  266. (global-set-key [down-mouse-1] 'ignore)
  267. (global-set-key [down-mouse-2] 'ignore)
  268. (global-set-key [down-mouse-3] 'ignore)
  269. (global-set-key [mouse-1] 'ignore)
  270. (global-set-key [mouse-2] 'ignore)
  271. (global-set-key [mouse-3] 'ignore)
  272. (global-set-key (kbd "<eisu-toggle>") 'ignore)
  273. (global-set-key (kbd "C-<eisu-toggle>") 'ignore)
  274. (when (safe-require-or-eval 'which-key)
  275. (which-key-mode))
  276. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  277. ;; editor
  278. (setq kill-whole-line t)
  279. (setq scroll-conservatively 35
  280. scroll-margin 2)
  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. (setq create-lockfiles nil)
  297. (add-hook 'before-save-hook
  298. 'time-stamp)
  299. (set-variable 'time-stamp-format
  300. "%:y-%02m-%02d %02H:%02M:%02S %Z 10sr")
  301. ;; key bindings
  302. ;; moving around
  303. ;;(keyboard-translate ?\M-j ?\C-j)
  304. ;; (global-set-key (kbd "M-p") 'backward-paragraph)
  305. (define-key esc-map "p" 'backward-paragraph)
  306. ;; (global-set-key (kbd "M-n") 'forward-paragraph)
  307. (define-key esc-map "n" 'forward-paragraph)
  308. (global-set-key (kbd "C-<up>") 'scroll-down-line)
  309. (global-set-key (kbd "C-<down>") 'scroll-up-line)
  310. (global-set-key (kbd "C-<left>") 'scroll-down)
  311. (global-set-key (kbd "C-<right>") 'scroll-up)
  312. (global-set-key (kbd "<select>") 'ignore) ; 'previous-line-mark)
  313. (define-key ctl-x-map (kbd "ESC x") 'execute-extended-command)
  314. (define-key ctl-x-map (kbd "ESC :") 'eval-expression)
  315. ;; C-h and DEL
  316. (global-set-key (kbd "C-h") (kbd "DEL"))
  317. ;;(global-set-key (kbd "C-m") 'reindent-then-newline-and-indent)
  318. (global-set-key (kbd "C-m") 'newline-and-indent)
  319. ;; (global-set-key (kbd "C-o") (kbd "C-e C-m"))
  320. ;; (global-set-key "\C-z" 'undo) ; undo is M-u
  321. (define-key esc-map "u" 'undo)
  322. (define-key esc-map "i" (kbd "ESC TAB"))
  323. ;; (global-set-key (kbd "C-r") 'query-replace-regexp)
  324. (global-set-key (kbd "C-s") 'isearch-forward-regexp)
  325. (global-set-key (kbd "C-r") 'isearch-backward-regexp)
  326. (define-key ctl-x-map (kbd "C-o") 'occur)
  327. (require 'page-ext nil t)
  328. (when (safe-require-or-eval 'page-break-lines)
  329. (global-page-break-lines-mode 1))
  330. ;; (when (safe-require-or-eval 'fancy-narrow)
  331. ;; (fancy-narrow-mode 1))
  332. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  333. ;; title and mode-line
  334. (when (safe-require-or-eval 'terminal-title)
  335. ;; if TERM is not screen use default value
  336. (if (getenv "TMUX")
  337. ;; if use tmux locally just basename of current dir
  338. (set-variable 'terminal-title-format
  339. '((file-name-nondirectory (directory-file-name
  340. default-directory))))
  341. (if (and (let ((tty-type (frame-parameter nil
  342. 'tty-type)))
  343. (and tty-type
  344. (equal (car (split-string tty-type
  345. "-"))
  346. "screen")))
  347. (not (getenv "SSH_CONNECTION")))
  348. (set-variable 'terminal-title-format
  349. '((file-name-nondirectory (directory-file-name
  350. default-directory))))
  351. ;; seems that TMUX is used locally and ssh to remote host
  352. (set-variable 'terminal-title-format
  353. `("em:"
  354. ,user-login-name
  355. "@"
  356. ,(car (split-string (system-name)
  357. "\\."))
  358. ":"
  359. default-directory))
  360. )
  361. )
  362. (terminal-title-mode))
  363. (setq eol-mnemonic-dos "\\r\\n")
  364. (setq eol-mnemonic-mac "\\r")
  365. (setq eol-mnemonic-unix "")
  366. (which-function-mode 0)
  367. (line-number-mode 0)
  368. (column-number-mode 0)
  369. (size-indication-mode 0)
  370. (setq mode-line-position
  371. '(:eval (format "L%%l/%d%s:C%%c"
  372. (count-lines (point-max)
  373. (point-min))
  374. (if (buffer-narrowed-p)
  375. "[N]"
  376. "")
  377. )))
  378. ;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title
  379. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  380. ;; minibuffer
  381. (setq insert-default-directory t)
  382. (setq completion-ignore-case t
  383. read-file-name-completion-ignore-case t
  384. read-buffer-completion-ignore-case t)
  385. (setq resize-mini-windows t)
  386. (temp-buffer-resize-mode 1)
  387. (savehist-mode 1)
  388. (defvar display-time-format "%Y/%m/%d %a %H:%M")
  389. (set-variable 'help-at-pt-display-when-idle t)
  390. (fset 'yes-or-no-p 'y-or-n-p)
  391. ;; complete symbol when `eval'
  392. (define-key read-expression-map (kbd "TAB") 'completion-at-point)
  393. (define-key minibuffer-local-map (kbd "C-u")
  394. (lambda () (interactive) (delete-region (point-at-bol) (point))))
  395. ;; I dont know these bindings are good
  396. (define-key minibuffer-local-map (kbd "C-p") (kbd "ESC p"))
  397. (define-key minibuffer-local-map (kbd "C-n") (kbd "ESC n"))
  398. (when (safe-require-or-eval 'minibuffer-line)
  399. (set-face-underline 'minibuffer-line nil)
  400. (set-variable 'minibuffer-line-refresh-interval
  401. 25)
  402. ;; Set idle timer
  403. (defvar my-minibuffer-line--idle-timer nil)
  404. (defvar minibuffer-line-mode)
  405. (add-hook 'minibuffer-line-mode-hook
  406. (lambda ()
  407. (when my-minibuffer-line--idle-timer
  408. (cancel-timer my-minibuffer-line--idle-timer)
  409. (setq my-minibuffer-line--idle-timer nil))
  410. (when minibuffer-line-mode
  411. (setq my-minibuffer-line--idle-timer
  412. (run-with-idle-timer 0.5
  413. t
  414. 'minibuffer-line--update)))))
  415. (set-variable 'minibuffer-line-format
  416. `(,(concat user-login-name
  417. "@"
  418. (car (split-string (system-name)
  419. "\\."))
  420. ":")
  421. (:eval (abbreviate-file-name (or buffer-file-name
  422. default-directory)))
  423. (:eval (and (fboundp 'git-ps1-mode-get-current)
  424. (git-ps1-mode-get-current " [GIT:%s]")))
  425. " "
  426. (:eval (format-time-string display-time-format))))
  427. (minibuffer-line-mode 1)
  428. )
  429. (when (safe-require-or-eval 'prompt-text)
  430. (set-variable 'prompt-text-format
  431. `(,(concat ""
  432. user-login-name
  433. "@"
  434. (car (split-string (system-name)
  435. "\\."))
  436. ":")
  437. (:eval (abbreviate-file-name (or buffer-file-name
  438. default-directory)))
  439. (:eval (and (fboundp 'git-ps1-mode-get-current)
  440. (git-ps1-mode-get-current " [GIT:%s]")))
  441. " "
  442. (:eval (format-time-string display-time-format))
  443. "\n"
  444. (:eval (symbol-name this-command))
  445. ": "))
  446. (prompt-text-mode 1))
  447. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  448. ;; letters, font-lock mode and fonts
  449. (setq text-quoting-style 'grave)
  450. ;; (set-face-background 'vertical-border (face-foreground 'mode-line))
  451. ;; (set-window-margins (selected-window) 1 1)
  452. (unless window-system
  453. (setq frame-background-mode 'dark))
  454. (and (or (eq system-type 'Darwin)
  455. (eq system-type 'darwin))
  456. (fboundp 'mac-set-input-method-parameter)
  457. (mac-set-input-method-parameter 'japanese 'cursor-color "red")
  458. (mac-set-input-method-parameter 'roman 'cursor-color "black"))
  459. (when (and (boundp 'input-method-activate-hook) ; i dont know this is correct
  460. (boundp 'input-method-inactivate-hook))
  461. (add-hook 'input-method-activate-hook
  462. (lambda () (set-cursor-color "red")))
  463. (add-hook 'input-method-inactivate-hook
  464. (lambda () (set-cursor-color "black"))))
  465. (when (safe-require-or-eval 'paren)
  466. (show-paren-mode 1)
  467. (setq show-paren-delay 0.5
  468. show-paren-style 'parenthesis) ; mixed is hard to read
  469. ;; (set-face-background 'show-paren-match
  470. ;; "black")
  471. ;; ;; (face-foreground 'default))
  472. ;; (set-face-foreground 'show-paren-match
  473. ;; "white")
  474. ;; (set-face-inverse-video-p 'show-paren-match
  475. ;; t)
  476. )
  477. (transient-mark-mode 1)
  478. (global-font-lock-mode 1)
  479. (setq font-lock-global-modes
  480. '(not
  481. help-mode
  482. eshell-mode
  483. ;;term-mode
  484. Man-mode
  485. magit-diff-mode
  486. magit-revision-mode))
  487. ;; (standard-display-ascii ?\n "$\n")
  488. ;; (defvar my-eol-face
  489. ;; '(("\n" . (0 font-lock-comment-face t nil)))
  490. ;; )
  491. ;; (defvar my-tab-face
  492. ;; '(("\t" . '(0 highlight t nil))))
  493. (defvar my-jspace-face
  494. '(("\u3000" . '(0 highlight t nil))))
  495. (add-hook 'font-lock-mode-hook
  496. (lambda ()
  497. ;; (font-lock-add-keywords nil my-eol-face)
  498. (font-lock-add-keywords nil my-jspace-face)
  499. ))
  500. (when (safe-require-or-eval 'whitespace)
  501. (add-to-list 'whitespace-display-mappings
  502. ;; We need t since last one takes precedence
  503. `(tab-mark ?\t ,(vconcat "^I\t")) t)
  504. ;; (add-to-list 'whitespace-display-mappings
  505. ;; `(newline-mark ?\n ,(vconcat "$\n")))
  506. (setq whitespace-style '(face
  507. trailing ; trailing blanks
  508. ;; tabs
  509. ;; spaces
  510. ;; lines
  511. lines-tail ; lines over 80
  512. newline ; newlines
  513. empty ; empty lines at beg or end of buffer
  514. ;; big-indent
  515. ;; space-mark
  516. tab-mark
  517. newline-mark ; use display table for newline
  518. ))
  519. ;; (setq whitespace-newline 'font-lock-comment-face)
  520. ;; (setq whitespace-style (delq 'newline-mark whitespace-style))
  521. (defun my-whitesspace-mode-reload ()
  522. "Reload whitespace-mode config."
  523. (interactive)
  524. (when whitespace-mode
  525. (whitespace-mode 0)
  526. (whitespace-mode 1)))
  527. (set-variable 'whitespace-line-column nil)
  528. (global-whitespace-mode t)
  529. (add-hook 'dired-mode-hook
  530. (lambda ()
  531. (set (make-local-variable 'whitespace-style) nil)))
  532. (if (eq (display-color-cells)
  533. 256)
  534. (set-face-foreground 'whitespace-newline "color-109")
  535. ;; (progn
  536. ;; (set-face-bold-p 'whitespace-newline
  537. ;; t))
  538. ))
  539. (and nil
  540. '(safe-require-or-eval 'fill-column-indicator)
  541. (setq fill-column-indicator))
  542. ;; highlight current line
  543. ;; http://wiki.riywo.com/index.php?Meadow
  544. (face-spec-set 'hl-line
  545. '((((min-colors 256)
  546. (background dark))
  547. (:background "color-234"))
  548. (((min-colors 256)
  549. (background light))
  550. (:background "color-234"))
  551. (t
  552. (:underline "black"))))
  553. (set-variable 'hl-line-global-modes
  554. '(not
  555. term-mode))
  556. (global-hl-line-mode 1) ;; (hl-line-mode 1)
  557. (set-face-foreground 'font-lock-regexp-grouping-backslash "#666")
  558. (set-face-foreground 'font-lock-regexp-grouping-construct "#f60")
  559. ;;(safe-require-or-eval 'set-modeline-color)
  560. ;; (let ((fg (face-foreground 'default))
  561. ;; (bg (face-background 'default)))
  562. ;; (set-face-background 'mode-line-inactive
  563. ;; (if (face-inverse-video-p 'mode-line) fg bg))
  564. ;; (set-face-foreground 'mode-line-inactive
  565. ;; (if (face-inverse-video-p 'mode-line) bg fg)))
  566. ;; (set-face-underline 'mode-line-inactive
  567. ;; t)
  568. ;; (set-face-underline 'vertical-border
  569. ;; nil)
  570. (when (safe-require-or-eval 'end-mark)
  571. (global-end-mark-mode))
  572. ;; M-x highlight-* to highlight things
  573. (global-hi-lock-mode 1)
  574. (unless (fboundp 'highlight-region-text)
  575. (defun highlight-region-text (beg end)
  576. "Highlight text between BEG and END."
  577. (interactive "r")
  578. (highlight-regexp (regexp-quote (buffer-substring-no-properties beg
  579. end)))
  580. (setq deactivate-mark t)))
  581. (when (safe-require-or-eval 'auto-highlight-symbol)
  582. (set-variable 'ahs-idle-interval 0.6)
  583. (global-auto-highlight-symbol-mode 1))
  584. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  585. ;; file handling
  586. (when (safe-require-or-eval 'editorconfig)
  587. ;; (set-variable 'editorconfig-get-properties-function
  588. ;; 'editorconfig-core-get-properties-hash)
  589. (editorconfig-mode 1)
  590. (set-variable 'editorconfig-mode-lighter " EC")
  591. (with-eval-after-load 'org-src
  592. ;; [*.org\[\*Org Src*\[ c \]*\]]
  593. (add-hook 'org-src-mode-hook
  594. 'editorconfig-mode-apply t)))
  595. (when (fboundp 'editorconfig-custom-majormode)
  596. (add-hook 'editorconfig-custom-hooks
  597. 'editorconfig-custom-majormode))
  598. ;; Add readonly=true to set read-only-mode
  599. (add-hook 'editorconfig-custom-hooks
  600. (lambda (props)
  601. (let ((r (gethash 'readonly props)))
  602. (when (and (string= r "true")
  603. (not buffer-read-only))
  604. (read-only-mode 1)))))
  605. ;; (when (fboundp 'editorconfig-charset-extras)
  606. ;; (add-hook 'editorconfig-custom-hooks
  607. ;; 'editorconfig-charset-extras))
  608. (setq revert-without-query '(".+"))
  609. ;; save cursor position
  610. (when (safe-require-or-eval 'saveplace)
  611. (setq-default save-place t)
  612. (setq save-place-file (concat user-emacs-directory
  613. "places")))
  614. ;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260
  615. (setq make-backup-files t)
  616. (setq vc-make-backup-files t)
  617. ;; (make-directory (expand-file-name "~/.emacsbackup"))
  618. (setq backup-directory-alist
  619. (cons (cons "." (expand-file-name (concat user-emacs-directory
  620. "backup")))
  621. backup-directory-alist))
  622. (setq version-control 't)
  623. (setq delete-old-versions t)
  624. (setq kept-new-versions 20)
  625. (setq auto-save-list-file-prefix (expand-file-name (concat user-emacs-directory
  626. "auto-save/")))
  627. (setq delete-auto-save-files t)
  628. (add-to-list 'completion-ignored-extensions ".bak")
  629. (set-variable 'completion-cycle-threshold nil) ;; NEVER use
  630. (setq delete-by-moving-to-trash t)
  631. ;; trash-directory "~/.emacs.d/trash")
  632. (add-hook 'after-save-hook
  633. 'executable-make-buffer-file-executable-if-script-p)
  634. (set-variable 'bookmark-default-file
  635. (expand-file-name (concat user-emacs-directory
  636. "bmk")))
  637. (set-variable 'bookmark-save-flag
  638. 1)
  639. (with-eval-after-load 'recentf
  640. (defvar recentf-exclude)
  641. (defvar bookmark-default-file)
  642. (add-to-list 'recentf-exclude
  643. (regexp-quote bookmark-default-file)))
  644. (when (safe-require-or-eval 'smart-revert)
  645. (smart-revert-on))
  646. ;; autosave
  647. (when (safe-require-or-eval 'autosave)
  648. (autosave-set 8))
  649. ;; bookmarks
  650. (define-key ctl-x-map "m" 'list-bookmarks)
  651. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  652. ;; buffer killing
  653. ;; (defun my-delete-window-killing-buffer () nil)
  654. (defun my-query-kill-current-buffer ()
  655. "Interactively kill current buffer."
  656. (interactive)
  657. (if (y-or-n-p (concat "kill current buffer? :"))
  658. (kill-buffer (current-buffer))))
  659. ;;(global-set-key "\C-xk" 'my-query-kill-current-buffer)
  660. (substitute-key-definition 'kill-buffer
  661. 'my-query-kill-current-buffer
  662. global-map)
  663. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  664. ;; share clipboard with x
  665. ;; this page describes this in details, but only these sexps seem to be needed
  666. ;; http://garin.jp/doc/Linux/xwindow_clipboard
  667. (and nil
  668. (not window-system)
  669. (not (eq window-system 'mac))
  670. (getenv "DISPLAY")
  671. (not (equal (getenv "DISPLAY") ""))
  672. (executable-find "xclip")
  673. ;; (< emacs-major-version 24)
  674. '(safe-require-or-eval 'xclip)
  675. nil
  676. (turn-on-xclip))
  677. (and (eq system-type 'darwin)
  678. (safe-require-or-eval 'pasteboard)
  679. (turn-on-pasteboard))
  680. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  681. ;; some modes and hooks
  682. ;; Include some extra modes
  683. (require 'generic-x)
  684. (when (safe-require-or-eval 'wgrep)
  685. (defvar grep-mode-map)
  686. (define-key grep-mode-map
  687. "w"
  688. 'wgrep-change-to-wgrep-mode))
  689. (with-eval-after-load 'remember
  690. (defvar remember-mode-map (make-sparse-keymap))
  691. (define-key remember-mode-map (kbd "C-x C-s") 'ignore))
  692. (with-eval-after-load 'magit-files
  693. ;; `global-magit-file-mode' is enabled by default and this mode overwrites
  694. ;; existing keybindings.
  695. ;; Apparently it is a HARMFUL behavior and should be fixed, but for now
  696. ;; disable this mode here.
  697. (global-magit-file-mode -1))
  698. (when (boundp 'git-rebase-filename-regexp)
  699. (add-to-list 'auto-mode-alist
  700. `(,git-rebase-filename-regexp . text-mode)))
  701. (when (safe-require-or-eval 'aggressive-indent)
  702. (defvar aggressive-indent-excluded-modes)
  703. (add-to-list 'aggressive-indent-excluded-modes
  704. 'diff-mode)
  705. (global-aggressive-indent-mode 1))
  706. (when (autoload-eval-lazily 'ggtags)
  707. (add-hook 'c-mode-common-hook
  708. (lambda ()
  709. (when (derived-mode-p 'c-mode 'c++-mode 'java-mode)
  710. (ggtags-mode 1))))
  711. (add-hook 'python-mode-hook
  712. (lambda ()
  713. (ggtags-mode 1))))
  714. (when (autoload-eval-lazily 'imenu-list)
  715. ;; (set-variable 'imenu-list-auto-resize t)
  716. (set-variable 'imenu-list-focus-after-activation t)
  717. (define-key ctl-x-map "l" 'imenu-list-smart-toggle))
  718. (add-hook 'emacs-lisp-mode-hook
  719. (lambda ()
  720. (setq imenu-generic-expression
  721. `(("Sections" ";;;\+\n;; \\(.*\\)\n" 1)
  722. ,@imenu-generic-expression))))
  723. (with-eval-after-load 'compile
  724. (defvar compilation-filter-start)
  725. (defvar compilation-error-regexp-alist)
  726. (require 'ansi-color)
  727. (add-hook 'compilation-filter-hook
  728. (lambda ()
  729. (let ((inhibit-read-only t))
  730. (ansi-color-apply-on-region compilation-filter-start
  731. (point)))))
  732. (add-to-list 'compilation-error-regexp-alist
  733. ;; ansible-lint
  734. '("^\\([^ \n]+\\):\\([0-9]+\\)$" 1 2)))
  735. ;; Workaround to avoid ensime error
  736. (defvar ensime-mode-key-prefix nil)
  737. ;; http://qiita.com/sune2/items/b73037f9e85962f5afb7
  738. (when (safe-require-or-eval 'company)
  739. (global-company-mode)
  740. (set-variable 'company-idle-delay 0.5)
  741. (set-variable 'company-minimum-prefix-length 2)
  742. (set-variable 'company-selection-wrap-around t))
  743. ;; https://github.com/lunaryorn/flycheck
  744. (when (safe-require-or-eval 'flycheck)
  745. (call-after-init 'global-flycheck-mode))
  746. (when (autoload-eval-lazily 'ilookup)
  747. (define-key ctl-x-map "d" 'ilookup-open-word))
  748. (set-variable 'ac-ignore-case nil)
  749. (when (autoload-eval-lazily 'term-run '(term-run-shell-command term-run))
  750. (define-key ctl-x-map "t" 'term-run-shell-command))
  751. (add-to-list 'safe-local-variable-values
  752. '(encoding utf-8))
  753. (setq enable-local-variables :safe)
  754. ;; Detect file type from shebang and set major-mode.
  755. (add-to-list 'interpreter-mode-alist
  756. '("python3" . python-mode))
  757. (add-to-list 'interpreter-mode-alist
  758. '("python2" . python-mode))
  759. (with-eval-after-load 'python
  760. (defvar python-mode-map (make-sparse-keymap))
  761. (define-key python-mode-map (kbd "C-m") 'newline-and-indent))
  762. (when (autoload-eval-lazily 'pipenv)
  763. (add-hook 'python-mode-hook
  764. (lambda ()
  765. (pipenv-mode 1)
  766. (pipenv-projectile-after-switch-default)))
  767. )
  768. (set-variable 'flycheck-python-pycompile-executable "python3")
  769. ;; http://fukuyama.co/foreign-regexp
  770. '(and (safe-require-or-eval 'foreign-regexp)
  771. (progn
  772. (setq foreign-regexp/regexp-type 'perl)
  773. '(setq reb-re-syntax 'foreign-regexp)
  774. ))
  775. (autoload-eval-lazily 'sql '(sql-mode)
  776. (require 'sql-indent nil t))
  777. (when (autoload-eval-lazily 'git-command)
  778. (define-key ctl-x-map "g" 'git-command))
  779. (when (safe-require-or-eval 'git-commit)
  780. (global-git-commit-mode 1))
  781. (with-eval-after-load 'git-commit
  782. (add-hook 'git-commit-setup-hook
  783. 'turn-off-auto-fill t))
  784. (autoload-eval-lazily 'sl)
  785. (with-eval-after-load 'rst
  786. (defvar rst-mode-map)
  787. (define-key rst-mode-map (kbd "C-m") 'newline-and-indent))
  788. (with-eval-after-load 'jdee
  789. (add-hook 'jdee-mode-hook
  790. (lambda ()
  791. (make-local-variable 'global-mode-string)
  792. (add-to-list 'global-mode-string
  793. mode-line-position))))
  794. ;; Cannot enable error thrown. Why???
  795. ;; https://github.com/m0smith/malabar-mode#Installation
  796. ;; (when (autoload-eval-lazily 'malabar-mode)
  797. ;; (add-to-list 'load-path
  798. ;; (expand-file-name (concat user-emacs-directory "/cedet")))
  799. ;; (safe-require-or-eval 'cedet-devel-load)
  800. ;; (call-after-init 'activate-malabar-mode))
  801. (with-eval-after-load 'make-mode
  802. (defvar makefile-mode-map (make-sparse-keymap))
  803. (define-key makefile-mode-map (kbd "C-m") 'newline-and-indent)
  804. ;; this functions is set in write-file-functions, i cannot find any
  805. ;; good way to remove this.
  806. (fset 'makefile-warn-suspicious-lines 'ignore))
  807. (with-eval-after-load 'verilog-mode
  808. (defvar verilog-mode-map (make-sparse-keymap))
  809. (define-key verilog-mode-map ";" 'self-insert-command))
  810. (setq diff-switches "-u")
  811. (with-eval-after-load 'diff-mode
  812. ;; (when (and (eq major-mode
  813. ;; 'diff-mode)
  814. ;; (not buffer-file-name))
  815. ;; ;; do not pass when major-mode is derived mode of diff-mode
  816. ;; (view-mode 1))
  817. (set-face-attribute 'diff-header nil
  818. :foreground nil
  819. :background nil
  820. :weight 'bold)
  821. (set-face-attribute 'diff-file-header nil
  822. :foreground nil
  823. :background nil
  824. :weight 'bold)
  825. (set-face-foreground 'diff-index "blue")
  826. (set-face-attribute 'diff-hunk-header nil
  827. :foreground "cyan"
  828. :weight 'normal)
  829. (set-face-attribute 'diff-context nil
  830. ;; :foreground "white"
  831. :foreground nil
  832. :weight 'normal)
  833. (set-face-foreground 'diff-removed "red")
  834. (set-face-foreground 'diff-added "green")
  835. (set-face-background 'diff-removed nil)
  836. (set-face-background 'diff-added nil)
  837. (set-face-attribute 'diff-changed nil
  838. :foreground "magenta"
  839. :weight 'normal)
  840. (set-face-attribute 'diff-refine-changed nil
  841. :foreground nil
  842. :background nil
  843. :weight 'bold
  844. :inverse-video t)
  845. ;; Annoying !
  846. ;;(diff-auto-refine-mode)
  847. )
  848. ;; (ffap-bindings)
  849. (set-variable 'browse-url-browser-function
  850. 'eww-browse-url)
  851. (set-variable 'sh-here-document-word "__EOC__")
  852. (when (autoload-eval-lazily 'adoc-mode
  853. nil
  854. (defvar adoc-mode-map (make-sparse-keymap))
  855. (define-key adoc-mode-map (kbd "C-m") 'newline))
  856. (setq auto-mode-alist
  857. `(("\\.adoc\\'" . adoc-mode)
  858. ("\\.asciidoc\\'" . adoc-mode)
  859. ,@auto-mode-alist)))
  860. (with-eval-after-load 'markup-faces
  861. ;; Is this too match ?
  862. (set-face-foreground 'markup-meta-face
  863. "color-245")
  864. (set-face-foreground 'markup-meta-hide-face
  865. "color-245")
  866. )
  867. ;; TODO: check if this is required
  868. (when (autoload-eval-lazily 'groovy-mode nil
  869. (defvar groovy-mode-map (make-sparse-keymap))
  870. (define-key groovy-mode-map "(" 'self-insert-command)
  871. (define-key groovy-mode-map ")" 'self-insert-command)
  872. (define-key groovy-mode-map (kbd "C-m") 'newline-and-indent)
  873. )
  874. (add-to-list 'auto-mode-alist
  875. '("build\\.gradle\\'" . groovy-mode)))
  876. (with-eval-after-load 'yaml-mode
  877. (defvar yaml-mode-map (make-sparse-keymap))
  878. (define-key yaml-mode-map (kbd "C-m") 'newline))
  879. (with-eval-after-load 'html-mode
  880. (defvar html-mode-map (make-sparse-keymap))
  881. (define-key html-mode-map (kbd "C-m") 'reindent-then-newline-and-indent))
  882. (with-eval-after-load 'text-mode
  883. (define-key text-mode-map (kbd "C-m") 'newline))
  884. (autoload-eval-lazily 'info nil
  885. (defvar Info-additional-directory-list)
  886. (dolist (dir (directory-files (concat user-emacs-directory
  887. "info")
  888. t
  889. "^[^.].*"))
  890. (when (file-directory-p dir)
  891. (add-to-list 'Info-additional-directory-list
  892. dir)))
  893. (let ((dir (expand-file-name "~/.brew/share/info")))
  894. (when (file-directory-p dir)
  895. (add-to-list 'Info-additional-directory-list
  896. dir))))
  897. (with-eval-after-load 'apropos
  898. (defvar apropos-mode-map (make-sparse-keymap))
  899. (define-key apropos-mode-map "n" 'next-line)
  900. (define-key apropos-mode-map "p" 'previous-line))
  901. ;; `isearch' library does not call `provide' so cannot use with-eval-after-load
  902. ;; (define-key isearch-mode-map
  903. ;; (kbd "C-j") 'isearch-other-control-char)
  904. ;; (define-key isearch-mode-map
  905. ;; (kbd "C-k") 'isearch-other-control-char)
  906. ;; (define-key isearch-mode-map
  907. ;; (kbd "C-h") 'isearch-other-control-char)
  908. (define-key isearch-mode-map (kbd "C-h") 'isearch-del-char)
  909. (define-key isearch-mode-map (kbd "M-r")
  910. 'isearch-query-replace-regexp)
  911. ;; do not cleanup isearch highlight: use `lazy-highlight-cleanup' to remove
  912. (setq lazy-highlight-cleanup nil)
  913. ;; face for isearch highlighing
  914. (set-face-attribute 'lazy-highlight
  915. nil
  916. :foreground `unspecified
  917. :background `unspecified
  918. :underline t
  919. ;; :weight `bold
  920. )
  921. (add-hook 'outline-mode-hook
  922. (lambda ()
  923. (when (string-match "\\.md\\'" buffer-file-name)
  924. (set (make-local-variable 'outline-regexp) "#+ "))))
  925. (add-to-list 'auto-mode-alist (cons "\\.ol\\'" 'outline-mode))
  926. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode))
  927. (when (autoload-eval-lazily 'markdown-mode
  928. '(markdown-mode gfm-mode)
  929. (defvar gfm-mode-map (make-sparse-keymap))
  930. (define-key gfm-mode-map (kbd "C-m") 'electric-indent-just-newline))
  931. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'gfm-mode))
  932. (set-variable 'markdown-command (or (executable-find "markdown")
  933. (executable-find "markdown.pl")
  934. ""))
  935. (add-hook 'markdown-mode-hook
  936. (lambda ()
  937. (outline-minor-mode 1)
  938. (flyspell-mode)
  939. (set (make-local-variable 'comment-start) ";")))
  940. )
  941. ;; c-mode
  942. ;; http://www.emacswiki.org/emacs/IndentingC
  943. ;; http://en.wikipedia.org/wiki/Indent_style
  944. ;; http://d.hatena.ne.jp/emergent/20070203/1170512717
  945. ;; http://seesaawiki.jp/whiteflare503/d/Emacs%20%a5%a4%a5%f3%a5%c7%a5%f3%a5%c8
  946. (with-eval-after-load 'cc-vars
  947. (defvar c-default-style nil)
  948. (add-to-list 'c-default-style
  949. '(c-mode . "k&r"))
  950. (add-to-list 'c-default-style
  951. '(c++-mode . "k&r")))
  952. (autoload-eval-lazily 'js2-mode nil
  953. ;; currently do not use js2-mode
  954. ;; (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
  955. ;; (add-to-list 'auto-mode-alist '("\\.jsm\\'" . js2-mode))
  956. ;; (defvar js2-mode-map (make-sparse-keymap))
  957. ;; (define-key js2-mode-map (kbd "C-m") (lambda ()
  958. ;; (interactive)
  959. ;; (js2-enter-key)
  960. ;; (indent-for-tab-command)))
  961. ;; (add-hook (kill-local-variable 'before-save-hook)
  962. ;; 'js2-before-save)
  963. ;; (add-hook 'before-save-hook
  964. ;; 'my-indent-buffer
  965. ;; nil
  966. ;; t)
  967. )
  968. (add-to-list 'interpreter-mode-alist
  969. '("node" . js-mode))
  970. (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
  971. (with-eval-after-load 'uniquify
  972. (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
  973. (setq uniquify-ignore-buffers-re "*[^*]+*")
  974. (setq uniquify-min-dir-content 1))
  975. (with-eval-after-load 'view
  976. (defvar view-mode-map (make-sparse-keymap))
  977. (define-key view-mode-map "j" 'scroll-up-line)
  978. (define-key view-mode-map "k" 'scroll-down-line)
  979. (define-key view-mode-map "v" 'toggle-read-only)
  980. (define-key view-mode-map "q" 'bury-buffer)
  981. ;; (define-key view-mode-map "/" 'nonincremental-re-search-forward)
  982. ;; (define-key view-mode-map "?" 'nonincremental-re-search-backward)
  983. ;; (define-key view-mode-map
  984. ;; "n" 'nonincremental-repeat-search-forward)
  985. ;; (define-key view-mode-map
  986. ;; "N" 'nonincremental-repeat-search-backward)
  987. (define-key view-mode-map "/" 'isearch-forward-regexp)
  988. (define-key view-mode-map "?" 'isearch-backward-regexp)
  989. (define-key view-mode-map "n" 'isearch-repeat-forward)
  990. (define-key view-mode-map "N" 'isearch-repeat-backward)
  991. (define-key view-mode-map (kbd "C-m") 'my-rgrep-symbol-at-point))
  992. (global-set-key "\M-r" 'view-mode)
  993. ;; (setq view-read-only t)
  994. (with-eval-after-load 'term
  995. (defvar term-raw-map (make-sparse-keymap))
  996. (define-key term-raw-map (kbd "C-x")
  997. (lookup-key (current-global-map)
  998. (kbd "C-x"))))
  999. (add-hook 'term-mode-hook
  1000. (lambda ()
  1001. ;; Stop current line highlighting
  1002. (set (make-local-variable (defvar hl-line-range-function))
  1003. (lambda () '(0 . 0)))
  1004. (set (make-local-variable 'scroll-margin)
  1005. 0)))
  1006. (add-hook 'Man-mode-hook
  1007. (lambda ()
  1008. (view-mode 1)
  1009. (setq truncate-lines nil)))
  1010. (set-variable 'Man-notify-method (if window-system
  1011. 'newframe
  1012. 'aggressive))
  1013. (set-variable 'woman-cache-filename (expand-file-name (concat user-emacs-directory
  1014. "woman_cache.el")))
  1015. ;; not work because man.el will be loaded when man called
  1016. (defalias 'man 'woman)
  1017. (add-to-list 'auto-mode-alist
  1018. '("tox\\.ini\\'" . conf-unix-mode))
  1019. (when (autoload-eval-lazily 'toml-mode)
  1020. (add-to-list 'auto-mode-alist
  1021. '("/Pipfile\\'" . toml-mode)))
  1022. (when (autoload-eval-lazily 'json-mode)
  1023. (add-to-list 'auto-mode-alist
  1024. '("/Pipfile\\.lock\\'" . json-mode)))
  1025. (add-hook 'go-mode-hook
  1026. (lambda()
  1027. (defvar go-mode-map)
  1028. (add-hook 'before-save-hook' 'gofmt-before-save)
  1029. (define-key go-mode-map (kbd "M-.") 'godef-jump)))
  1030. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1031. ;; buffer switching
  1032. (defvar bs-configurations)
  1033. (when (autoload-eval-lazily 'bs '(bs-show)
  1034. (add-to-list 'bs-configurations
  1035. '("specials" "^\\*" nil ".*" nil nil))
  1036. (add-to-list 'bs-configurations
  1037. '("files-and-specials" "^\\*" buffer-file-name ".*" nil nil))
  1038. (defvar bs-mode-map)
  1039. (defvar bs-current-configuration)
  1040. (define-key bs-mode-map (kbd "t")
  1041. ;; TODO: fix toggle feature
  1042. (lambda ()
  1043. (interactive)
  1044. (if (string= "specials"
  1045. bs-current-configuration)
  1046. (bs-set-configuration "files")
  1047. (bs-set-configuration "specials"))
  1048. (bs-refresh)
  1049. (bs-message-without-log "%s"
  1050. (bs--current-config-message))))
  1051. ;; (setq bs-configurations (list
  1052. ;; '("processes" nil get-buffer-process ".*" nil nil)
  1053. ;; '("files-and-scratch" "^\\*scratch\\*$" nil nil
  1054. ;; bs-visits-non-file bs-sort-buffer-interns-are-last)))
  1055. )
  1056. (defalias 'list-buffers 'bs-show)
  1057. (set-variable 'bs-default-configuration "files-and-specials")
  1058. (set-variable 'bs-default-sort-name "by nothing")
  1059. (add-hook 'bs-mode-hook
  1060. (lambda ()
  1061. (set (make-local-variable 'scroll-margin) 0))))
  1062. ;;(iswitchb-mode 1)
  1063. (icomplete-mode)
  1064. (defun iswitchb-buffer-display-other-window ()
  1065. "Do iswitchb in other window."
  1066. (interactive)
  1067. (let ((iswitchb-default-method 'display))
  1068. (call-interactively 'iswitchb-buffer)))
  1069. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1070. ;; vc
  1071. (set-variable 'vc-handled-backends '())
  1072. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1073. ;; recentf-mode
  1074. (set-variable 'recentf-save-file (expand-file-name (concat user-emacs-directory
  1075. "recentf")))
  1076. (set-variable 'recentf-max-menu-items 20)
  1077. (set-variable 'recentf-max-saved-items 30)
  1078. (set-variable 'recentf-show-file-shortcuts-flag nil)
  1079. (set-variable 'recentf-auto-cleanup 3)
  1080. ;; (safe-require-or-eval 'sync-recentf)
  1081. ;; (when (safe-require-or-eval 'recentf)
  1082. ;; (add-to-list 'recentf-exclude
  1083. ;; (regexp-quote recentf-save-file))
  1084. ;; (add-to-list 'recentf-exclude
  1085. ;; (regexp-quote (expand-file-name user-emacs-directory)))
  1086. ;; (add-to-list 'recentf-exclude
  1087. ;; "/sync-recentf-marker\\'")
  1088. ;; (define-key ctl-x-map (kbd "C-r") 'recentf-open-files)
  1089. ;; (remove-hook 'find-file-hook
  1090. ;; 'recentf-track-opened-file)
  1091. ;; (defun my-recentf-load-track-save-list ()
  1092. ;; "Load current recentf list from file, track current visiting file, then save
  1093. ;; the list."
  1094. ;; (recentf-load-list)
  1095. ;; (recentf-track-opened-file)
  1096. ;; (recentf-save-list))
  1097. ;; (add-hook 'find-file-hook
  1098. ;; 'my-recentf-load-track-save-list)
  1099. ;; (add-hook 'kill-emacs-hook
  1100. ;; 'recentf-load-list)
  1101. ;; ;;(run-with-idle-timer 5 t 'recentf-save-list)
  1102. ;; ;; (add-hook 'find-file-hook
  1103. ;; ;; (lambda ()
  1104. ;; ;; (recentf-add-file default-directory)))
  1105. ;; (when (autoload-eval-lazily 'recentf-show)
  1106. ;; (define-key ctl-x-map (kbd "C-r") 'recentf-show)
  1107. ;; ;; (add-hook 'recentf-show-before-listing-hook
  1108. ;; ;; 'recentf-load-list)
  1109. ;; )
  1110. ;; (recentf-mode 1)
  1111. ;; (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line)
  1112. ;; (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line)
  1113. ;; (define-key recentf-dialog-mode-map "p" 'previous-line)
  1114. ;; (define-key recentf-dialog-mode-map "n" 'next-line)
  1115. ;; (add-hook 'recentf-dialog-mode-hook
  1116. ;; (lambda ()
  1117. ;; ;; (recentf-save-list)
  1118. ;; ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f")
  1119. ;; ;; 'my-recentf-cd-and-find-file)
  1120. ;; (cd "~/"))))
  1121. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1122. ;; dired
  1123. (defun my-file-head (filename &optional n)
  1124. "Return list of first N lines of file FILENAME."
  1125. ;; Work with japanese text?
  1126. (let ((num (or n 10))
  1127. (size 100)
  1128. (beg 0)
  1129. (end 0)
  1130. (result '()))
  1131. (with-temp-buffer
  1132. (erase-buffer)
  1133. (while (<= (count-lines (point-min)
  1134. (point-max))
  1135. num)
  1136. (setq end (+ beg size))
  1137. (insert-file-contents-literally filename
  1138. nil
  1139. beg
  1140. end)
  1141. (goto-char (point-max))
  1142. (setq beg (+ beg size)))
  1143. (goto-char (point-min))
  1144. (while (< (length result) num)
  1145. (let ((start (point)))
  1146. (forward-line 1)
  1147. (setq result
  1148. `(,@result ,(buffer-substring-no-properties start
  1149. (point))))))
  1150. result
  1151. ;; (buffer-substring-no-properties (point-min)
  1152. ;; (progn
  1153. ;; (forward-line num)
  1154. ;; (point)))
  1155. )))
  1156. ;; (apply 'concat (my-file-head "./shrc" 10)
  1157. (defun my-dired-echo-file-head (arg)
  1158. "Echo head of current file.
  1159. ARG is num to show, or defaults to 7."
  1160. (interactive "P")
  1161. (let ((f (dired-get-filename)))
  1162. (message "%s"
  1163. (apply 'concat
  1164. (my-file-head f
  1165. 7)))))
  1166. (defun my-dired-diff ()
  1167. "Show diff of marked file and file of current line."
  1168. (interactive)
  1169. (let ((files (dired-get-marked-files nil nil nil t)))
  1170. (if (eq (car files)
  1171. t)
  1172. (diff (cadr files) (dired-get-filename))
  1173. (message "One file must be marked!"))))
  1174. (defun dired-get-file-info ()
  1175. "Print information of current line file."
  1176. (interactive)
  1177. (let ((f (shell-quote-argument (dired-get-filename t))))
  1178. (if (file-directory-p f)
  1179. (progn
  1180. (message "Calculating disk usage...")
  1181. (shell-command (concat "du -hsD "
  1182. f)))
  1183. (shell-command (concat "file "
  1184. f)))))
  1185. (defun my-dired-scroll-up ()
  1186. "Scroll up."
  1187. (interactive)
  1188. (my-dired-previous-line (- (window-height) 1)))
  1189. (defun my-dired-scroll-down ()
  1190. "Scroll down."
  1191. (interactive)
  1192. (my-dired-next-line (- (window-height) 1)))
  1193. ;; (defun my-dired-forward-line (arg)
  1194. ;; ""
  1195. ;; (interactive "p"))
  1196. (defun my-dired-previous-line (arg)
  1197. "Move ARG lines up."
  1198. (interactive "p")
  1199. (if (> arg 0)
  1200. (progn
  1201. (if (eq (line-number-at-pos)
  1202. 1)
  1203. (goto-char (point-max))
  1204. (forward-line -1))
  1205. (my-dired-previous-line (if (or (dired-get-filename nil t)
  1206. (dired-get-subdir))
  1207. (- arg 1)
  1208. arg)))
  1209. (dired-move-to-filename)))
  1210. (defun my-dired-next-line (arg)
  1211. "Move ARG lines down."
  1212. (interactive "p")
  1213. (if (> arg 0)
  1214. (progn
  1215. (if (eq (point)
  1216. (point-max))
  1217. (goto-char (point-min))
  1218. (forward-line 1))
  1219. (my-dired-next-line (if (or (dired-get-filename nil t)
  1220. (dired-get-subdir))
  1221. (- arg 1)
  1222. arg)))
  1223. (dired-move-to-filename)))
  1224. (defun my-dired-tramp-open (host)
  1225. "Open HOST home directory."
  1226. (interactive "sHostname: ")
  1227. (find-file (format "/scp:%s:" host)))
  1228. ;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html
  1229. (if (eq window-system 'mac)
  1230. (setq dired-listing-switches "-lhF")
  1231. (setq dired-listing-switches "-lhF --time-style=long-iso")
  1232. )
  1233. (setq dired-listing-switches "-lhF")
  1234. ;; when using dired-find-alternate-file
  1235. ;; reuse current dired buffer for the file to open
  1236. ;; (put 'dired-find-alternate-file 'disabled nil)
  1237. (set-variable 'dired-ls-F-marks-symlinks t)
  1238. (set-variable 'ls-lisp-use-insert-directory-program nil) ; always use ls-lisp
  1239. (set-variable 'ls-lisp-dirs-first t)
  1240. (set-variable 'ls-lisp-use-localized-time-format t)
  1241. (set-variable 'ls-lisp-format-time-list
  1242. '("%Y-%m-%d %H:%M"
  1243. "%Y-%m-%d "))
  1244. (set-variable 'dired-dwim-target t)
  1245. (set-variable 'dired-isearch-filenames t)
  1246. (set-variable 'dired-hide-details-hide-symlink-targets nil)
  1247. (set-variable 'dired-hide-details-hide-information-lines nil)
  1248. (set-variable 'dired-deletion-confirmer 'y-or-n-p)
  1249. (set-variable 'dired-recursive-deletes 'always)
  1250. ;; (add-hook 'dired-after-readin-hook
  1251. ;; 'my-replace-nasi-none)
  1252. (with-eval-after-load 'dired
  1253. (safe-require-or-eval 'ls-lisp)
  1254. (defvar dired-mode-map (make-sparse-keymap))
  1255. (define-key dired-mode-map "w" 'wdired-change-to-wdired-mode)
  1256. (define-key dired-mode-map "i" 'dired-get-file-info)
  1257. (define-key dired-mode-map "f" 'find-file)
  1258. (define-key dired-mode-map "!" 'shell-command)
  1259. (define-key dired-mode-map "&" 'async-shell-command)
  1260. (define-key dired-mode-map "X" 'dired-do-async-shell-command)
  1261. (define-key dired-mode-map "=" 'my-dired-diff)
  1262. (define-key dired-mode-map "B" 'gtkbm-add-current-dir)
  1263. (define-key dired-mode-map "b" 'gtkbm)
  1264. (define-key dired-mode-map "h" 'my-dired-echo-file-head)
  1265. (define-key dired-mode-map (kbd "TAB") 'other-window)
  1266. ;; (define-key dired-mode-map "P" 'my-dired-do-pack-or-unpack)
  1267. (define-key dired-mode-map "/" 'dired-isearch-filenames)
  1268. (define-key dired-mode-map (kbd "DEL") 'dired-up-directory)
  1269. (define-key dired-mode-map (kbd "C-h") 'dired-up-directory)
  1270. (substitute-key-definition 'dired-next-line
  1271. 'my-dired-next-line
  1272. dired-mode-map)
  1273. (substitute-key-definition 'dired-previous-line
  1274. 'my-dired-previous-line
  1275. dired-mode-map)
  1276. ;; (define-key dired-mode-map (kbd "C-p") 'my-dired-previous-line)
  1277. ;; (define-key dired-mode-map (kbd "p") 'my-dired-previous-line)
  1278. ;; (define-key dired-mode-map (kbd "C-n") 'my-dired-next-line)
  1279. ;; (define-key dired-mode-map (kbd "n") 'my-dired-next-line)
  1280. (define-key dired-mode-map (kbd "<left>") 'my-dired-scroll-up)
  1281. (define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)
  1282. (define-key dired-mode-map (kbd "ESC p") 'my-dired-scroll-up)
  1283. (define-key dired-mode-map (kbd "ESC n") 'my-dired-scroll-down)
  1284. (add-hook 'dired-mode-hook
  1285. (lambda ()
  1286. (when (fboundp 'dired-hide-details-mode)
  1287. (dired-hide-details-mode t)
  1288. (local-set-key "l" 'dired-hide-details-mode))
  1289. (let ((file "._Icon\015"))
  1290. (when nil
  1291. '(file-readable-p file)
  1292. (delete-file file)))))
  1293. (when (autoload-eval-lazily 'pack '(dired-do-pack-or-unpack pack-pack))
  1294. (with-eval-after-load 'dired
  1295. (define-key dired-mode-map "P" 'pack-dired-dwim)))
  1296. (when (autoload-eval-lazily 'dired-list-all-mode)
  1297. (setq dired-listing-switches "-lhF")
  1298. (with-eval-after-load 'dired
  1299. (define-key dired-mode-map "a" 'dired-list-all-mode))))
  1300. (when (autoload-eval-lazily 'dired-filter)
  1301. (add-hook 'dired-mode-hook
  1302. 'dired-filter-mode))
  1303. ;; Currently disabled in favor of dired-from-git-ls-files
  1304. ;; (define-key ctl-x-map "f" 'find-dired)
  1305. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1306. ;; misc funcs
  1307. (defalias 'qcalc 'quick-calc)
  1308. (defun memo (&optional dir)
  1309. "Open memo.txt in DIR."
  1310. (interactive)
  1311. (pop-to-buffer (find-file-noselect (concat (if dir
  1312. (file-name-as-directory dir)
  1313. "")
  1314. "memo.txt"))))
  1315. (set (defvar my-rgrep-alist nil
  1316. "Alist of rgrep command.
  1317. Each element is in the form like (NAME SEXP COMMAND), where SEXP returns the
  1318. condition to choose COMMAND when evaluated.")
  1319. `(
  1320. ;; ripgrep
  1321. ("rg"
  1322. (executable-find "rg")
  1323. "rg --hidden --no-heading --smart-case ")
  1324. ;; git grep
  1325. ("gitgrep"
  1326. (eq 0
  1327. (shell-command "git rev-parse --git-dir"))
  1328. "git --no-pager -c color.grep=always grep -nH -e ")
  1329. ;; sift
  1330. ("sift"
  1331. (executable-find "sift")
  1332. ("sift --binary-skip --filename --line-number --git --smart-case "))
  1333. ;; the silver searcher
  1334. ("ag"
  1335. (executable-find "ag")
  1336. "ag --nogroup --nopager --filename ")
  1337. ;; ack
  1338. ("ack"
  1339. (executable-find "ack")
  1340. "ack --nogroup --nopager --with-filename ")
  1341. ;; gnu global
  1342. ("global"
  1343. (and (require 'ggtags nil t)
  1344. (executable-find "global")
  1345. (ggtags-current-project-root))
  1346. "global --result grep ")
  1347. ;; grep
  1348. ("grep"
  1349. t
  1350. ,(concat "find . "
  1351. "-path '*/.git' -prune -o "
  1352. "-path '*/.svn' -prune -o "
  1353. "-type f -print0 | "
  1354. "xargs -0 grep -nH -e "))
  1355. )
  1356. )
  1357. (defvar my-rgrep-default nil
  1358. "Default command name for my-rgrep.")
  1359. (defun my-rgrep-grep-command (&optional name alist)
  1360. "Return recursive grep command for current directory or nil.
  1361. If NAME is given, use that without testing.
  1362. Commands are searched from ALIST."
  1363. (if alist
  1364. (if name
  1365. ;; if name is given search that from alist and return the command
  1366. (nth 2 (assoc name
  1367. alist))
  1368. ;; if name is not given try test in 1th elem
  1369. (let ((car (car alist))
  1370. (cdr (cdr alist)))
  1371. (if (eval (nth 1 car))
  1372. ;; if the condition is true return the command
  1373. (nth 2 car)
  1374. ;; try next one
  1375. (and cdr
  1376. (my-rgrep-grep-command name cdr)))))
  1377. ;; if alist is not given set default value
  1378. (my-rgrep-grep-command name my-rgrep-alist)))
  1379. (defun my-rgrep (command-args)
  1380. "My recursive grep. Run COMMAND-ARGS.
  1381. If prefix argument is given, use current symbol as default search target
  1382. and search from projectile root (if projectile is available)."
  1383. (interactive (let ((cmd (my-rgrep-grep-command my-rgrep-default
  1384. nil)))
  1385. (if cmd
  1386. (list (read-shell-command "grep command: "
  1387. (concat cmd
  1388. (if current-prefix-arg
  1389. (thing-at-point 'symbol t)
  1390. ""))
  1391. 'grep-find-history))
  1392. (error "My-Rgrep: Command for rgrep not found")
  1393. )))
  1394. (if (and current-prefix-arg
  1395. (safe-require-or-eval 'projectile)
  1396. (projectile-project-p))
  1397. (projectile-with-default-dir (projectile-project-root)
  1398. (compilation-start command-args
  1399. 'grep-mode))
  1400. (compilation-start command-args
  1401. 'grep-mode)))
  1402. (defun my-rgrep-thing-at-point-projectile-root ()
  1403. "My recursive grep to find thing at point from project root."
  1404. (interactive)
  1405. (let* ((cmd (my-rgrep-grep-command my-rgrep-default
  1406. nil))
  1407. (command-args
  1408. (if cmd
  1409. (concat cmd
  1410. (or (thing-at-point 'symbol t)
  1411. (error "No symbol at point")))
  1412. (error "My-Rgrep: Command for rgrep not found"))))
  1413. (if (safe-require-or-eval 'projectile)
  1414. (projectile-with-default-dir (or (projectile-project-root)
  1415. default-directory)
  1416. (compilation-start command-args
  1417. 'grep-mode))
  1418. (compilation-start command-args
  1419. 'grep-mode))))
  1420. (defmacro define-my-rgrep (name)
  1421. "Define rgrep for NAME."
  1422. `(defun ,(intern (concat "my-rgrep-"
  1423. name)) ()
  1424. ,(format "My recursive grep by %s."
  1425. name)
  1426. (interactive)
  1427. (let ((my-rgrep-default ,name))
  1428. (if (called-interactively-p 'any)
  1429. (call-interactively 'my-rgrep)
  1430. (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
  1431. )
  1432. (define-my-rgrep "ack")
  1433. (define-my-rgrep "ag")
  1434. (define-my-rgrep "rg")
  1435. (define-my-rgrep "sift")
  1436. (define-my-rgrep "gitgrep")
  1437. (define-my-rgrep "grep")
  1438. (define-my-rgrep "global")
  1439. (define-key ctl-x-map "s" 'my-rgrep)
  1440. (define-key ctl-x-map "." 'my-rgrep-thing-at-point-projectile-root)
  1441. (set-variable 'dumb-jump-prefer-searcher 'rg)
  1442. (defalias 'make 'compile)
  1443. (define-key ctl-x-map "c" 'compile)
  1444. ;;;;;;;;;;;;;;;;;;;;;;;
  1445. ;; adoc-simple-mode
  1446. (when (safe-require-or-eval 'adoc-mode)
  1447. (defvar adoc-simple-font-lock-keywords
  1448. nil)
  1449. (define-derived-mode adoc-simple-mode adoc-mode
  1450. "Adoc-Simple"
  1451. "Major mode for editing AsciiDoc text files.
  1452. This mode is a simplified version of `adoc-mode'."
  1453. '(set (make-local-variable 'font-lock-defaults)
  1454. '(adoc-simple-font-lock-keywords
  1455. nil nil nil nil
  1456. (font-lock-multiline . t)
  1457. (font-lock-mark-block-function . adoc-font-lock-mark-block-function))))
  1458. (add-to-list 'auto-mode-alist
  1459. '("\\.adoc\\'" . adoc-simple-mode)))
  1460. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1461. ;; awk-preview
  1462. (defgroup awk-preview nil
  1463. "Awk previewer."
  1464. :tag "Awk Preview"
  1465. :prefix "awk-preview-"
  1466. :group 'tools)
  1467. (defcustom awk-preview-program
  1468. (or (executable-find "gawk")
  1469. (executable-find "awk")
  1470. "awk")
  1471. "Awk program to execute."
  1472. :type 'string
  1473. :group 'awk-preview)
  1474. (defcustom awk-preview-switches
  1475. ;; '("--sandbox")
  1476. nil
  1477. "String of awk options appended when running awk preview."
  1478. :type '(repeat string)
  1479. :group 'awk-preview)
  1480. (defcustom awk-preview-default-program
  1481. "# C-c C-l to update preview, C-c C-c to commit, C-c C-k to abort.
  1482. {
  1483. print NR, $0
  1484. }
  1485. "
  1486. "Default awk command."
  1487. :type 'string
  1488. :group 'awk-preview)
  1489. (defvar awk-preview--point-beg
  1490. nil
  1491. "Point of beginning.")
  1492. (make-variable-buffer-local 'awk-preview--point-beg)
  1493. (defvar awk-preview--point-end
  1494. nil
  1495. "Point of end.")
  1496. (make-variable-buffer-local 'awk-preview--point-end)
  1497. (defvar awk-preview--preview-point-beg
  1498. nil
  1499. "Point of beginning.
  1500. Used by preview buffer and always same as awk-preview--point-beg.")
  1501. (make-variable-buffer-local 'awk-preview--preview-point-beg)
  1502. (defvar awk-preview--preview-point-end
  1503. nil
  1504. "Point of beginning.
  1505. Used by preview buffer and may defferent from awk-preview--point-end.")
  1506. (make-variable-buffer-local 'awk-preview--preview-point-end)
  1507. (defvar awk-preview--program-filename
  1508. nil
  1509. "Awk preview program file name.")
  1510. (make-variable-buffer-local 'awk-preview--program-filename)
  1511. (defvar awk-preview--source-buffer
  1512. nil
  1513. "Awk source buffer.")
  1514. (make-variable-buffer-local 'awk-preview--source-buffer)
  1515. (defvar awk-preview--preview-buffer
  1516. nil
  1517. "Awk preview buffer.")
  1518. (make-variable-buffer-local 'awk-preview--preview-buffer)
  1519. (defvar awk-preview--program-buffer
  1520. nil
  1521. "Awk program buffer.")
  1522. (make-variable-buffer-local 'awk-preview--program-buffer)
  1523. (defvar awk-preview--window-configuration
  1524. nil
  1525. "Awk preview window configuration.")
  1526. (defun awk-preview--invoke-awk (buf beg end progfile output &optional delete)
  1527. "Execute PROGFILE awk process with BEG and END input and output to OUTPUT buffer.
  1528. When OUTPUT is t the result will be output to BUF.
  1529. Delete the text between BEG and END when DELETE is non-nil."
  1530. (with-current-buffer buf
  1531. (let ((status (apply 'call-process-region
  1532. beg
  1533. end
  1534. awk-preview-program
  1535. delete
  1536. output
  1537. nil
  1538. `(,@awk-preview-switches "-f" ,progfile))))
  1539. (unless (eq status
  1540. 0)
  1541. (error "awk-preview: Awk program exited abnormally."))
  1542. output)))
  1543. (defvar awk-preview-program-buffer-name
  1544. "*AWK Preview Program<%s>*"
  1545. "Buffer name of awk preview program.")
  1546. (defvar awk-preview-preview-buffer-name
  1547. "*AWK Preview<%s>*"
  1548. "Buffer name of awk preview.")
  1549. (defun awk-preview--create-program-buffer (source preview)
  1550. "Create and show awk program buffer for SOURCE and PREVIEW buffer.
  1551. Return that buffer."
  1552. (let ((source-name (buffer-name source)))
  1553. (with-current-buffer (generate-new-buffer (format awk-preview-program-buffer-name
  1554. source-name))
  1555. (erase-buffer)
  1556. (insert awk-preview-default-program)
  1557. (awk-mode)
  1558. (awk-preview-program-mode 1)
  1559. (setq awk-preview--source-buffer source)
  1560. (setq awk-preview--preview-buffer preview)
  1561. (setq awk-preview--program-buffer (current-buffer))
  1562. (setq awk-preview--program-filename (make-temp-file "awk-preview-"
  1563. nil
  1564. ".awk"))
  1565. (current-buffer))))
  1566. (defun awk-preview-program-buffer-kill-hook ()
  1567. "Cleanup for awk-preview program buffer."
  1568. (when awk-preview--program-filename
  1569. (delete-file awk-preview--program-filename)))
  1570. (add-hook 'kill-buffer-hook
  1571. 'awk-preview-program-buffer-kill-hook)
  1572. (defun awk-preview--create-preview-buffer (source)
  1573. "Create preview buffer of SOURCE buffer and return it."
  1574. (with-current-buffer source
  1575. (let ((buffer-file-name nil)
  1576. (beg awk-preview--point-beg)
  1577. (end awk-preview--point-end))
  1578. (with-current-buffer (clone-buffer (format awk-preview-preview-buffer-name
  1579. (buffer-name)))
  1580. (awk-preview-program-mode 1)
  1581. (setq awk-preview--preview-point-beg beg)
  1582. (setq awk-preview--preview-point-end end)
  1583. (setq awk-preview--source-buffer source)
  1584. (setq awk-preview--preview-buffer (current-buffer))
  1585. (goto-char end)
  1586. (setq buffer-read-only t)
  1587. (current-buffer)))))
  1588. (defun awk-preview (beg end)
  1589. "Run awk and preview result."
  1590. (interactive "r")
  1591. (setq awk-preview--point-beg beg)
  1592. (setq awk-preview--point-end end)
  1593. (setq awk-preview--source-buffer (current-buffer))
  1594. (setq awk-preview--preview-buffer
  1595. (awk-preview--create-preview-buffer (current-buffer)))
  1596. (setq awk-preview--program-buffer
  1597. (awk-preview--create-program-buffer (current-buffer)
  1598. awk-preview--preview-buffer))
  1599. ;; At creation of preview buffer, program buffer is not available so set this
  1600. ;; here
  1601. (let ((b awk-preview--program-buffer))
  1602. (with-current-buffer awk-preview--preview-buffer
  1603. (setq awk-preview--program-buffer b)))
  1604. (setq awk-preview--window-configuration
  1605. (current-window-configuration))
  1606. (set-window-buffer (get-buffer-window awk-preview--source-buffer)
  1607. awk-preview--preview-buffer)
  1608. (pop-to-buffer awk-preview--program-buffer)
  1609. (switch-to-buffer awk-preview--program-buffer)
  1610. (awk-preview-update-preview)
  1611. )
  1612. (defun awk-preview-update-preview ()
  1613. "Update awk-preview."
  1614. (interactive)
  1615. (with-current-buffer awk-preview--program-buffer
  1616. (write-region (point-min)
  1617. (point-max)
  1618. awk-preview--program-filename))
  1619. (let ((output (with-current-buffer (get-buffer-create " *awk-preview output*")
  1620. (erase-buffer)
  1621. (current-buffer)))
  1622. (progfile (with-current-buffer awk-preview--program-buffer
  1623. awk-preview--program-filename)))
  1624. (with-current-buffer awk-preview--source-buffer
  1625. (awk-preview--invoke-awk (current-buffer)
  1626. awk-preview--point-beg
  1627. awk-preview--point-end
  1628. progfile
  1629. output)
  1630. (with-current-buffer awk-preview--preview-buffer
  1631. (let ((inhibit-read-only t))
  1632. (goto-char awk-preview--preview-point-end)
  1633. (delete-region awk-preview--preview-point-beg (point))
  1634. (insert-buffer-substring output)
  1635. (setq awk-preview--preview-point-end (point))))
  1636. )))
  1637. (defun awk-preview-commit ()
  1638. "Exit awk-preview and update buffer."
  1639. (interactive))
  1640. (defun awk-preview-abort ()
  1641. "Discard result and exit awk-preview."
  1642. (interactive))
  1643. (defun awk-preview--cleanup()
  1644. "Cleanup awk preview buffers and variables.")
  1645. (defvar awk-preview-program-mode-map
  1646. (let ((map (make-sparse-keymap)))
  1647. (define-key map (kbd "C-c C-l") 'awk-preview-update-preview)
  1648. (define-key map (kbd "C-c C-k") 'awk-preview-abort)
  1649. (define-key map (kbd "C-c C-c") 'awk-preview-commit)
  1650. map)
  1651. "Keymap for `awk-preview-program-mode'.")
  1652. (define-minor-mode awk-preview-program-mode
  1653. "Minor mode for awk-preview program buffer."
  1654. :lighter " AWKPrev"
  1655. :keymap awk-preview-program-mode-map)
  1656. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1657. ;; editorconfig-auto-apply
  1658. (define-minor-mode editorconfig-auto-apply-mode
  1659. "When saving .editorconfig file update buffer configs."
  1660. :global t
  1661. :lighter ""
  1662. (if editorconfig-auto-apply-mode
  1663. (add-hook 'after-save-hook
  1664. 'editorconfig-auto-apply-mode--when-save)
  1665. (remove-hook 'after-save-hook
  1666. 'editorconfig-auto-apply-mode--when-save)))
  1667. (defun editorconfig-auto-apply-mode--when-save ()
  1668. "When saving .editorconfig file walk all buffers and update configs."
  1669. (when (eq major-mode
  1670. 'editorconfig-conf-mode)
  1671. (let ((dir (file-name-directory buffer-file-name)))
  1672. (cl-dolist (buf (buffer-list))
  1673. (when (and (buffer-file-name buf)
  1674. (file-in-directory-p (buffer-file-name buf)
  1675. dir))
  1676. (with-current-buffer buf
  1677. (editorconfig-mode-apply)))))))
  1678. (editorconfig-auto-apply-mode 1)
  1679. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1680. ;; recently
  1681. (defgroup recently nil
  1682. "Recently visited files"
  1683. :tag "Recently"
  1684. :prefix "recently-"
  1685. :group 'tools)
  1686. (defcustom recently-file
  1687. (concat user-emacs-directory
  1688. "recently.el")
  1689. "Recently file."
  1690. :type 'string
  1691. :group 'recently)
  1692. (defcustom recently-max
  1693. 100
  1694. "Recently list max length."
  1695. :type 'int
  1696. :group 'recently)
  1697. (defcustom recently-excludes
  1698. '()
  1699. "List of regexps for filenames excluded from the recent list."
  1700. :type '(repeat string)
  1701. :group 'recently)
  1702. (add-to-list 'recently-excludes
  1703. (eval-when-compile (rx "/COMMIT_EDITMSG" eot)))
  1704. (defvar recently-list
  1705. '()
  1706. "Recently list.")
  1707. (defvar recently-file-mtime
  1708. nil
  1709. "Modified time of file when last read file.")
  1710. (defun recently-write ()
  1711. "Write to file."
  1712. (with-temp-buffer
  1713. (prin1 recently-list
  1714. (current-buffer))
  1715. (write-region (point-min)
  1716. (point-max)
  1717. recently-file)))
  1718. (defun recently-read ()
  1719. "Read file."
  1720. (when (file-readable-p recently-file)
  1721. (with-temp-buffer
  1722. (insert-file-contents recently-file)
  1723. (goto-char (point-min))
  1724. (setq recently-list
  1725. (read (current-buffer))))
  1726. (setq recently-file-mtime
  1727. (nth 5
  1728. (file-attributes recently-file)))))
  1729. (defun recently-reload ()
  1730. "Reload file."
  1731. (when (and (file-readable-p recently-file)
  1732. (not (equal recently-file-mtime
  1733. (nth 5
  1734. (file-attributes recently-file)))))
  1735. (recently-read)
  1736. (cl-assert (equal recently-file-mtime
  1737. (nth 5
  1738. (file-attributes recently-file))))))
  1739. (defun recently-add (path)
  1740. "Add PATH to list."
  1741. (cl-assert (string= path
  1742. (expand-file-name path)))
  1743. (when (cl-loop for re in recently-excludes
  1744. if (string-match re path) return nil
  1745. finally return t)
  1746. (recently-reload)
  1747. (let* ((l (copy-list recently-list))
  1748. (l (delete path
  1749. l))
  1750. (l (cl-loop for e in l
  1751. unless (file-in-directory-p path e)
  1752. collect e))
  1753. (l (cons path
  1754. l))
  1755. (l (recently--truncate l
  1756. recently-max)))
  1757. (unless (equal recently-list
  1758. l)
  1759. (setq recently-list l)
  1760. (recently-write)))))
  1761. (defun recently--truncate (list len)
  1762. "Truncate LIST to LEN."
  1763. (if (> (length list)
  1764. len)
  1765. (cl-subseq list
  1766. 0
  1767. len)
  1768. list))
  1769. (defun recently-find-file-hook ()
  1770. "Add current file."
  1771. (when buffer-file-name
  1772. (recently-add buffer-file-name)))
  1773. (defun recently-dired-mode-hook ()
  1774. "Add current directory."
  1775. (recently-add (expand-file-name default-directory)))
  1776. (add-hook 'find-file-hook
  1777. 'recently-find-file-hook)
  1778. (add-hook 'dired-mode-hook
  1779. 'recently-dired-mode-hook)
  1780. ;; recently-show
  1781. (defvar recently-show-window-height 10
  1782. "Max height of window of `recently-show'")
  1783. (defvar recently-show-mode-map
  1784. (let ((map (make-sparse-keymap)))
  1785. (suppress-keymap map)
  1786. (define-key map "n" 'next-line)
  1787. (define-key map "p" 'previous-line)
  1788. (define-key map (kbd "C-m") 'recently-show-find-file)
  1789. (define-key map (kbd "SPC") 'recently-show-find-file)
  1790. (define-key map "v" 'recently-show-view-file)
  1791. (define-key map "@" 'recently-show-dired)
  1792. (define-key map "q" 'recently-show-close)
  1793. (define-key map (kbd "C-g") 'recently-show-close)
  1794. (define-key map "?" 'describe-mode)
  1795. (define-key map "/" 'isearch-forward)
  1796. map))
  1797. (defvar recently-show-before-listing-hook nil
  1798. "Hook run before creating buffer of `recently-show'.")
  1799. (defvar recently-show-window-configuration nil
  1800. "Used for internal")
  1801. (defvar recently-show-abbreviate t
  1802. "Non-nil means use `abbreviate-file-name' when listing recently opened files.")
  1803. (define-derived-mode recently-show-mode special-mode "recently-show"
  1804. "Major mode for `recently-show'."
  1805. ;; (set (make-local-variable 'scroll-margin)
  1806. ;; 0)
  1807. )
  1808. ;;;###autoload
  1809. (defun recently-show (&optional files buffer-name)
  1810. "Show simplified list of recently opened files.
  1811. If optional argument FILES is non-nil, it is a list of recently-opened
  1812. files to choose from. It defaults to the whole recent list.
  1813. If optional argument BUFFER-NAME is non-nil, it is a buffer name to
  1814. use for the buffer. It defaults to \"*recetf-show*\"."
  1815. (interactive)
  1816. (let ((bf (recently-show-create-buffer files buffer-name)))
  1817. (if bf
  1818. (progn
  1819. ;; (recently-save-list)
  1820. (setq recently-show-window-configuration (current-window-configuration))
  1821. ;;(pop-to-buffer bf t t)
  1822. (display-buffer bf)
  1823. ;; (set-window-text-height (selected-window)
  1824. ;; recently-show-window-height)
  1825. (shrink-window-if-larger-than-buffer (selected-window)))
  1826. (message "No recent file!"))))
  1827. (defun recently-show-create-buffer (&optional files buffer-name)
  1828. "Create buffer listing recently files."
  1829. (let ((bname (or buffer-name
  1830. "*recently-show*"))
  1831. (list (or files
  1832. (progn
  1833. (recently-reload)
  1834. recently-list))))
  1835. (when list
  1836. (and (get-buffer bname)
  1837. (kill-buffer bname))
  1838. (let ((bf (get-buffer-create bname)))
  1839. (with-current-buffer bf
  1840. (recently-show-mode)
  1841. (let ((inhibit-read-only t))
  1842. (mapc (lambda (f)
  1843. (insert (if recently-show-abbreviate
  1844. (abbreviate-file-name f)
  1845. f)
  1846. "\n"))
  1847. list))
  1848. (goto-char (point-min))
  1849. ;; (setq buffer-read-only t)
  1850. )
  1851. bf))))
  1852. (defun recently-show-close ()
  1853. "Close recently-show window."
  1854. (interactive)
  1855. (kill-buffer (current-buffer))
  1856. (set-window-configuration recently-show-window-configuration))
  1857. (defun recently-show-find-file ()
  1858. "Fine file of current line."
  1859. (interactive)
  1860. (let ((f (recently-show-get-filename)))
  1861. (recently-show-close)
  1862. (find-file f)))
  1863. (defun recently-show-view-file ()
  1864. "view file of current line."
  1865. (interactive)
  1866. (let ((f (recently-show-get-filename)))
  1867. (recently-show-close)
  1868. (view-file f)))
  1869. (defun recently-show-get-filename ()
  1870. "Get filename of current line."
  1871. (buffer-substring-no-properties (point-at-bol)
  1872. (point-at-eol)))
  1873. (defun recently-show-dired()
  1874. "Open dired buffer of directory containing file of current line."
  1875. (interactive)
  1876. (let ((f (recently-show-get-filename)))
  1877. (recently-show-close)
  1878. (dired (if (file-directory-p f)
  1879. f
  1880. (or (file-name-directory f)
  1881. ".")))))
  1882. (define-key ctl-x-map (kbd "C-r") 'recently-show)
  1883. ;;;;;;;;;;;;;;;;;;;;;;
  1884. ;; It works!
  1885. ;; (pop-to-buffer (dired-noselect '("." "shrc" "emacs.el")))
  1886. (defun my-dired-git-ls-files (args)
  1887. "Dired from git ls-files."
  1888. (interactive "sgit ls-files args: ")
  1889. (pop-to-buffer-same-window
  1890. (dired-noselect `(,default-directory
  1891. ,@(split-string (shell-command-to-string (concat "git ls-files -z " args))
  1892. "\0" t))
  1893. ""))
  1894. )
  1895. (define-key ctl-x-map (kbd "f") 'my-dired-git-ls-files)
  1896. (with-eval-after-load 'dired
  1897. (defvar dired-mode-map (make-sparse-keymap))
  1898. (define-key dired-mode-map "f" 'my-dired-git-ls-files))
  1899. ;; (define-minor-mode my-dired-glob-filter)
  1900. ;; Local Variables:
  1901. ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
  1902. ;; flycheck-checker: emacs-lisp
  1903. ;; End:
  1904. ;;; emancs.el ends here