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.
 
 
 
 
 
 

2044 lines
67 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. ;; (define-key ctl-x-map (kbd "C-x") '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. "2>/dev/null")))
  658. (if (executable-find "fd")
  659. (setenv "FZF_DEFAULT_COMMAND" fdcmd)
  660. (setenv "FZF_DEFAULT_COMMAND" findcmd)))
  661. (set-variable 'fzf/window-height 45)
  662. (set-variable 'fzf/args "--print-query --ansi --inline-info --cycle")
  663. (defun my-fzf-or-find-file ()
  664. "Call fzf if usable or call find-file."
  665. (declare (interactive-only t))
  666. (interactive)
  667. (if (and (executable-find "fzf")
  668. (fboundp 'fzf)
  669. (not (file-remote-p default-directory)))
  670. (fzf)
  671. (call-interactively 'find-file)))
  672. (define-key ctl-x-map (kbd "f") 'my-fzf-or-find-file)
  673. ;; recently
  674. (when (safe-require-or-eval 'recently)
  675. (recently-mode 1))
  676. (when (safe-require-or-eval 'editorconfig)
  677. (set-variable 'editorconfig-get-properties-function
  678. 'editorconfig-core-get-properties-hash)
  679. (editorconfig-mode 1)
  680. (set-variable 'editorconfig-mode-lighter " EC")
  681. (when (fboundp 'ws-butler-mode)
  682. (set-variable 'editorconfig-trim-whitespaces-mode
  683. 'ws-butler-mode))
  684. (with-eval-after-load 'org-src
  685. ;; [*.org\[\*Org Src*\[ c \]*\]]
  686. (add-hook 'org-src-mode-hook
  687. 'editorconfig-mode-apply t)))
  688. (when (fboundp 'editorconfig-custom-majormode)
  689. (add-hook 'editorconfig-after-apply-functions
  690. 'editorconfig-custom-majormode))
  691. ;; Add readonly=true to set read-only-mode
  692. (add-hook 'editorconfig-after-apply-functions
  693. (lambda (props)
  694. (let ((r (gethash 'readonly props)))
  695. (when (and (string= r "true")
  696. (not buffer-read-only))
  697. (read-only-mode 1)))))
  698. (add-hook 'editorconfig-hack-properties-functions
  699. '(lambda (props)
  700. (when (derived-mode-p 'makefile-mode)
  701. (puthash 'indent_style "tab" props))))
  702. ;; (when (fboundp 'editorconfig-charset-extras)
  703. ;; (add-hook 'editorconfig-custom-hooks
  704. ;; 'editorconfig-charset-extras))
  705. (setq revert-without-query '(".+"))
  706. ;; save cursor position
  707. (when (safe-require-or-eval 'saveplace)
  708. (setq-default save-place t)
  709. (setq save-place-file (concat user-emacs-directory
  710. "places")))
  711. ;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260
  712. (setq make-backup-files t)
  713. (setq vc-make-backup-files t)
  714. ;; (make-directory (expand-file-name "~/.emacsbackup"))
  715. (setq backup-directory-alist
  716. (cons (cons "." (expand-file-name (concat user-emacs-directory
  717. "backup")))
  718. backup-directory-alist))
  719. (setq version-control 't)
  720. (setq delete-old-versions t)
  721. (setq kept-new-versions 20)
  722. (setq auto-save-list-file-prefix (expand-file-name (concat user-emacs-directory
  723. "auto-save/")))
  724. ;; (setq delete-auto-save-files t)
  725. (setq auto-save-visited-interval 8)
  726. (auto-save-visited-mode 1)
  727. (add-to-list 'completion-ignored-extensions ".bak")
  728. (set-variable 'completion-cycle-threshold nil) ;; NEVER use
  729. (setq delete-by-moving-to-trash t)
  730. ;; trash-directory "~/.emacs.d/trash")
  731. (add-hook 'after-save-hook
  732. 'executable-make-buffer-file-executable-if-script-p)
  733. (set-variable 'bookmark-default-file
  734. (expand-file-name (concat user-emacs-directory
  735. "bmk")))
  736. (set-variable 'bookmark-save-flag
  737. 1)
  738. (with-eval-after-load 'recentf
  739. (defvar recentf-exclude)
  740. (defvar bookmark-default-file)
  741. (add-to-list 'recentf-exclude
  742. (regexp-quote bookmark-default-file)))
  743. (when (safe-require-or-eval 'smart-revert)
  744. (smart-revert-on))
  745. ;; autosave
  746. ;; auto-save-visited-mode can be used instead?
  747. ;; (when (safe-require-or-eval 'autosave)
  748. ;; (autosave-set 8))
  749. ;; bookmarks
  750. ;; (define-key ctl-x-map "m" 'list-bookmarks)
  751. ;; vc
  752. (set-variable 'vc-handled-backends '(RCS))
  753. (set-variable 'vc-rcs-register-switches "-l")
  754. (set-variable 'vc-rcs-checkin-switches "-l")
  755. (set-variable 'vc-command-messages t)
  756. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  757. ;; share clipboard with x
  758. ;; this page describes this in details, but only these sexps seem to be needed
  759. ;; http://garin.jp/doc/Linux/xwindow_clipboard
  760. (and nil
  761. (not window-system)
  762. (not (eq window-system 'mac))
  763. (getenv "DISPLAY")
  764. (not (equal (getenv "DISPLAY") ""))
  765. (executable-find "xclip")
  766. ;; (< emacs-major-version 24)
  767. '(safe-require-or-eval 'xclip)
  768. nil
  769. (turn-on-xclip))
  770. (and (eq system-type 'darwin)
  771. (safe-require-or-eval 'pasteboard)
  772. (turn-on-pasteboard))
  773. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  774. ;; some modes and hooks
  775. ;; Include some extra modes
  776. (require 'generic-x)
  777. (when (autoload-eval-lazily 'wgrep)
  778. (set-variable 'wgrep-auto-save-buffer t)
  779. (with-eval-after-load 'grep
  780. (defvar grep-mode-map)
  781. (define-key grep-mode-map
  782. "e"
  783. 'wgrep-change-to-wgrep-mode)))
  784. (with-eval-after-load 'remember
  785. (defvar remember-mode-map (make-sparse-keymap))
  786. (define-key remember-mode-map (kbd "C-x C-s") 'ignore))
  787. (with-eval-after-load 'magit-files
  788. ;; `global-magit-file-mode' is enabled by default and this mode overwrites
  789. ;; existing keybindings.
  790. ;; Apparently it is a HARMFUL behavior and it is really awful that I have
  791. ;; to disable thie mode here, but do anyway.
  792. ;; See also https://github.com/magit/magit/issues/3517
  793. (global-magit-file-mode -1))
  794. (with-eval-after-load 'magit-section
  795. (set-face-background 'magit-section-highlight
  796. nil))
  797. (with-eval-after-load 'magit-diff
  798. (set-face-background 'magit-diff-added-highlight
  799. nil)
  800. (set-face-background 'magit-diff-removed-highlight
  801. nil)
  802. (set-face-background 'magit-diff-context-highlight
  803. nil)
  804. )
  805. (when (boundp 'git-rebase-filename-regexp)
  806. (add-to-list 'auto-mode-alist
  807. `(,git-rebase-filename-regexp . text-mode)))
  808. (when (safe-require-or-eval 'aggressive-indent)
  809. (defvar aggressive-indent-excluded-modes)
  810. (setq aggressive-indent-excluded-modes
  811. `(diff-mode
  812. toml-mode
  813. conf-mode
  814. dockerfile-mode
  815. groovy-mode
  816. scala-mode
  817. ,@aggressive-indent-excluded-modes))
  818. (global-aggressive-indent-mode 1))
  819. (when (autoload-eval-lazily 'ggtags)
  820. (add-hook 'c-mode-common-hook
  821. (lambda ()
  822. (when (derived-mode-p 'c-mode 'c++-mode 'java-mode)
  823. (ggtags-mode 1))))
  824. (add-hook 'python-mode-hook
  825. (lambda ()
  826. (ggtags-mode 1))))
  827. (when (autoload-eval-lazily 'imenu-list)
  828. ;; (set-variable 'imenu-list-auto-resize t)
  829. (set-variable 'imenu-list-focus-after-activation t)
  830. (define-key ctl-x-map "l" 'imenu-list-smart-toggle))
  831. (add-hook 'emacs-lisp-mode-hook
  832. (lambda ()
  833. (setq imenu-generic-expression
  834. `(("Sections" ";;;\+\n;; \\(.*\\)\n" 1)
  835. ,@imenu-generic-expression))))
  836. (with-eval-after-load 'compile
  837. (defvar compilation-filter-start)
  838. (defvar compilation-error-regexp-alist)
  839. (require 'ansi-color)
  840. (add-hook 'compilation-filter-hook
  841. (lambda ()
  842. (let ((inhibit-read-only t))
  843. (ansi-color-apply-on-region compilation-filter-start
  844. (point)))))
  845. (add-to-list 'compilation-error-regexp-alist
  846. ;; ansible-lint
  847. '("^\\([^ \n]+\\):\\([0-9]+\\)$" 1 2)))
  848. ;; Workaround to avoid ensime error
  849. (defvar ensime-mode-key-prefix nil)
  850. ;; http://qiita.com/sune2/items/b73037f9e85962f5afb7
  851. (when (safe-require-or-eval 'company)
  852. (global-company-mode)
  853. (set-variable 'company-idle-delay 0.5)
  854. (set-variable 'company-minimum-prefix-length 2)
  855. (set-variable 'company-selection-wrap-around t))
  856. ;; https://github.com/lunaryorn/flycheck
  857. (when (safe-require-or-eval 'flycheck)
  858. (call-after-init 'global-flycheck-mode))
  859. (when (autoload-eval-lazily 'ilookup)
  860. (define-key ctl-x-map "d" 'ilookup-open-word))
  861. (set-variable 'ac-ignore-case nil)
  862. (when (autoload-eval-lazily 'term-run '(term-run-shell-command term-run))
  863. (define-key ctl-x-map "t" 'term-run-shell-command))
  864. (add-to-list 'safe-local-variable-values
  865. '(encoding utf-8))
  866. (setq enable-local-variables :safe)
  867. ;; Detect file type from shebang and set major-mode.
  868. (add-to-list 'interpreter-mode-alist
  869. '("python3" . python-mode))
  870. (add-to-list 'interpreter-mode-alist
  871. '("python2" . python-mode))
  872. (with-eval-after-load 'python
  873. (defvar python-mode-map (make-sparse-keymap))
  874. (define-key python-mode-map (kbd "C-m") 'newline-and-indent))
  875. (when (autoload-eval-lazily 'pipenv)
  876. (add-hook 'python-mode-hook
  877. (lambda ()
  878. (pipenv-mode 1)
  879. (pipenv-projectile-after-switch-default)))
  880. )
  881. (set-variable 'flycheck-python-pycompile-executable "python3")
  882. (set-variable 'python-indent-guess-indent-offset nil)
  883. (with-eval-after-load 'blacken
  884. (when (require 'with-venv nil t)
  885. (with-venv-advice-add 'blacken-buffer)))
  886. ;; http://fukuyama.co/foreign-regexp
  887. '(and (safe-require-or-eval 'foreign-regexp)
  888. (progn
  889. (setq foreign-regexp/regexp-type 'perl)
  890. '(setq reb-re-syntax 'foreign-regexp)
  891. ))
  892. (autoload-eval-lazily 'sql '(sql-mode)
  893. (require 'sql-indent nil t))
  894. (add-to-list 'auto-mode-alist
  895. '("\\.hql\\'" . sql-mode))
  896. (when (autoload-eval-lazily 'git-command)
  897. (define-key ctl-x-map "g" 'git-command))
  898. (when (autoload-eval-lazily 'gited)
  899. (define-key ctl-x-map (kbd "C-g") 'gited-list))
  900. (when (safe-require-or-eval 'git-commit)
  901. (global-git-commit-mode 1))
  902. (with-eval-after-load 'git-commit
  903. (add-hook 'git-commit-setup-hook
  904. 'turn-off-auto-fill t))
  905. (autoload-eval-lazily 'sl)
  906. (with-eval-after-load 'rst
  907. (defvar rst-mode-map)
  908. (define-key rst-mode-map (kbd "C-m") 'newline-and-indent))
  909. (with-eval-after-load 'jdee
  910. (add-hook 'jdee-mode-hook
  911. (lambda ()
  912. (make-local-variable 'global-mode-string)
  913. (add-to-list 'global-mode-string
  914. mode-line-position))))
  915. ;; Cannot enable error thrown. Why???
  916. ;; https://github.com/m0smith/malabar-mode#Installation
  917. ;; (when (autoload-eval-lazily 'malabar-mode)
  918. ;; (add-to-list 'load-path
  919. ;; (expand-file-name (concat user-emacs-directory "/cedet")))
  920. ;; (safe-require-or-eval 'cedet-devel-load)
  921. ;; (call-after-init 'activate-malabar-mode))
  922. (with-eval-after-load 'make-mode
  923. (defvar makefile-mode-map (make-sparse-keymap))
  924. (define-key makefile-mode-map (kbd "C-m") 'newline-and-indent)
  925. ;; this functions is set in write-file-functions, i cannot find any
  926. ;; good way to remove this.
  927. (fset 'makefile-warn-suspicious-lines 'ignore))
  928. (with-eval-after-load 'verilog-mode
  929. (defvar verilog-mode-map (make-sparse-keymap))
  930. (define-key verilog-mode-map ";" 'self-insert-command))
  931. (setq diff-switches "-u")
  932. (with-eval-after-load 'diff-mode
  933. ;; (when (and (eq major-mode
  934. ;; 'diff-mode)
  935. ;; (not buffer-file-name))
  936. ;; ;; do not pass when major-mode is derived mode of diff-mode
  937. ;; (view-mode 1))
  938. (set-face-attribute 'diff-header nil
  939. :foreground nil
  940. :background nil
  941. :weight 'bold)
  942. (set-face-attribute 'diff-file-header nil
  943. :foreground nil
  944. :background nil
  945. :weight 'bold)
  946. (set-face-foreground 'diff-index "blue")
  947. (set-face-attribute 'diff-hunk-header nil
  948. :foreground "cyan"
  949. :weight 'normal)
  950. (set-face-attribute 'diff-context nil
  951. ;; :foreground "white"
  952. :foreground nil
  953. :weight 'normal)
  954. (set-face-foreground 'diff-removed "red")
  955. (set-face-foreground 'diff-added "green")
  956. (set-face-background 'diff-removed nil)
  957. (set-face-background 'diff-added nil)
  958. (set-face-attribute 'diff-changed nil
  959. :foreground "magenta"
  960. :weight 'normal)
  961. (set-face-attribute 'diff-refine-changed nil
  962. :foreground nil
  963. :background nil
  964. :weight 'bold
  965. :inverse-video t)
  966. ;; Annoying !
  967. ;;(diff-auto-refine-mode)
  968. )
  969. ;; (ffap-bindings)
  970. (set-variable 'browse-url-browser-function
  971. 'eww-browse-url)
  972. (set-variable 'sh-here-document-word "__EOC__")
  973. (when (autoload-eval-lazily 'adoc-mode
  974. nil
  975. (defvar adoc-mode-map (make-sparse-keymap))
  976. (define-key adoc-mode-map (kbd "C-m") 'newline))
  977. (setq auto-mode-alist
  978. `(("\\.adoc\\'" . adoc-mode)
  979. ("\\.asciidoc\\'" . adoc-mode)
  980. ,@auto-mode-alist)))
  981. (with-eval-after-load 'markup-faces
  982. ;; Is this too match ?
  983. (set-face-foreground 'markup-meta-face
  984. "color-245")
  985. (set-face-foreground 'markup-meta-hide-face
  986. "color-245")
  987. )
  988. ;; TODO: check if this is required
  989. (when (autoload-eval-lazily 'groovy-mode nil
  990. (defvar groovy-mode-map (make-sparse-keymap))
  991. (define-key groovy-mode-map "(" 'self-insert-command)
  992. (define-key groovy-mode-map ")" 'self-insert-command)
  993. (define-key groovy-mode-map (kbd "C-m") 'newline-and-indent)
  994. )
  995. (add-to-list 'auto-mode-alist
  996. '("build\\.gradle\\'" . groovy-mode)))
  997. (add-to-list 'auto-mode-alist
  998. '("\\.gawk\\'" . awk-mode))
  999. (with-eval-after-load 'yaml-mode
  1000. (defvar yaml-mode-map (make-sparse-keymap))
  1001. (define-key yaml-mode-map (kbd "C-m") 'newline))
  1002. (with-eval-after-load 'html-mode
  1003. (defvar html-mode-map (make-sparse-keymap))
  1004. (define-key html-mode-map (kbd "C-m") 'reindent-then-newline-and-indent))
  1005. (with-eval-after-load 'text-mode
  1006. (define-key text-mode-map (kbd "C-m") 'newline))
  1007. (autoload-eval-lazily 'info nil
  1008. (defvar Info-additional-directory-list)
  1009. (dolist (dir (directory-files (concat user-emacs-directory
  1010. "info")
  1011. t
  1012. "^[^.].*"))
  1013. (when (file-directory-p dir)
  1014. (add-to-list 'Info-additional-directory-list
  1015. dir)))
  1016. (let ((dir (expand-file-name "~/.brew/share/info")))
  1017. (when (file-directory-p dir)
  1018. (add-to-list 'Info-additional-directory-list
  1019. dir))))
  1020. (with-eval-after-load 'apropos
  1021. (defvar apropos-mode-map (make-sparse-keymap))
  1022. (define-key apropos-mode-map "n" 'next-line)
  1023. (define-key apropos-mode-map "p" 'previous-line))
  1024. ;; `isearch' library does not call `provide' so cannot use with-eval-after-load
  1025. ;; (define-key isearch-mode-map
  1026. ;; (kbd "C-j") 'isearch-other-control-char)
  1027. ;; (define-key isearch-mode-map
  1028. ;; (kbd "C-k") 'isearch-other-control-char)
  1029. ;; (define-key isearch-mode-map
  1030. ;; (kbd "C-h") 'isearch-other-control-char)
  1031. (define-key isearch-mode-map (kbd "C-h") 'isearch-del-char)
  1032. (define-key isearch-mode-map (kbd "M-r")
  1033. 'isearch-query-replace-regexp)
  1034. ;; do not cleanup isearch highlight: use `lazy-highlight-cleanup' to remove
  1035. (setq lazy-highlight-cleanup nil)
  1036. ;; face for isearch highlighing
  1037. (set-face-attribute 'lazy-highlight
  1038. nil
  1039. :foreground `unspecified
  1040. :background `unspecified
  1041. :underline t
  1042. ;; :weight `bold
  1043. )
  1044. (add-hook 'outline-mode-hook
  1045. (lambda ()
  1046. (when (string-match "\\.md\\'" buffer-file-name)
  1047. (set (make-local-variable 'outline-regexp) "#+ "))))
  1048. (add-hook 'outline-mode-hook
  1049. 'outline-show-all)
  1050. (add-to-list 'auto-mode-alist (cons "\\.ol\\'" 'outline-mode))
  1051. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode))
  1052. (when (autoload-eval-lazily 'markdown-mode
  1053. '(markdown-mode gfm-mode)
  1054. (defvar gfm-mode-map (make-sparse-keymap))
  1055. (define-key gfm-mode-map (kbd "C-m") 'electric-indent-just-newline))
  1056. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'gfm-mode))
  1057. (set-variable 'markdown-command (or (executable-find "markdown")
  1058. (executable-find "markdown.pl")
  1059. ""))
  1060. (add-hook 'markdown-mode-hook
  1061. (lambda ()
  1062. (outline-minor-mode 1)
  1063. (flyspell-mode)
  1064. (set (make-local-variable 'comment-start) ";")))
  1065. )
  1066. ;; c-mode
  1067. ;; http://www.emacswiki.org/emacs/IndentingC
  1068. ;; http://en.wikipedia.org/wiki/Indent_style
  1069. ;; http://d.hatena.ne.jp/emergent/20070203/1170512717
  1070. ;; http://seesaawiki.jp/whiteflare503/d/Emacs%20%a5%a4%a5%f3%a5%c7%a5%f3%a5%c8
  1071. (with-eval-after-load 'cc-vars
  1072. (defvar c-default-style nil)
  1073. (add-to-list 'c-default-style
  1074. '(c-mode . "k&r"))
  1075. (add-to-list 'c-default-style
  1076. '(c++-mode . "k&r")))
  1077. (autoload-eval-lazily 'js2-mode nil
  1078. ;; currently do not use js2-mode
  1079. ;; (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
  1080. ;; (add-to-list 'auto-mode-alist '("\\.jsm\\'" . js2-mode))
  1081. ;; (defvar js2-mode-map (make-sparse-keymap))
  1082. ;; (define-key js2-mode-map (kbd "C-m") (lambda ()
  1083. ;; (interactive)
  1084. ;; (js2-enter-key)
  1085. ;; (indent-for-tab-command)))
  1086. ;; (add-hook (kill-local-variable 'before-save-hook)
  1087. ;; 'js2-before-save)
  1088. ;; (add-hook 'before-save-hook
  1089. ;; 'my-indent-buffer
  1090. ;; nil
  1091. ;; t)
  1092. )
  1093. (add-to-list 'interpreter-mode-alist
  1094. '("node" . js-mode))
  1095. (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
  1096. (with-eval-after-load 'uniquify
  1097. (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
  1098. (setq uniquify-ignore-buffers-re "*[^*]+*")
  1099. (setq uniquify-min-dir-content 1))
  1100. (with-eval-after-load 'view
  1101. (defvar view-mode-map (make-sparse-keymap))
  1102. (define-key view-mode-map "j" 'scroll-up-line)
  1103. (define-key view-mode-map "k" 'scroll-down-line)
  1104. (define-key view-mode-map "v" 'toggle-read-only)
  1105. (define-key view-mode-map "q" 'bury-buffer)
  1106. ;; (define-key view-mode-map "/" 'nonincremental-re-search-forward)
  1107. ;; (define-key view-mode-map "?" 'nonincremental-re-search-backward)
  1108. ;; (define-key view-mode-map
  1109. ;; "n" 'nonincremental-repeat-search-forward)
  1110. ;; (define-key view-mode-map
  1111. ;; "N" 'nonincremental-repeat-search-backward)
  1112. ;; N conflicts with git-walktree
  1113. ;; (define-key view-mode-map "/" 'isearch-forward-regexp)
  1114. ;; (define-key view-mode-map "?" 'isearch-backward-regexp)
  1115. ;; (define-key view-mode-map "n" 'isearch-repeat-forward)
  1116. ;; (define-key view-mode-map "N" 'isearch-repeat-backward)
  1117. (define-key view-mode-map (kbd "C-m") 'my-rgrep-symbol-at-point))
  1118. (global-set-key "\M-r" 'view-mode)
  1119. ;; (setq view-read-only t)
  1120. (with-eval-after-load 'term
  1121. (defvar term-raw-map (make-sparse-keymap))
  1122. (define-key term-raw-map (kbd "C-x")
  1123. (lookup-key (current-global-map)
  1124. (kbd "C-x"))))
  1125. (add-hook 'term-mode-hook
  1126. (lambda ()
  1127. ;; Stop current line highlighting
  1128. (set (make-local-variable (defvar hl-line-range-function))
  1129. (lambda () '(0 . 0)))
  1130. (set (make-local-variable 'scroll-margin)
  1131. 0)
  1132. (set-variable 'term-buffer-maximum-size 20480)
  1133. ))
  1134. (add-hook 'Man-mode-hook
  1135. (lambda ()
  1136. (view-mode 1)
  1137. (setq truncate-lines nil)))
  1138. (set-variable 'Man-notify-method (if window-system
  1139. 'newframe
  1140. 'aggressive))
  1141. (set-variable 'woman-cache-filename (expand-file-name (concat user-emacs-directory
  1142. "woman_cache.el")))
  1143. ;; not work because man.el will be loaded when man called
  1144. (defalias 'man 'woman)
  1145. (add-to-list 'auto-mode-alist
  1146. '("tox\\.ini\\'" . conf-unix-mode))
  1147. (when (autoload-eval-lazily 'toml-mode)
  1148. (add-to-list 'auto-mode-alist
  1149. '("/tox\\.ini\\'" . toml-mode))
  1150. (add-to-list 'auto-mode-alist
  1151. '("/Pipfile\\'" . toml-mode))
  1152. (add-to-list 'auto-mode-alist
  1153. '("/poetry\\.lock\\'" . toml-mode))
  1154. )
  1155. (when (autoload-eval-lazily 'json-mode)
  1156. (add-to-list 'auto-mode-alist
  1157. '("/Pipfile\\.lock\\'" . json-mode)))
  1158. (add-hook 'go-mode-hook
  1159. (lambda()
  1160. (defvar go-mode-map)
  1161. (add-hook 'before-save-hook' 'gofmt-before-save nil t)
  1162. (define-key go-mode-map (kbd "M-.") 'godef-jump)))
  1163. (when (autoload-eval-lazily 'k8s-mode)
  1164. (add-to-list 'auto-mode-alist
  1165. '("\\.k8s\\'" . k8s-mode)))
  1166. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1167. ;; buffers
  1168. (defvar bs-configurations)
  1169. (when (autoload-eval-lazily 'bs '(bs-show)
  1170. (add-to-list 'bs-configurations
  1171. '("specials" "^\\*" nil ".*" nil nil))
  1172. (add-to-list 'bs-configurations
  1173. '("files-and-specials" "^\\*" buffer-file-name ".*" nil nil))
  1174. (defvar bs-mode-map)
  1175. (defvar bs-current-configuration)
  1176. (define-key bs-mode-map (kbd "t")
  1177. ;; TODO: fix toggle feature
  1178. (lambda ()
  1179. (interactive)
  1180. (if (string= "specials"
  1181. bs-current-configuration)
  1182. (bs-set-configuration "files")
  1183. (bs-set-configuration "specials"))
  1184. (bs-refresh)
  1185. (bs-message-without-log "%s"
  1186. (bs--current-config-message))))
  1187. ;; (setq bs-configurations (list
  1188. ;; '("processes" nil get-buffer-process ".*" nil nil)
  1189. ;; '("files-and-scratch" "^\\*scratch\\*$" nil nil
  1190. ;; bs-visits-non-file bs-sort-buffer-interns-are-last)))
  1191. )
  1192. (defalias 'list-buffers 'bs-show)
  1193. (set-variable 'bs-default-configuration "files-and-specials")
  1194. (set-variable 'bs-default-sort-name "by nothing")
  1195. (add-hook 'bs-mode-hook
  1196. (lambda ()
  1197. (set (make-local-variable 'scroll-margin) 0))))
  1198. ;;(iswitchb-mode 1)
  1199. (icomplete-mode)
  1200. (defun iswitchb-buffer-display-other-window ()
  1201. "Do iswitchb in other window."
  1202. (interactive)
  1203. (let ((iswitchb-default-method 'display))
  1204. (call-interactively 'iswitchb-buffer)))
  1205. ;; buffer killing
  1206. ;; (defun my-delete-window-killing-buffer () nil)
  1207. (defun my-query-kill-current-buffer ()
  1208. "Interactively kill current buffer."
  1209. (interactive)
  1210. (if (y-or-n-p (concat "kill current buffer? :"))
  1211. (kill-buffer (current-buffer))))
  1212. ;;(global-set-key "\C-xk" 'my-query-kill-current-buffer)
  1213. (substitute-key-definition 'kill-buffer
  1214. 'my-query-kill-current-buffer
  1215. global-map)
  1216. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1217. ;; recentf-mode
  1218. (set-variable 'recentf-save-file (expand-file-name (concat user-emacs-directory
  1219. "recentf")))
  1220. (set-variable 'recentf-max-menu-items 20)
  1221. (set-variable 'recentf-max-saved-items 30)
  1222. (set-variable 'recentf-show-file-shortcuts-flag nil)
  1223. (set-variable 'recentf-auto-cleanup 3)
  1224. ;; (safe-require-or-eval 'sync-recentf)
  1225. ;; (when (safe-require-or-eval 'recentf)
  1226. ;; (add-to-list 'recentf-exclude
  1227. ;; (regexp-quote recentf-save-file))
  1228. ;; (add-to-list 'recentf-exclude
  1229. ;; (regexp-quote (expand-file-name user-emacs-directory)))
  1230. ;; (add-to-list 'recentf-exclude
  1231. ;; "/sync-recentf-marker\\'")
  1232. ;; (define-key ctl-x-map (kbd "C-r") 'recentf-open-files)
  1233. ;; (remove-hook 'find-file-hook
  1234. ;; 'recentf-track-opened-file)
  1235. ;; (defun my-recentf-load-track-save-list ()
  1236. ;; "Load current recentf list from file, track current visiting file, then save
  1237. ;; the list."
  1238. ;; (recentf-load-list)
  1239. ;; (recentf-track-opened-file)
  1240. ;; (recentf-save-list))
  1241. ;; (add-hook 'find-file-hook
  1242. ;; 'my-recentf-load-track-save-list)
  1243. ;; (add-hook 'kill-emacs-hook
  1244. ;; 'recentf-load-list)
  1245. ;; ;;(run-with-idle-timer 5 t 'recentf-save-list)
  1246. ;; ;; (add-hook 'find-file-hook
  1247. ;; ;; (lambda ()
  1248. ;; ;; (recentf-add-file default-directory)))
  1249. ;; (when (autoload-eval-lazily 'recentf-show)
  1250. ;; (define-key ctl-x-map (kbd "C-r") 'recentf-show)
  1251. ;; ;; (add-hook 'recentf-show-before-listing-hook
  1252. ;; ;; 'recentf-load-list)
  1253. ;; )
  1254. ;; (recentf-mode 1)
  1255. ;; (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line)
  1256. ;; (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line)
  1257. ;; (define-key recentf-dialog-mode-map "p" 'previous-line)
  1258. ;; (define-key recentf-dialog-mode-map "n" 'next-line)
  1259. ;; (add-hook 'recentf-dialog-mode-hook
  1260. ;; (lambda ()
  1261. ;; ;; (recentf-save-list)
  1262. ;; ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f")
  1263. ;; ;; 'my-recentf-cd-and-find-file)
  1264. ;; (cd "~/"))))
  1265. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1266. ;; dired
  1267. (defun my-file-head (filename &optional n)
  1268. "Return list of first N lines of file FILENAME."
  1269. ;; TODO: Fix for janapese text
  1270. ;; TODO: Fix for short text
  1271. (let ((num (or n 10))
  1272. (size 100)
  1273. (beg 0)
  1274. (end 0)
  1275. (result '())
  1276. (read -1))
  1277. (with-temp-buffer
  1278. (erase-buffer)
  1279. (while (or (<= (count-lines (point-min)
  1280. (point-max))
  1281. num)
  1282. (eq read 0))
  1283. (setq end (+ beg size))
  1284. (setq read (nth 1 (insert-file-contents-literally filename
  1285. nil
  1286. beg
  1287. end)))
  1288. (goto-char (point-max))
  1289. (setq beg (+ beg size)))
  1290. (goto-char (point-min))
  1291. (while (< (length result) num)
  1292. (let ((start (point)))
  1293. (forward-line 1)
  1294. (setq result
  1295. `(,@result ,(buffer-substring-no-properties start
  1296. (point))))))
  1297. result
  1298. ;; (buffer-substring-no-properties (point-min)
  1299. ;; (progn
  1300. ;; (forward-line num)
  1301. ;; (point)))
  1302. )))
  1303. ;; (apply 'concat (my-file-head "./shrc" 10)
  1304. (defun my-dired-echo-file-head (arg)
  1305. "Echo head of current file.
  1306. ARG is num to show, or defaults to 7."
  1307. (interactive "P")
  1308. (let ((f (dired-get-filename)))
  1309. (message "%s"
  1310. (apply 'concat
  1311. (my-file-head f
  1312. 7)))))
  1313. (defun my-dired-diff ()
  1314. "Show diff of marked file and file of current line."
  1315. (interactive)
  1316. (let ((files (dired-get-marked-files nil nil nil t)))
  1317. (if (eq (car files)
  1318. t)
  1319. (diff (cadr files) (dired-get-filename))
  1320. (message "One file must be marked!"))))
  1321. (defun dired-get-file-info ()
  1322. "Print information of current line file."
  1323. (interactive)
  1324. (let ((f (shell-quote-argument (dired-get-filename t))))
  1325. (if (file-directory-p f)
  1326. (progn
  1327. (message "Calculating disk usage...")
  1328. (shell-command (concat "du -hsD "
  1329. f)))
  1330. (shell-command (concat "file "
  1331. f)))))
  1332. (defun my-dired-scroll-up ()
  1333. "Scroll up."
  1334. (interactive)
  1335. (my-dired-previous-line (- (window-height) 1)))
  1336. (defun my-dired-scroll-down ()
  1337. "Scroll down."
  1338. (interactive)
  1339. (my-dired-next-line (- (window-height) 1)))
  1340. ;; (defun my-dired-forward-line (arg)
  1341. ;; ""
  1342. ;; (interactive "p"))
  1343. (defun my-dired-previous-line (arg)
  1344. "Move ARG lines up."
  1345. (interactive "p")
  1346. (if (> arg 0)
  1347. (progn
  1348. (if (eq (line-number-at-pos)
  1349. 1)
  1350. (goto-char (point-max))
  1351. (forward-line -1))
  1352. (my-dired-previous-line (if (or (dired-get-filename nil t)
  1353. (dired-get-subdir))
  1354. (- arg 1)
  1355. arg)))
  1356. (dired-move-to-filename)))
  1357. (defun my-dired-next-line (arg)
  1358. "Move ARG lines down."
  1359. (interactive "p")
  1360. (if (> arg 0)
  1361. (progn
  1362. (if (eq (point)
  1363. (point-max))
  1364. (goto-char (point-min))
  1365. (forward-line 1))
  1366. (my-dired-next-line (if (or (dired-get-filename nil t)
  1367. (dired-get-subdir))
  1368. (- arg 1)
  1369. arg)))
  1370. (dired-move-to-filename)))
  1371. (defun my-tramp-remote-find-file (f)
  1372. "Open F."
  1373. (interactive (list (read-file-name "My Find File Tramp: "
  1374. "/scp:"
  1375. nil ;; "/scp:"
  1376. (confirm-nonexistent-file-or-buffer))))
  1377. (find-file f))
  1378. ;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html
  1379. (if (eq window-system 'mac)
  1380. (setq dired-listing-switches "-lhF")
  1381. (setq dired-listing-switches "-lhF --time-style=long-iso")
  1382. )
  1383. (setq dired-listing-switches "-lhF")
  1384. ;; when using dired-find-alternate-file
  1385. ;; reuse current dired buffer for the file to open
  1386. ;; (put 'dired-find-alternate-file 'disabled nil)
  1387. (set-variable 'dired-ls-F-marks-symlinks t)
  1388. (set-variable 'ls-lisp-use-insert-directory-program nil) ; always use ls-lisp
  1389. (set-variable 'ls-lisp-dirs-first t)
  1390. (set-variable 'ls-lisp-use-localized-time-format t)
  1391. (set-variable 'ls-lisp-format-time-list
  1392. '("%Y-%m-%d %H:%M"
  1393. "%Y-%m-%d "))
  1394. (set-variable 'dired-dwim-target t)
  1395. (set-variable 'dired-isearch-filenames t)
  1396. (set-variable 'dired-hide-details-hide-symlink-targets nil)
  1397. (set-variable 'dired-hide-details-hide-information-lines nil)
  1398. (set-variable 'dired-deletion-confirmer 'y-or-n-p)
  1399. (set-variable 'dired-recursive-deletes 'always)
  1400. ;; (add-hook 'dired-after-readin-hook
  1401. ;; 'my-replace-nasi-none)
  1402. (with-eval-after-load 'dired
  1403. (safe-require-or-eval 'ls-lisp)
  1404. (defvar dired-mode-map (make-sparse-keymap))
  1405. ;; dired-do-chgrp sometimes cause system hung
  1406. (define-key dired-mode-map "G" 'ignore)
  1407. (define-key dired-mode-map "e" 'wdired-change-to-wdired-mode)
  1408. (define-key dired-mode-map "i" 'dired-get-file-info)
  1409. ;; (define-key dired-mode-map "f" 'find-file)
  1410. (define-key dired-mode-map "f" 'my-fzf-or-find-file)
  1411. (define-key dired-mode-map "z" 'fzf)
  1412. (define-key dired-mode-map "!" 'shell-command)
  1413. (define-key dired-mode-map "&" 'async-shell-command)
  1414. (define-key dired-mode-map "X" 'dired-do-async-shell-command)
  1415. (define-key dired-mode-map "=" 'my-dired-diff)
  1416. (define-key dired-mode-map "B" 'gtkbm-add-current-dir)
  1417. (define-key dired-mode-map "b" 'gtkbm)
  1418. (define-key dired-mode-map "h" 'my-dired-echo-file-head)
  1419. (define-key dired-mode-map (kbd "TAB") 'other-window)
  1420. ;; (define-key dired-mode-map "P" 'my-dired-do-pack-or-unpack)
  1421. (define-key dired-mode-map "/" 'dired-isearch-filenames)
  1422. (define-key dired-mode-map (kbd "DEL") 'dired-up-directory)
  1423. (define-key dired-mode-map (kbd "C-h") 'dired-up-directory)
  1424. (substitute-key-definition 'dired-next-line
  1425. 'my-dired-next-line
  1426. dired-mode-map)
  1427. (substitute-key-definition 'dired-previous-line
  1428. 'my-dired-previous-line
  1429. dired-mode-map)
  1430. ;; (define-key dired-mode-map (kbd "C-p") 'my-dired-previous-line)
  1431. ;; (define-key dired-mode-map (kbd "p") 'my-dired-previous-line)
  1432. ;; (define-key dired-mode-map (kbd "C-n") 'my-dired-next-line)
  1433. ;; (define-key dired-mode-map (kbd "n") 'my-dired-next-line)
  1434. (define-key dired-mode-map (kbd "<left>") 'my-dired-scroll-up)
  1435. (define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)
  1436. (define-key dired-mode-map (kbd "ESC p") 'my-dired-scroll-up)
  1437. (define-key dired-mode-map (kbd "ESC n") 'my-dired-scroll-down)
  1438. (add-hook 'dired-mode-hook
  1439. (lambda ()
  1440. (when (fboundp 'dired-hide-details-mode)
  1441. (dired-hide-details-mode t)
  1442. (local-set-key "l" 'dired-hide-details-mode))
  1443. (let ((file "._Icon\015"))
  1444. (when nil
  1445. '(file-readable-p file)
  1446. (delete-file file)))))
  1447. (when (autoload-eval-lazily 'pack '(dired-do-pack-or-unpack pack-pack)
  1448. (add-to-list 'pack-program-alist
  1449. '("\\.txz\\'" :pack "tar -cJf" :unpack "tar -xf")))
  1450. (set-variable 'pack-silence
  1451. t)
  1452. (with-eval-after-load 'dired
  1453. (define-key dired-mode-map "P" 'pack-dired-dwim)))
  1454. (when (autoload-eval-lazily 'dired-list-all-mode)
  1455. (setq dired-listing-switches "-lhF")
  1456. (with-eval-after-load 'dired
  1457. (define-key dired-mode-map "a" 'dired-list-all-mode))))
  1458. (when (autoload-eval-lazily 'dired-filter)
  1459. (add-hook 'dired-mode-hook
  1460. 'dired-filter-mode))
  1461. (set-variable 'dired-filter-stack nil)
  1462. ;; Currently disabled in favor of dired-from-git-ls-files
  1463. ;; (define-key ctl-x-map "f" 'find-dired)
  1464. ;; It works!
  1465. ;; (pop-to-buffer (dired-noselect '("." "shrc" "emacs.el")))
  1466. (defun my-dired-git-ls-files (args)
  1467. "Dired from git ls-files."
  1468. (interactive "sgit ls-files args: ")
  1469. (pop-to-buffer-same-window
  1470. (dired-noselect `(,default-directory
  1471. ,@(split-string (shell-command-to-string (concat "git ls-files -z " args))
  1472. "\0" t))
  1473. ""))
  1474. )
  1475. (define-key ctl-x-map (kbd "G") 'my-dired-git-ls-files)
  1476. (with-eval-after-load 'dired
  1477. (defvar dired-mode-map (make-sparse-keymap))
  1478. (define-key dired-mode-map "G" 'my-dired-git-ls-files))
  1479. ;; (define-minor-mode my-dired-glob-filter)
  1480. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1481. ;; misc funcs
  1482. (when (fboundp 'browse-url-default-macosx-browser)
  1483. (defalias 'browse-osx 'browse-url-default-macosx-browser))
  1484. (defalias 'qcalc 'quick-calc)
  1485. (defun memo (&optional dir)
  1486. "Open memo.txt in DIR."
  1487. (interactive)
  1488. (pop-to-buffer (find-file-noselect (concat (if dir
  1489. (file-name-as-directory dir)
  1490. "")
  1491. "memo.txt"))))
  1492. (set (defvar my-rgrep-alist nil
  1493. "Alist of rgrep command.
  1494. Each element is in the form like (NAME SEXP COMMAND), where SEXP returns the
  1495. condition to choose COMMAND when evaluated.")
  1496. `(
  1497. ;; ripgrep
  1498. ("rg"
  1499. (executable-find "rg")
  1500. "rg -nH --no-heading --color=always --hidden --glob '!.git/' --smart-case -M 1280 ")
  1501. ;; git grep
  1502. ("gitgrep"
  1503. (eq 0
  1504. (shell-command "git rev-parse --git-dir"))
  1505. "git --no-pager -c color.grep=always grep -nH -e ")
  1506. ;; sift
  1507. ("sift"
  1508. (executable-find "sift")
  1509. ("sift --binary-skip --filename --line-number --git --smart-case "))
  1510. ;; the silver searcher
  1511. ("ag"
  1512. (executable-find "ag")
  1513. "ag --nogroup --nopager --filename ")
  1514. ;; ack
  1515. ("ack"
  1516. (executable-find "ack")
  1517. "ack --nogroup --nopager --with-filename ")
  1518. ;; gnu global
  1519. ("global"
  1520. (and (require 'ggtags nil t)
  1521. (executable-find "global")
  1522. (ggtags-current-project-root))
  1523. "global --result grep ")
  1524. ;; grep
  1525. ("grep"
  1526. t
  1527. ,(concat "find . "
  1528. "-path '*/.git' -prune -o "
  1529. "-path '*/.svn' -prune -o "
  1530. "-type f -print0 | "
  1531. "xargs -0 grep -nH -e "))
  1532. )
  1533. )
  1534. (defvar my-rgrep-default nil
  1535. "Default command name for my-rgrep.")
  1536. (defun my-rgrep-grep-command (&optional name alist)
  1537. "Return recursive grep command for current directory or nil.
  1538. If NAME is given, use that without testing.
  1539. Commands are searched from ALIST."
  1540. (if alist
  1541. (if name
  1542. ;; if name is given search that from alist and return the command
  1543. (nth 2 (assoc name
  1544. alist))
  1545. ;; if name is not given try test in 1th elem
  1546. (let ((car (car alist))
  1547. (cdr (cdr alist)))
  1548. (if (eval (nth 1 car))
  1549. ;; if the condition is true return the command
  1550. (nth 2 car)
  1551. ;; try next one
  1552. (and cdr
  1553. (my-rgrep-grep-command name cdr)))))
  1554. ;; if alist is not given set default value
  1555. (my-rgrep-grep-command name my-rgrep-alist)))
  1556. (defun my-rgrep (command-args)
  1557. "My recursive grep. Run COMMAND-ARGS.
  1558. If prefix argument is given, use current symbol as default search target
  1559. and search from projectile root (if projectile is available)."
  1560. (interactive (let ((cmd (my-rgrep-grep-command my-rgrep-default
  1561. nil)))
  1562. (if cmd
  1563. (list (read-shell-command "grep command: "
  1564. (concat cmd
  1565. (if current-prefix-arg
  1566. (thing-at-point 'symbol t)
  1567. ""))
  1568. 'grep-find-history))
  1569. (error "My-Rgrep: Command for rgrep not found")
  1570. )))
  1571. (if (and current-prefix-arg
  1572. (safe-require-or-eval 'projectile)
  1573. (projectile-project-p))
  1574. (projectile-with-default-dir (projectile-project-root)
  1575. (compilation-start command-args
  1576. 'grep-mode))
  1577. (compilation-start command-args
  1578. 'grep-mode)))
  1579. (defun my-rgrep-thing-at-point-projectile-root ()
  1580. "My recursive grep to find thing at point from project root."
  1581. (interactive)
  1582. (let* ((cmd (my-rgrep-grep-command my-rgrep-default
  1583. nil))
  1584. (command-args
  1585. (if cmd
  1586. (concat cmd
  1587. (or (thing-at-point 'symbol t)
  1588. (error "No symbol at point")))
  1589. (error "My-Rgrep: Command for rgrep not found"))))
  1590. (if (safe-require-or-eval 'projectile)
  1591. (projectile-with-default-dir (or (projectile-project-root)
  1592. default-directory)
  1593. (compilation-start command-args
  1594. 'grep-mode))
  1595. (compilation-start command-args
  1596. 'grep-mode))))
  1597. (defmacro define-my-rgrep (name)
  1598. "Define rgrep for NAME."
  1599. `(defun ,(intern (concat "my-rgrep-"
  1600. name)) ()
  1601. ,(format "My recursive grep by %s."
  1602. name)
  1603. (interactive)
  1604. (let ((my-rgrep-default ,name))
  1605. (if (called-interactively-p 'any)
  1606. (call-interactively 'my-rgrep)
  1607. (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
  1608. )
  1609. (define-my-rgrep "ack")
  1610. (define-my-rgrep "ag")
  1611. (define-my-rgrep "rg")
  1612. (define-my-rgrep "sift")
  1613. (define-my-rgrep "gitgrep")
  1614. (define-my-rgrep "grep")
  1615. (define-my-rgrep "global")
  1616. (define-key ctl-x-map "s" 'my-rgrep)
  1617. (define-key ctl-x-map "." 'my-rgrep-thing-at-point-projectile-root)
  1618. (defun my-occur (regexp &optional region)
  1619. "My occur command to search REGEXP."
  1620. (interactive (list (read-string "List lines matching regexp: "
  1621. (thing-at-point 'symbol t))))
  1622. (occur regexp nil region))
  1623. (define-key ctl-x-map (kbd "C-o") 'my-occur)
  1624. (set-variable 'dumb-jump-prefer-searcher 'rg)
  1625. (defalias 'make 'compile)
  1626. (define-key ctl-x-map "c" 'compile)
  1627. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1628. ;; editorconfig-auto-apply
  1629. (define-minor-mode editorconfig-auto-apply-mode
  1630. "When saving .editorconfig file update buffer configs."
  1631. :global t ;; TODO: global nil and instruct to hook to editorconfig-conf-mode-hook
  1632. :lighter ""
  1633. (if editorconfig-auto-apply-mode
  1634. (add-hook 'after-save-hook
  1635. 'editorconfig-auto-apply-mode--run)
  1636. (remove-hook 'after-save-hook
  1637. 'editorconfig-auto-apply-mode--run)))
  1638. (defun editorconfig-auto-apply-mode--run ()
  1639. "When saving .editorconfig file walk all buffers and update configs."
  1640. (when (eq major-mode
  1641. 'editorconfig-conf-mode)
  1642. (let ((dir (file-name-directory buffer-file-name)))
  1643. (cl-dolist (buf (buffer-list))
  1644. (when (and (buffer-file-name buf)
  1645. (file-in-directory-p (buffer-file-name buf)
  1646. dir))
  1647. (with-current-buffer buf
  1648. (editorconfig-mode-apply)))))))
  1649. (editorconfig-auto-apply-mode 1)
  1650. (define-key ctl-x-map (kbd "C-r") 'recently-show)
  1651. (define-key ctl-x-map "T" 'git-worktree)
  1652. (define-key ctl-x-map "W" 'git-walktree)
  1653. ;;;;;;;;;;;;;;;;
  1654. ;; flychcek-black
  1655. (require 'flycheck)
  1656. (flycheck-define-checker python-black-check
  1657. "A Python style checker."
  1658. :command ("python3" "-m" "black"
  1659. "--check"
  1660. (config-file "--config" flycheck-black)
  1661. source)
  1662. :error-parser flycheck-parse-black-check
  1663. ;; :error-patterns
  1664. ;; (
  1665. ;; (error line-start "error: cannot format " (file-name) ": " (message) ": " line ":" column ": " (one-or-more any) line-end)
  1666. ;; (error line-start (message) " " (file-name) line-end)
  1667. ;; )
  1668. :enabled (lambda ()
  1669. (or (not (flycheck-python-needs-module-p 'python-black-check))
  1670. (flycheck-python-find-module 'python-black-check "black")))
  1671. :verify (lambda (_) (flycheck-python-verify-module 'python-black-check "black"))
  1672. :modes python-mode)
  1673. ;; (flycheck-define-checker python-black-diff
  1674. ;; "A Python style checker."
  1675. ;; :command ("python3"
  1676. ;; "-m" "black"
  1677. ;; (config-file "--config" flycheck-black)
  1678. ;; "--diff" source)
  1679. ;; :error-parser my-flycheck-parse-unified-diff
  1680. ;; :enabled (lambda ()
  1681. ;; (or (not (flycheck-python-needs-module-p 'python-black))
  1682. ;; (flycheck-python-find-module 'python-black "black")))
  1683. ;; :verify (lambda (_) (flycheck-python-verify-module 'python-black "black"))
  1684. ;; :modes python-mode)
  1685. (flycheck-def-config-file-var flycheck-black python-black-check "pyproject.toml"
  1686. :safe #'stringp)
  1687. (add-to-list 'flycheck-checkers
  1688. 'python-black-check)
  1689. (defun flycheck-parse-black-check (output checker buffer)
  1690. "Flycheck parser to check if reformat is required."
  1691. (let ((result nil))
  1692. (with-temp-buffer
  1693. (insert output)
  1694. (save-match-data
  1695. (goto-char (point-min))
  1696. (when (re-search-forward "^would reformat .*$" nil t)
  1697. (add-to-list 'result (flycheck-error-new-at
  1698. (point-min)
  1699. nil
  1700. 'error
  1701. ;;(format "Black: %s" (match-string 0))
  1702. "Black: would reformat"
  1703. :buffer buffer
  1704. :checker checker)))
  1705. (goto-char (point-min))
  1706. (when (re-search-forward "^error: .*$" nil t)
  1707. (add-to-list 'result (flycheck-error-new-at
  1708. (point-min)
  1709. nil
  1710. 'error
  1711. ;; Fix not to include absolute file path
  1712. (format "Black: %s" (match-string 0))
  1713. :buffer buffer
  1714. :checker checker)))))
  1715. result))
  1716. (defun my-flycheck-parse-unified-diff (output checker buffer)
  1717. "Flycheck parser to parse diff output."
  1718. (let ((source-line 0)
  1719. (result ())
  1720. (hunk "HUNK"))
  1721. (with-temp-buffer
  1722. (insert output)
  1723. (goto-char (point-min))
  1724. (while (not (eq (point) (point-max)))
  1725. ;; FIXME: Do not stop when no result
  1726. (while (not (re-search-forward "^@@ -\\([0-9]+\\),\\([0-9]+\\) \\+\\([0-9]+\\),\\([0-9]+\\) @@.*$" (point-at-eol) t))
  1727. (forward-line 1)
  1728. (goto-char (point-at-bol)))
  1729. (setq source-line
  1730. (string-to-number (match-string 1)))
  1731. ;; TODO: Add filename support
  1732. (setq hunk
  1733. (match-string 0))
  1734. ;;(while (not (rearch-forward "^\\(-\\|\\+\\)")))
  1735. )
  1736. (add-to-list 'result
  1737. (flycheck-error-new-at
  1738. 0
  1739. nil
  1740. 'error
  1741. "MESSAGE"
  1742. :buffer buffer
  1743. :checker checker
  1744. :group hunk)))
  1745. result))
  1746. (set-variable 'flycheck-python-mypy-ini
  1747. ".mypy.ini")
  1748. ;; Local Variables:
  1749. ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
  1750. ;; flycheck-checker: emacs-lisp
  1751. ;; End:
  1752. ;;; emancs.el ends here