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.
 
 
 
 
 
 

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