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.
 
 
 
 
 
 

2407 lines
79 KiB

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