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.
 
 
 
 
 
 

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