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

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