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.
 
 
 
 
 
 

1850 lines
63 KiB

  1. ;;; emacs.el --- 10sr emacs initialization
  2. ;;; Commentary:
  3. ;;; Code:
  4. ;; SETUP_LOAD: (let ((file "DOTFILES_DIR/emacs.el"))
  5. ;; SETUP_LOAD: (and (file-readable-p file)
  6. ;; SETUP_LOAD: (load-file file)))
  7. (setq debug-on-error t)
  8. ;; make directories
  9. (unless (file-directory-p (expand-file-name user-emacs-directory))
  10. (make-directory (expand-file-name user-emacs-directory)))
  11. (let ((d (expand-file-name (concat user-emacs-directory
  12. "lisp"))))
  13. (unless (file-directory-p d)
  14. (make-directory d))
  15. (add-to-list 'load-path d))
  16. (require 'cl-lib)
  17. (require 'simple)
  18. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19. ;; Some macros for internals
  20. ;; `emacs --load emacs.el` with Emacs 24.3 requires with-eval-after-load to be
  21. ;; defined at the toplevel (means that it should not be defined inside of some
  22. ;; special forms like `when'. I do not now how to do with about this...)
  23. (unless (fboundp 'with-eval-after-load)
  24. ;; polyfill for Emacs < 24.4
  25. (defmacro with-eval-after-load (file &rest body)
  26. "After FILE is loaded execute BODY."
  27. (declare (indent 1) (debug t))
  28. `(eval-after-load ,file (quote (progn ,@body)))))
  29. (defun call-after-init (func)
  30. "If `after-init-hook' has been run, call FUNC immediately.
  31. Otherwize hook it."
  32. (if after-init-time
  33. (funcall func)
  34. (add-hook 'after-init-hook
  35. func)))
  36. (defmacro safe-require-or-eval (feature)
  37. "Require FEATURE if available.
  38. At compile time the feature will be loaded immediately."
  39. `(eval-and-compile
  40. (require ,feature nil t)))
  41. (defmacro autoload-eval-lazily (feature &optional functions &rest body)
  42. "Define autoloading FEATURE that defines FUNCTIONS.
  43. FEATURE is a symbol. FUNCTIONS is a list of symbols. If FUNCTIONS is nil,
  44. the function same as FEATURE is defined as autoloaded function. BODY is passed
  45. to `eval-after-load'.
  46. After this macro is expanded, this returns the path to library if FEATURE
  47. found, otherwise returns nil."
  48. (declare (indent 2) (debug t))
  49. (let* ((libname (symbol-name (eval feature)))
  50. (libpath (locate-library libname)))
  51. `(progn
  52. (when (locate-library ,libname)
  53. ,@(mapcar (lambda (f)
  54. `(unless (fboundp ',f)
  55. (progn
  56. (message "Autoloaded function `%S' defined (%s)"
  57. (quote ,f)
  58. ,libpath)
  59. (autoload (quote ,f)
  60. ,libname
  61. ,(concat "Autoloaded function defined in \""
  62. libpath
  63. "\".")
  64. t))))
  65. (or (eval functions)
  66. `(,(eval feature)))))
  67. (eval-after-load ,feature
  68. (quote (progn
  69. ,@body)))
  70. (locate-library ,libname))))
  71. (when (autoload-eval-lazily 'tetris nil
  72. (message "Tetris loaded!"))
  73. (message "Tetris found!"))
  74. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  75. ;; download library from web
  76. (defvar fetch-library-enabled-p t
  77. "Set nil to skip downloading with `fetch-library'.")
  78. (defun fetch-library (url &optional byte-compile-p force-download-p)
  79. "Download a library from URL and locate it in \"~/emacs.d/lisp/\".
  80. Return nil if library unfound and failed to download,
  81. otherwise the path where the library installed.
  82. If BYTE-COMPILE-P is t byte compile the file after downloading.
  83. If FORCE-DOWNLOAD-P it t ignore exisiting library and always download.
  84. This function also checks the value of `fetch-library-enabled-p' and do not
  85. fetch libraries if this value is nil. In this case all arguments (including
  86. FORCE-DOWNLOAD-P) will be ignored."
  87. (let* ((dir (expand-file-name (concat user-emacs-directory "lisp/")))
  88. (lib (file-name-sans-extension (file-name-nondirectory url)))
  89. (lpath (concat dir lib ".el"))
  90. (locate-p (locate-library lib)))
  91. (if (and fetch-library-enabled-p
  92. (or force-download-p
  93. (not locate-p)))
  94. (if (progn (message "Downloading %s..."
  95. url)
  96. (download-file url
  97. lpath
  98. t))
  99. (progn (message "Downloading %s...done"
  100. url)
  101. (when (and byte-compile-p
  102. (require 'bytecomp nil t))
  103. (and (file-exists-p (byte-compile-dest-file lpath))
  104. (delete-file (byte-compile-dest-file lpath)))
  105. (message "Byte-compiling %s..."
  106. lpath)
  107. (byte-compile-file lpath)
  108. (message "Byte-compiling %s...done"
  109. lpath)))
  110. (progn (and (file-writable-p lpath)
  111. (delete-file lpath))
  112. (message "Downloading %s...failed"
  113. url))))
  114. (locate-library lib)))
  115. ;; If EMACS_EL_DRY_RUN is set and it is not an empty string, fetch-library
  116. ;; does not actually fetch library.
  117. (let ((dryrun (getenv "EMACS_EL_DRY_RUN")))
  118. (when (and dryrun
  119. (< 0
  120. (length dryrun)))
  121. (setq fetch-library-enabled-p
  122. nil)
  123. (message "EMACS_EL_DRY_RUN is set. Skip fetching libraries.")))
  124. (defun download-file (url path &optional ok-if-already-exists)
  125. "Download file from URL and output to PATH.
  126. IF OK-IF-ALREADY-EXISTS is true force download."
  127. (let ((curl (executable-find "curl"))
  128. (wget (executable-find "wget")))
  129. (cond (wget
  130. (if (and (not ok-if-already-exists)
  131. (file-exists-p path))
  132. nil
  133. (and (eq 0
  134. (call-process wget
  135. nil
  136. nil
  137. nil
  138. "-O"
  139. path
  140. url
  141. ))
  142. path)))
  143. (curl
  144. (if (and (not ok-if-already-exists)
  145. (file-exists-p path))
  146. nil
  147. (and (eq 0
  148. (call-process curl
  149. nil
  150. nil
  151. nil
  152. "--output"
  153. path
  154. "-L"
  155. url
  156. ))
  157. path)))
  158. (t
  159. (ignore-errors
  160. (require 'url)
  161. (url-copy-file url
  162. path
  163. ok-if-already-exists)
  164. path)))))
  165. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  166. ;; package
  167. (set (defvar 10sr-package-list)
  168. '(
  169. markdown-mode
  170. yaml-mode
  171. gnuplot-mode
  172. php-mode
  173. erlang
  174. js2-mode
  175. git-commit
  176. gitignore-mode
  177. adoc-mode
  178. ;; ack
  179. color-moccur
  180. ggtags
  181. flycheck
  182. ;; is flymake installs are required?
  183. ;;flymake-jshint
  184. ;;flymake-python-pyflakes
  185. xclip
  186. foreign-regexp
  187. multi-term
  188. term-run
  189. editorconfig
  190. git-ps1-mode
  191. restart-emacs
  192. fill-column-indicator
  193. pkgbuild-mode
  194. minibuffer-line
  195. scala-mode2
  196. ensime
  197. editorconfig
  198. git-command
  199. prompt-text
  200. ;; 10sr repository
  201. ;; 10sr-extras
  202. terminal-title
  203. recentf-show
  204. dired-list-all-mode
  205. pack
  206. set-modeline-color
  207. read-only-only-mode
  208. smart-revert
  209. autosave
  210. ;;window-organizer
  211. remember-major-modes-mode
  212. ilookup
  213. pasteboard
  214. ))
  215. (when (safe-require-or-eval 'package)
  216. (setq package-archives
  217. `(,@package-archives
  218. ("melpa" . "https://melpa.org/packages/")
  219. ("10sr-el" . "https://10sr.github.io/emacs-lisp/p/")))
  220. (package-initialize)
  221. (defun my-auto-install-package ()
  222. "Install packages semi-automatically."
  223. (interactive)
  224. (package-refresh-contents)
  225. (mapc (lambda (pkg)
  226. (or (package-installed-p pkg)
  227. (locate-library (symbol-name pkg))
  228. (package-install pkg)))
  229. 10sr-package-list))
  230. )
  231. ;; (lazy-load-eval 'sudoku)
  232. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  233. ;; my-idle-hook
  234. (defvar my-idle-hook nil
  235. "Hook run when idle for several secs.")
  236. (defvar my-idle-hook-sec 5
  237. "Second to run `my-idle-hook'.")
  238. (run-with-idle-timer my-idle-hook-sec
  239. t
  240. (lambda ()
  241. (run-hooks 'my-idle-hook)))
  242. ;; (add-hook 'my-idle-hook
  243. ;; (lambda ()
  244. ;; (message "idle hook message")))
  245. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  246. ;; start and quit
  247. (setq inhibit-startup-message t)
  248. (setq confirm-kill-emacs 'y-or-n-p)
  249. (setq gc-cons-threshold (* 1024 1024 4))
  250. (when window-system
  251. (add-to-list 'default-frame-alist '(cursor-type . box))
  252. (add-to-list 'default-frame-alist '(background-color . "white"))
  253. (add-to-list 'default-frame-alist '(foreground-color . "gray10"))
  254. ;; (add-to-list 'default-frame-alist '(alpha . (80 100 100 100)))
  255. ;; does not work?
  256. )
  257. ;; (add-to-list 'default-frame-alist '(cursor-type . box))
  258. (if window-system (menu-bar-mode 1) (menu-bar-mode 0))
  259. (and (fboundp 'tool-bar-mode)
  260. (tool-bar-mode 0))
  261. (and (fboundp 'set-scroll-bar-mode)
  262. (set-scroll-bar-mode nil))
  263. (add-hook 'kill-emacs-hook
  264. ;; load init file when terminating emacs to ensure file is not broken
  265. 'reload-init-file)
  266. (defun my-force-kill-emacs ()
  267. "My force kill Emacs."
  268. (interactive)
  269. (let ((kill-emacs-hook nil))
  270. (kill-emacs)))
  271. (call-after-init
  272. (lambda ()
  273. (message "%s %s" invocation-name emacs-version)
  274. (message "%s was taken to initialize emacs." (emacs-init-time))
  275. (switch-to-buffer "*Messages*")))
  276. (cd ".") ; when using windows use / instead of \ in `default-directory'
  277. ;; locale
  278. (set-language-environment "Japanese")
  279. (set-default-coding-systems 'utf-8-unix)
  280. (prefer-coding-system 'utf-8-unix)
  281. (setq system-time-locale "C")
  282. ;; my prefix map
  283. (defvar my-prefix-map nil
  284. "My prefix map.")
  285. (define-prefix-command 'my-prefix-map)
  286. (define-key ctl-x-map (kbd "C-x") 'my-prefix-map)
  287. (define-key my-prefix-map (kbd "C-q") 'quoted-insert)
  288. (define-key my-prefix-map (kbd "C-z") 'suspend-frame)
  289. ;; (comint-show-maximum-output)
  290. ;; kill scratch
  291. (call-after-init (lambda ()
  292. (let ((buf (get-buffer "*scratch*")))
  293. (when buf
  294. (kill-buffer buf)))))
  295. ;; modifier keys
  296. ;; (setq mac-option-modifier 'control)
  297. ;; display
  298. (setq visible-bell t)
  299. (setq ring-bell-function 'ignore)
  300. (mouse-avoidance-mode 'banish)
  301. (setq echo-keystrokes 0.1)
  302. (defun reload-init-file ()
  303. "Reload Emacs init file."
  304. (interactive)
  305. (when (and user-init-file
  306. (file-readable-p user-init-file))
  307. (load-file user-init-file)))
  308. (safe-require-or-eval 'session)
  309. ;; server
  310. (when (safe-require-or-eval 'server)
  311. (setq server-name (concat "server"
  312. (number-to-string (emacs-pid))))
  313. ;; In Cygwin Environment `server-runnning-p' stops when server-use-tcp is nil
  314. ;; In Darwin environment, init fails with message like 'Service name too long'
  315. ;; when server-use-tcp is nil
  316. (when (or (eq system-type
  317. 'cygwin)
  318. (eq system-type
  319. 'darwin))
  320. (setq server-use-tcp t))
  321. (server-start))
  322. ;; MSYS2 fix
  323. (when (eq system-type
  324. 'windows-nt)
  325. (setq shell-file-name
  326. (executable-find "bash"))
  327. '(setq function-key-map
  328. `(,@function-key-map ([pause] . [?\C-c])
  329. ))
  330. (define-key key-translation-map
  331. (kbd "<pause>")
  332. (kbd "C-c"))
  333. '(keyboard-translate [pause]
  334. (kbd "C-c")p)
  335. ;; TODO: move to other place later
  336. (when (not window-system)
  337. (setq interprogram-paste-function nil)
  338. (setq interprogram-cut-function nil)))
  339. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  340. ;; global keys
  341. (global-set-key (kbd "<up>") 'scroll-down-line)
  342. (global-set-key (kbd "<down>") 'scroll-up-line)
  343. (global-set-key (kbd "<left>") 'scroll-down)
  344. (global-set-key (kbd "<right>") 'scroll-up)
  345. ;; (define-key my-prefix-map (kbd "C-h") help-map)
  346. (global-set-key (kbd "C-\\") help-map)
  347. (define-key ctl-x-map (kbd "DEL") help-map)
  348. (define-key ctl-x-map (kbd "C-h") help-map)
  349. (define-key help-map "a" 'apropos)
  350. ;; disable annoying keys
  351. (global-set-key [prior] 'ignore)
  352. (global-set-key (kbd "<next>") 'ignore)
  353. (global-set-key [menu] 'ignore)
  354. (global-set-key [down-mouse-1] 'ignore)
  355. (global-set-key [down-mouse-2] 'ignore)
  356. (global-set-key [down-mouse-3] 'ignore)
  357. (global-set-key [mouse-1] 'ignore)
  358. (global-set-key [mouse-2] 'ignore)
  359. (global-set-key [mouse-3] 'ignore)
  360. (global-set-key (kbd "<eisu-toggle>") 'ignore)
  361. (global-set-key (kbd "C-<eisu-toggle>") 'ignore)
  362. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  363. ;; editting
  364. (defun my-copy-whole-line ()
  365. "Copy whole line."
  366. (interactive)
  367. (kill-new (concat (buffer-substring (point-at-bol)
  368. (point-at-eol))
  369. "\n")))
  370. (setq require-final-newline t)
  371. (setq kill-whole-line t)
  372. (setq scroll-conservatively 35
  373. scroll-margin 2
  374. scroll-step 0)
  375. (setq-default major-mode 'text-mode)
  376. (setq next-line-add-newlines nil)
  377. (setq kill-read-only-ok t)
  378. (setq truncate-partial-width-windows nil) ; when splitted horizontally
  379. ;; (setq-default line-spacing 0.2)
  380. (setq-default indicate-empty-lines t) ; when using x indicate empty line
  381. (setq-default tab-width 4)
  382. (setq-default indent-tabs-mode nil)
  383. (setq-default indent-line-function nil)
  384. ;; (pc-selection-mode 1) ; make some already defined keybind back to default
  385. (delete-selection-mode 1)
  386. (cua-mode 0)
  387. (setq line-move-visual nil)
  388. ;; key bindings
  389. ;; moving around
  390. ;; (global-set-key (kbd "M-j") 'next-line)
  391. ;; (global-set-key (kbd "M-k") 'previous-line)
  392. ;; (global-set-key (kbd "M-h") 'backward-char)
  393. ;; (global-set-key (kbd "M-l") 'forward-char)
  394. ;;(keyboard-translate ?\M-j ?\C-j)
  395. ;; (global-set-key (kbd "M-p") 'backward-paragraph)
  396. (define-key esc-map "p" 'backward-paragraph)
  397. ;; (global-set-key (kbd "M-n") 'forward-paragraph)
  398. (define-key esc-map "n" 'forward-paragraph)
  399. (global-set-key (kbd "C-<up>") 'scroll-down-line)
  400. (global-set-key (kbd "C-<down>") 'scroll-up-line)
  401. (global-set-key (kbd "C-<left>") 'scroll-down)
  402. (global-set-key (kbd "C-<right>") 'scroll-up)
  403. (global-set-key (kbd "<select>") 'ignore) ; 'previous-line-mark)
  404. (define-key ctl-x-map (kbd "ESC x") 'execute-extended-command)
  405. (define-key ctl-x-map (kbd "ESC :") 'eval-expression)
  406. ;; C-h and DEL
  407. (global-set-key (kbd "C-h") (kbd "DEL"))
  408. (global-set-key (kbd "C-m") 'reindent-then-newline-and-indent)
  409. (global-set-key (kbd "C-o") (kbd "C-e C-m"))
  410. (define-key esc-map "k" 'my-copy-whole-line)
  411. ;; (global-set-key "\C-z" 'undo) ; undo is M-u
  412. (define-key esc-map "u" 'undo)
  413. (define-key esc-map "i" (kbd "ESC TAB"))
  414. ;; (global-set-key (kbd "C-r") 'query-replace-regexp)
  415. (global-set-key (kbd "C-s") 'isearch-forward-regexp)
  416. (global-set-key (kbd "C-r") 'isearch-backward-regexp)
  417. (define-key my-prefix-map (kbd "C-o") 'occur)
  418. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  419. ;; title and mode-line
  420. (when (safe-require-or-eval 'terminal-title)
  421. ;; if TERM is not screen use default value
  422. (if (getenv "TMUX")
  423. ;; if use tmux locally just basename of current dir
  424. (set-variable 'terminal-title-format
  425. '((file-name-nondirectory (directory-file-name
  426. default-directory))))
  427. (if (and (let ((tty-type (frame-parameter nil
  428. 'tty-type)))
  429. (and tty-type
  430. (equal (car (split-string tty-type
  431. "-"))
  432. "screen")))
  433. (not (getenv "SSH_CONNECTION")))
  434. (set-variable 'terminal-title-format
  435. '((file-name-nondirectory (directory-file-name
  436. default-directory))))
  437. ;; seems that TMUX is used locally and ssh to remote host
  438. (set-variable 'terminal-title-format
  439. `("em:"
  440. ,user-login-name
  441. "@"
  442. ,(car (split-string system-name
  443. "\\."))
  444. ":"
  445. default-directory))
  446. )
  447. )
  448. (terminal-title-mode))
  449. (setq eol-mnemonic-dos "\\r\\n")
  450. (setq eol-mnemonic-mac "\\r")
  451. (setq eol-mnemonic-unix "\\n")
  452. (which-function-mode 0)
  453. (line-number-mode 0)
  454. (column-number-mode 0)
  455. (size-indication-mode 0)
  456. (setq mode-line-position
  457. '(:eval (format "L%%l/%d,C%%c"
  458. (count-lines (point-max)
  459. (point-min)))))
  460. (when (safe-require-or-eval 'git-ps1-mode)
  461. (git-ps1-mode))
  462. ;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title
  463. ;; display date
  464. (when (safe-require-or-eval 'time)
  465. (setq display-time-interval 29)
  466. (setq display-time-day-and-date t)
  467. (setq display-time-format "%Y/%m/%d %a %H:%M")
  468. ;; (if window-system
  469. ;; (display-time-mode 0)
  470. ;; (display-time-mode 1))
  471. (when display-time-mode
  472. (display-time-update)))
  473. ;; ;; current directory
  474. ;; (let ((ls (member 'mode-line-buffer-identification
  475. ;; mode-line-format)))
  476. ;; (setcdr ls
  477. ;; (cons '(:eval (concat " ("
  478. ;; (abbreviate-file-name default-directory)
  479. ;; ")"))
  480. ;; (cdr ls))))
  481. ;; ;; display last modified time
  482. ;; (let ((ls (member 'mode-line-buffer-identification
  483. ;; mode-line-format)))
  484. ;; (setcdr ls
  485. ;; (cons '(:eval (concat " "
  486. ;; my-buffer-file-last-modified-time))
  487. ;; (cdr ls))))
  488. (defun buffer-list-not-start-with-space ()
  489. "Return a list of buffers that not start with whitespaces."
  490. (let ((bl (buffer-list))
  491. b nbl)
  492. (while bl
  493. (setq b (pop bl))
  494. (unless (string-equal " "
  495. (substring (buffer-name b)
  496. 0
  497. 1))
  498. (add-to-list 'nbl b)))
  499. nbl))
  500. ;; http://www.masteringemacs.org/articles/2012/09/10/hiding-replacing-modeline-strings/
  501. ;; (add-to-list 'minor-mode-alist
  502. ;; '(global-whitespace-mode ""))
  503. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  504. ;; minibuffer
  505. (setq insert-default-directory t)
  506. (setq completion-ignore-case t
  507. read-file-name-completion-ignore-case t
  508. read-buffer-completion-ignore-case t)
  509. (setq resize-mini-windows t)
  510. (temp-buffer-resize-mode 1)
  511. (savehist-mode 1)
  512. (fset 'yes-or-no-p 'y-or-n-p)
  513. ;; complete symbol when `eval'
  514. (define-key read-expression-map (kbd "TAB") 'completion-at-point)
  515. (define-key minibuffer-local-map (kbd "C-u")
  516. (lambda () (interactive) (delete-region (point-at-bol) (point))))
  517. ;; I dont know these bindings are good
  518. (define-key minibuffer-local-map (kbd "C-p") (kbd "ESC p"))
  519. (define-key minibuffer-local-map (kbd "C-n") (kbd "ESC n"))
  520. (when (safe-require-or-eval 'minibuffer-line)
  521. (set-face-underline 'minibuffer-line nil)
  522. (set-variable 'minibuffer-line-refresh-interval
  523. 25)
  524. (set-variable 'minibuffer-line-format
  525. `(,(concat user-login-name
  526. "@"
  527. (car (split-string system-name
  528. "\\."))
  529. ":")
  530. (:eval (abbreviate-file-name (or buffer-file-name
  531. default-directory)))
  532. (:eval (and (fboundp 'git-ps1-mode-get-current)
  533. (git-ps1-mode-get-current " [GIT:%s]")))
  534. " "
  535. (:eval (format-time-string display-time-format))))
  536. (minibuffer-line-mode 1)
  537. )
  538. (when (safe-require-or-eval 'prompt-text)
  539. (set-variable 'prompt-text-format
  540. `(,(concat ""
  541. user-login-name
  542. "@"
  543. (car (split-string system-name
  544. "\\."))
  545. ":")
  546. (:eval (abbreviate-file-name (or buffer-file-name
  547. default-directory)))
  548. (:eval (and (fboundp 'git-ps1-mode-get-current)
  549. (git-ps1-mode-get-current " [GIT:%s]")))
  550. " "
  551. (:eval (format-time-string display-time-format))
  552. "\n"
  553. (:eval (symbol-name this-command))
  554. ": "))
  555. (prompt-text-mode 1))
  556. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  557. ;; letters, font-lock mode and fonts
  558. ;; (set-face-background 'vertical-border (face-foreground 'mode-line))
  559. ;; (set-window-margins (selected-window) 1 1)
  560. (and (or (eq system-type 'Darwin)
  561. (eq system-type 'darwin))
  562. (fboundp 'mac-set-input-method-parameter)
  563. (mac-set-input-method-parameter 'japanese 'cursor-color "red")
  564. (mac-set-input-method-parameter 'roman 'cursor-color "black"))
  565. (when (and (boundp 'input-method-activate-hook) ; i dont know this is correct
  566. (boundp 'input-method-inactivate-hook))
  567. (add-hook 'input-method-activate-hook
  568. (lambda () (set-cursor-color "red")))
  569. (add-hook 'input-method-inactivate-hook
  570. (lambda () (set-cursor-color "black"))))
  571. (when (safe-require-or-eval 'paren)
  572. (show-paren-mode 1)
  573. (setq show-paren-delay 0.5
  574. show-paren-style 'parenthesis) ; mixed is hard to read
  575. ;; (set-face-background 'show-paren-match
  576. ;; "black")
  577. ;; ;; (face-foreground 'default))
  578. ;; (set-face-foreground 'show-paren-match
  579. ;; "white")
  580. ;; (set-face-inverse-video-p 'show-paren-match
  581. ;; t)
  582. )
  583. (transient-mark-mode 1)
  584. (global-font-lock-mode 1)
  585. (setq font-lock-global-modes
  586. '(not
  587. help-mode
  588. eshell-mode
  589. ;;term-mode
  590. Man-mode))
  591. ;; (standard-display-ascii ?\n "$\n")
  592. ;; (defvar my-eol-face
  593. ;; '(("\n" . (0 font-lock-comment-face t nil)))
  594. ;; )
  595. ;; (defvar my-tab-face
  596. ;; '(("\t" . '(0 highlight t nil))))
  597. (defvar my-jspace-face
  598. '(("\u3000" . '(0 highlight t nil))))
  599. (add-hook 'font-lock-mode-hook
  600. (lambda ()
  601. ;; (font-lock-add-keywords nil my-eol-face)
  602. (font-lock-add-keywords nil my-jspace-face)
  603. ))
  604. (when (safe-require-or-eval 'whitespace)
  605. (add-to-list 'whitespace-display-mappings ; not work
  606. `(tab-mark ?\t ,(vconcat "^I\t")))
  607. (add-to-list 'whitespace-display-mappings
  608. `(newline-mark ?\n ,(vconcat "$\n")))
  609. (setq whitespace-style '(face
  610. trailing ; trailing blanks
  611. newline ; newlines
  612. newline-mark ; use display table for newline
  613. tab-mark
  614. empty ; empty lines at beg or end of buffer
  615. lines-tail ; lines over 80
  616. ))
  617. ;; (setq whitespace-newline 'font-lock-comment-face)
  618. (global-whitespace-mode t)
  619. (if (eq (display-color-cells)
  620. 256)
  621. (set-face-foreground 'whitespace-newline "color-109")
  622. ;; (progn
  623. ;; (set-face-bold-p 'whitespace-newline
  624. ;; t))
  625. ))
  626. (and nil
  627. (safe-require-or-eval 'fill-column-indicator)
  628. (setq fill-column-indicator))
  629. ;; highlight current line
  630. ;; http://wiki.riywo.com/index.php?Meadow
  631. (face-spec-set 'hl-line
  632. '((((min-colors 256)
  633. (background dark))
  634. (:background "color-234"))
  635. (((min-colors 256)
  636. (background light))
  637. (:background "color-234"))
  638. (t
  639. (:underline "black"))))
  640. (set-variable 'hl-line-global-modes
  641. '(not
  642. term-mode))
  643. (global-hl-line-mode 1) ;; (hl-line-mode 1)
  644. (set-face-foreground 'font-lock-regexp-grouping-backslash "#666")
  645. (set-face-foreground 'font-lock-regexp-grouping-construct "#f60")
  646. ;;(safe-require-or-eval 'set-modeline-color)
  647. ;; (let ((fg (face-foreground 'default))
  648. ;; (bg (face-background 'default)))
  649. ;; (set-face-background 'mode-line-inactive
  650. ;; (if (face-inverse-video-p 'mode-line) fg bg))
  651. ;; (set-face-foreground 'mode-line-inactive
  652. ;; (if (face-inverse-video-p 'mode-line) bg fg)))
  653. ;; (set-face-underline 'mode-line-inactive
  654. ;; t)
  655. ;; (set-face-underline 'vertical-border
  656. ;; nil)
  657. ;; Not found in MELPA nor any other package repositories
  658. (and (fetch-library
  659. "https://raw.github.com/tarao/elisp/master/end-mark.el"
  660. t)
  661. (safe-require-or-eval 'end-mark)
  662. (global-end-mark-mode))
  663. (when (safe-require-or-eval 'cyberpunk-theme)
  664. (load-theme 'cyberpunk t)
  665. (set-face-attribute 'button
  666. nil
  667. :inherit 'highlight))
  668. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  669. ;; file handling
  670. (when (safe-require-or-eval 'editorconfig)
  671. ;; (set-variable 'editorconfig-get-properties-function
  672. ;; 'editorconfig-core-get-properties-hash)
  673. (editorconfig-mode 1))
  674. (setq revert-without-query '(".+"))
  675. ;; save cursor position
  676. (when (safe-require-or-eval 'saveplace)
  677. (setq-default save-place t)
  678. (setq save-place-file (concat user-emacs-directory
  679. "places")))
  680. ;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260
  681. (setq make-backup-files t)
  682. ;; (make-directory (expand-file-name "~/.emacsbackup"))
  683. (setq backup-directory-alist
  684. (cons (cons "\\.*$" (expand-file-name (concat user-emacs-directory
  685. "backup")))
  686. backup-directory-alist))
  687. (setq version-control 'never)
  688. (setq delete-old-versions t)
  689. (setq auto-save-list-file-prefix (expand-file-name (concat user-emacs-directory
  690. "auto-save/")))
  691. (setq delete-auto-save-files t)
  692. (add-to-list 'completion-ignored-extensions ".bak")
  693. ;; (setq delete-by-moving-to-trash t
  694. ;; trash-directory "~/.emacs.d/trash")
  695. (add-hook 'after-save-hook
  696. 'executable-make-buffer-file-executable-if-script-p)
  697. (set (defvar bookmark-default-file)
  698. (expand-file-name (concat user-emacs-directory
  699. "bmk")))
  700. (with-eval-after-load 'recentf
  701. (defvar recentf-exclude nil)
  702. (add-to-list 'recentf-exclude
  703. (regexp-quote bookmark-default-file)))
  704. (when (safe-require-or-eval 'smart-revert)
  705. (smart-revert-on))
  706. ;; autosave
  707. (when (safe-require-or-eval 'autosave)
  708. (autosave-set 2))
  709. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  710. ;; buffer killing
  711. ;; (defun my-delete-window-killing-buffer () nil)
  712. (defun my-query-kill-current-buffer ()
  713. "Interactively kill current buffer."
  714. (interactive)
  715. (if (y-or-n-p (concat "kill current buffer? :"))
  716. (kill-buffer (current-buffer))))
  717. ;;(global-set-key "\C-xk" 'my-query-kill-current-buffer)
  718. (substitute-key-definition 'kill-buffer
  719. 'my-query-kill-current-buffer
  720. global-map)
  721. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  722. ;; share clipboard with x
  723. ;; this page describes this in details, but only these sexps seem to be needed
  724. ;; http://garin.jp/doc/Linux/xwindow_clipboard
  725. (and (not window-system)
  726. (not (eq window-system 'mac))
  727. (getenv "DISPLAY")
  728. (not (equal (getenv "DISPLAY") ""))
  729. (executable-find "xclip")
  730. ;; (< emacs-major-version 24)
  731. (safe-require-or-eval 'xclip)
  732. nil
  733. (turn-on-xclip))
  734. (and (eq system-type 'darwin)
  735. (safe-require-or-eval 'pasteboard)
  736. (turn-on-pasteboard)
  737. (getenv "TMUX")
  738. (pasteboard-enable-rtun))
  739. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  740. ;; some modes and hooks
  741. ;; http://qiita.com/sune2/items/b73037f9e85962f5afb7
  742. (global-company-mode)
  743. (set-variable 'company-idle-delay 0.5)
  744. (set-variable 'company-minimum-prefix-length 2)
  745. (set-variable 'company-selection-wrap-around t)
  746. ;; https://github.com/lunaryorn/flycheck
  747. (when (safe-require-or-eval 'flycheck)
  748. (call-after-init 'global-flycheck-mode))
  749. (set-variable 'ac-ignore-case nil)
  750. (when (autoload-eval-lazily 'term-run '(term-run-shell-command term-run))
  751. (define-key ctl-x-map "t" 'term-run-shell-command))
  752. (add-to-list 'safe-local-variable-values
  753. '(encoding utf-8))
  754. (setq enable-local-variables :safe)
  755. (when (safe-require-or-eval 'remember-major-modes-mode)
  756. (remember-major-modes-mode 1))
  757. ;; Detect file type from shebang and set major-mode.
  758. (add-to-list 'interpreter-mode-alist
  759. '("python3" . python-mode))
  760. (add-to-list 'interpreter-mode-alist
  761. '("python2" . python-mode))
  762. ;; http://fukuyama.co/foreign-regexp
  763. '(and (safe-require-or-eval 'foreign-regexp)
  764. (progn
  765. (setq foreign-regexp/regexp-type 'perl)
  766. '(setq reb-re-syntax 'foreign-regexp)
  767. ))
  768. (autoload-eval-lazily 'sql '(sql-mode)
  769. (safe-require-or-eval 'sql-indent))
  770. (when (autoload-eval-lazily 'git-command)
  771. (define-key ctl-x-map "g" 'git-command))
  772. (when (safe-require-or-eval 'git-commit)
  773. (global-git-commit-mode 1))
  774. (when (fetch-library
  775. "http://www.emacswiki.org/emacs/download/sl.el"
  776. t)
  777. (autoload-eval-lazily 'sl))
  778. (with-eval-after-load 'make-mode
  779. (defvar makefile-mode-map (make-sparse-keymap))
  780. (define-key makefile-mode-map (kbd "C-m") 'newline-and-indent)
  781. ;; this functions is set in write-file-functions, i cannot find any
  782. ;; good way to remove this.
  783. (fset 'makefile-warn-suspicious-lines 'ignore))
  784. (with-eval-after-load 'verilog-mode
  785. (defvar verilog-mode-map (make-sparse-keymap))
  786. (define-key verilog-mode-map ";" 'self-insert-command))
  787. (setq diff-switches "-u")
  788. (with-eval-after-load 'diff-mode
  789. ;; (when (and (eq major-mode
  790. ;; 'diff-mode)
  791. ;; (not buffer-file-name))
  792. ;; ;; do not pass when major-mode is derived mode of diff-mode
  793. ;; (view-mode 1))
  794. (set-face-attribute 'diff-header nil
  795. :foreground nil
  796. :background nil
  797. :weight 'bold)
  798. (set-face-attribute 'diff-file-header nil
  799. :foreground nil
  800. :background nil
  801. :weight 'bold)
  802. (set-face-foreground 'diff-index-face "blue")
  803. (set-face-attribute 'diff-hunk-header nil
  804. :foreground "cyan"
  805. :weight 'normal)
  806. (set-face-attribute 'diff-context nil
  807. ;; :foreground "white"
  808. :foreground nil
  809. :weight 'normal)
  810. (set-face-foreground 'diff-removed-face "red")
  811. (set-face-foreground 'diff-added-face "green")
  812. (set-face-background 'diff-removed-face nil)
  813. (set-face-background 'diff-added-face nil)
  814. (set-face-attribute 'diff-changed nil
  815. :foreground "magenta"
  816. :weight 'normal)
  817. (set-face-attribute 'diff-refine-change nil
  818. :foreground nil
  819. :background nil
  820. :weight 'bold
  821. :inverse-video t)
  822. ;; Annoying !
  823. ;;(diff-auto-refine-mode)
  824. )
  825. ;; (ffap-bindings)
  826. (set-variable 'sh-here-document-word "__EOC__")
  827. (when (autoload-eval-lazily 'adoc-mode)
  828. (setq auto-mode-alist
  829. `(("\\.adoc\\'" . adoc-mode)
  830. ("\\.asciidoc\\'" . adoc-mode)
  831. ,@auto-mode-alist)))
  832. (with-eval-after-load 'markup-faces
  833. ;; Is this too match ?
  834. (set-face-foreground 'markup-meta-face
  835. "brightblack")
  836. (set-face-foreground 'markup-meta-hide-face
  837. "brightblack")
  838. )
  839. (setq auto-mode-alist
  840. `(("autostart\\'" . sh-mode)
  841. ("xinitrc\\'" . sh-mode)
  842. ("xprograms\\'" . sh-mode)
  843. ("PKGBUILD\\'" . sh-mode)
  844. ,@auto-mode-alist))
  845. ;; TODO: check if this is required
  846. (and (autoload-eval-lazily 'groovy-mode)
  847. (add-to-list 'auto-mode-alist
  848. '("build\\.gradle\\'" . groovy-mode)))
  849. (with-eval-after-load 'yaml-mode
  850. (defvar yaml-mode-map (make-sparse-keymap))
  851. (define-key yaml-mode-map (kbd "C-m") 'newline))
  852. (with-eval-after-load 'html-mode
  853. (defvar html-mode-map (make-sparse-keymap))
  854. (define-key html-mode-map (kbd "C-m") 'reindent-then-newline-and-indent))
  855. (with-eval-after-load 'text-mode
  856. (define-key text-mode-map (kbd "C-m") 'newline))
  857. (add-to-list 'Info-default-directory-list
  858. (expand-file-name "~/.info/emacs-ja"))
  859. (with-eval-after-load 'apropos
  860. (defvar apropos-mode-map (make-sparse-keymap))
  861. (define-key apropos-mode-map "n" 'next-line)
  862. (define-key apropos-mode-map "p" 'previous-line))
  863. (with-eval-after-load 'isearch
  864. ;; (define-key isearch-mode-map
  865. ;; (kbd "C-j") 'isearch-other-control-char)
  866. ;; (define-key isearch-mode-map
  867. ;; (kbd "C-k") 'isearch-other-control-char)
  868. ;; (define-key isearch-mode-map
  869. ;; (kbd "C-h") 'isearch-other-control-char)
  870. (define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char)
  871. (define-key isearch-mode-map (kbd "M-r")
  872. 'isearch-query-replace-regexp))
  873. ;; do not cleanup isearch highlight: use `lazy-highlight-cleanup' to remove
  874. (setq lazy-highlight-cleanup nil)
  875. ;; face for isearch highlighing
  876. (set-face-attribute 'lazy-highlight
  877. nil
  878. :foreground `unspecified
  879. :background `unspecified
  880. :underline t
  881. ;; :weight `bold
  882. )
  883. (add-hook 'outline-mode-hook
  884. (lambda ()
  885. (when (string-match "\\.md\\'" buffer-file-name)
  886. (set (make-local-variable 'outline-regexp) "#+ "))))
  887. (add-to-list 'auto-mode-alist (cons "\\.ol\\'" 'outline-mode))
  888. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode))
  889. (when (autoload-eval-lazily 'markdown-mode
  890. '(markdown-mode gfm-mode)
  891. (defvar gfm-mode-map (make-sparse-keymap))
  892. (define-key gfm-mode-map (kbd "C-m") 'electric-indent-just-newline))
  893. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'gfm-mode))
  894. (set-variable 'markdown-command (or (executable-find "markdown")
  895. (executable-find "markdown.pl")
  896. ""))
  897. (add-hook 'markdown-mode-hook
  898. (lambda ()
  899. (outline-minor-mode 1)
  900. (flyspell-mode)
  901. (set (make-local-variable 'comment-start) ";")))
  902. )
  903. ;; c-mode
  904. ;; http://www.emacswiki.org/emacs/IndentingC
  905. ;; http://en.wikipedia.org/wiki/Indent_style
  906. ;; http://d.hatena.ne.jp/emergent/20070203/1170512717
  907. ;; http://seesaawiki.jp/whiteflare503/d/Emacs%20%a5%a4%a5%f3%a5%c7%a5%f3%a5%c8
  908. (with-eval-after-load 'cc-vars
  909. (defvar c-default-style nil)
  910. (add-to-list 'c-default-style
  911. '(c-mode . "k&r"))
  912. (add-to-list 'c-default-style
  913. '(c++-mode . "k&r"))
  914. (add-hook 'c-mode-common-hook
  915. (lambda ()
  916. ;; why c-basic-offset in k&r style defaults to 5 ???
  917. (set-variable 'c-basic-offset 4)
  918. (set-variable 'indent-tabs-mode nil)
  919. ;; (set-face-foreground 'font-lock-keyword-face "blue")
  920. (c-toggle-hungry-state -1)
  921. ;; (and (require 'gtags nil t)
  922. ;; (gtags-mode 1))
  923. )))
  924. (when (autoload-eval-lazily 'php-mode)
  925. (add-hook 'php-mode-hook
  926. (lambda ()
  927. (set-variable 'c-basic-offset 2))))
  928. (autoload-eval-lazily 'js2-mode nil
  929. ;; currently do not use js2-mode
  930. ;; (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
  931. ;; (add-to-list 'auto-mode-alist '("\\.jsm\\'" . js2-mode))
  932. (defvar js2-mode-map (make-sparse-keymap))
  933. (define-key js2-mode-map (kbd "C-m") (lambda ()
  934. (interactive)
  935. (js2-enter-key)
  936. (indent-for-tab-command)))
  937. ;; (add-hook (kill-local-variable 'before-save-hook)
  938. ;; 'js2-before-save)
  939. ;; (add-hook 'before-save-hook
  940. ;; 'my-indent-buffer
  941. ;; nil
  942. ;; t)
  943. )
  944. (with-eval-after-load 'js
  945. (set-variable 'js-indent-level 2))
  946. (add-to-list 'interpreter-mode-alist
  947. '("node" . js-mode))
  948. (when (autoload-eval-lazily 'flymake-jslint
  949. '(flymake-jslint-load))
  950. (autoload-eval-lazily 'js nil
  951. (add-hook 'js-mode-hook
  952. 'flymake-jslint-load)))
  953. (safe-require-or-eval 'js-doc)
  954. (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
  955. (when (safe-require-or-eval 'uniquify)
  956. (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
  957. (setq uniquify-ignore-buffers-re "*[^*]+*")
  958. (setq uniquify-min-dir-content 1))
  959. (with-eval-after-load 'view
  960. (defvar view-mode-map (make-sparse-keymap))
  961. (define-key view-mode-map "j" 'scroll-up-line)
  962. (define-key view-mode-map "k" 'scroll-down-line)
  963. (define-key view-mode-map "v" 'toggle-read-only)
  964. (define-key view-mode-map "q" 'bury-buffer)
  965. ;; (define-key view-mode-map "/" 'nonincremental-re-search-forward)
  966. ;; (define-key view-mode-map "?" 'nonincremental-re-search-backward)
  967. ;; (define-key view-mode-map
  968. ;; "n" 'nonincremental-repeat-search-forward)
  969. ;; (define-key view-mode-map
  970. ;; "N" 'nonincremental-repeat-search-backward)
  971. (define-key view-mode-map "/" 'isearch-forward-regexp)
  972. (define-key view-mode-map "?" 'isearch-backward-regexp)
  973. (define-key view-mode-map "n" 'isearch-repeat-forward)
  974. (define-key view-mode-map "N" 'isearch-repeat-backward)
  975. (define-key view-mode-map (kbd "C-m") 'my-rgrep-symbol-at-point))
  976. (global-set-key "\M-r" 'view-mode)
  977. ;; (setq view-read-only t)
  978. (add-hook 'Man-mode-hook
  979. (lambda ()
  980. (view-mode 1)
  981. (setq truncate-lines nil)))
  982. (set-variable 'Man-notify-method (if window-system
  983. 'newframe
  984. 'aggressive))
  985. (set-variable 'woman-cache-filename (expand-file-name (concat user-emacs-directory
  986. "woman_cache.el")))
  987. (defalias 'man 'woman)
  988. (add-to-list 'auto-mode-alist
  989. '("tox\\.ini\\'" . conf-unix-mode))
  990. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  991. ;; python
  992. (when (autoload-eval-lazily 'python '(python-mode)
  993. (defvar python-mode-map (make-sparse-keymap))
  994. (define-key python-mode-map (kbd "C-c C-e") 'my-python-run-as-command)
  995. (define-key python-mode-map (kbd "C-c C-b") 'my-python-display-python-buffer)
  996. (define-key python-mode-map (kbd "C-m") 'newline-and-indent)
  997. (defvar inferior-python-mode-map (make-sparse-keymap))
  998. (define-key inferior-python-mode-map (kbd "<up>") 'comint-previous-input)
  999. (define-key inferior-python-mode-map (kbd "<down>") 'comint-next-input)
  1000. )
  1001. (set-variable 'python-python-command (or (executable-find "python3")
  1002. (executable-find "python")))
  1003. ;; (defun my-python-run-as-command ()
  1004. ;; ""
  1005. ;; (interactive)
  1006. ;; (shell-command (concat python-python-command " " buffer-file-name)))
  1007. (defun my-python-display-python-buffer ()
  1008. ""
  1009. (interactive)
  1010. (defvar python-buffer nil)
  1011. (set-window-text-height (display-buffer python-buffer
  1012. t)
  1013. 7))
  1014. (add-hook 'inferior-python-mode-hook
  1015. (lambda ()
  1016. (my-python-display-python-buffer))))
  1017. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1018. ;; gauche-mode
  1019. ;; http://d.hatena.ne.jp/kobapan/20090305/1236261804
  1020. ;; http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el
  1021. (when (and (fetch-library
  1022. "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el"
  1023. t)
  1024. (autoload-eval-lazily 'gauche-mode '(gauche-mode run-scheme)
  1025. (defvar gauche-mode-map (make-sparse-keymap))
  1026. (defvar scheme-mode-map (make-sparse-keymap))
  1027. (define-key gauche-mode-map
  1028. (kbd "C-c C-z") 'run-gauche-other-window)
  1029. (define-key scheme-mode-map
  1030. (kbd "C-c C-c") 'scheme-send-buffer)
  1031. (define-key scheme-mode-map
  1032. (kbd "C-c C-b") 'my-scheme-display-scheme-buffer)))
  1033. (let ((s (executable-find "gosh")))
  1034. (set-variable 'scheme-program-name s)
  1035. (set-variable 'gauche-program-name s))
  1036. (defvar gauche-program-name nil)
  1037. (defvar scheme-buffer nil)
  1038. (defun run-gauche-other-window ()
  1039. "Run gauche on other window"
  1040. (interactive)
  1041. (switch-to-buffer-other-window
  1042. (get-buffer-create "*scheme*"))
  1043. (run-gauche))
  1044. (defun run-gauche ()
  1045. "run gauche"
  1046. (interactive)
  1047. (run-scheme gauche-program-name)
  1048. )
  1049. (defun scheme-send-buffer ()
  1050. ""
  1051. (interactive)
  1052. (scheme-send-region (point-min) (point-max))
  1053. (my-scheme-display-scheme-buffer)
  1054. )
  1055. (defun my-scheme-display-scheme-buffer ()
  1056. ""
  1057. (interactive)
  1058. (set-window-text-height (display-buffer scheme-buffer
  1059. t)
  1060. 7))
  1061. (add-hook 'scheme-mode-hook
  1062. (lambda ()
  1063. nil))
  1064. (add-hook 'inferior-scheme-mode-hook
  1065. (lambda ()
  1066. ;; (my-scheme-display-scheme-buffer)
  1067. ))
  1068. (setq auto-mode-alist
  1069. (cons '("\.gosh\\'" . gauche-mode) auto-mode-alist))
  1070. (setq auto-mode-alist
  1071. (cons '("\.gaucherc\\'" . gauche-mode) auto-mode-alist))
  1072. )
  1073. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1074. ;; term mode
  1075. ;; (setq multi-term-program shell-file-name)
  1076. (when (autoload-eval-lazily 'multi-term)
  1077. (set-variable 'multi-term-switch-after-close nil)
  1078. (set-variable 'multi-term-dedicated-select-after-open-p t)
  1079. (set-variable 'multi-term-dedicated-window-height 20))
  1080. (when (autoload-eval-lazily 'term '(term ansi-term)
  1081. (defvar term-raw-map (make-sparse-keymap))
  1082. ;; (define-key term-raw-map "\C-xl" 'term-line-mode)
  1083. ;; (define-key term-mode-map "\C-xc" 'term-char-mode)
  1084. (define-key term-raw-map (kbd "<up>") 'scroll-down-line)
  1085. (define-key term-raw-map (kbd "<down>") 'scroll-up-line)
  1086. (define-key term-raw-map (kbd "<right>") 'scroll-up)
  1087. (define-key term-raw-map (kbd "<left>") 'scroll-down)
  1088. (define-key term-raw-map (kbd "C-p") 'term-send-raw)
  1089. (define-key term-raw-map (kbd "C-n") 'term-send-raw)
  1090. (define-key term-raw-map "q" 'my-term-quit-or-send-raw)
  1091. ;; (define-key term-raw-map (kbd "ESC") 'term-send-raw)
  1092. (define-key term-raw-map [delete] 'term-send-raw)
  1093. (define-key term-raw-map (kbd "DEL") 'term-send-backspace)
  1094. (define-key term-raw-map "\C-y" 'term-paste)
  1095. (define-key term-raw-map
  1096. "\C-c" 'term-send-raw) ;; 'term-interrupt-subjob)
  1097. '(define-key term-mode-map (kbd "C-x C-q") 'term-pager-toggle)
  1098. ;; (dolist (key '("<up>" "<down>" "<right>" "<left>"))
  1099. ;; (define-key term-raw-map (read-kbd-macro key) 'term-send-raw))
  1100. ;; (define-key term-raw-map "\C-d" 'delete-char)
  1101. ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)
  1102. ;; (define-key term-raw-map "\C-r" 'term-send-raw)
  1103. ;; (define-key term-raw-map "\C-s" 'term-send-raw)
  1104. ;; (define-key term-raw-map "\C-f" 'forward-char)
  1105. ;; (define-key term-raw-map "\C-b" 'backward-char)
  1106. ;; (define-key term-raw-map "\C-t" 'set-mark-command)
  1107. )
  1108. (defun my-term-quit-or-send-raw ()
  1109. ""
  1110. (interactive)
  1111. (if (get-buffer-process (current-buffer))
  1112. (call-interactively 'term-send-raw)
  1113. (kill-buffer)))
  1114. ;; http://d.hatena.ne.jp/goinger/20100416/1271399150
  1115. ;; (setq term-ansi-default-program shell-file-name)
  1116. (add-hook 'term-setup-hook
  1117. (lambda ()
  1118. (set-variable 'term-display-table (make-display-table))))
  1119. (add-hook 'term-mode-hook
  1120. (lambda ()
  1121. (defvar term-raw-map (make-sparse-keymap))
  1122. ;; (unless (memq (current-buffer)
  1123. ;; (and (featurep 'multi-term)
  1124. ;; (defvar multi-term-buffer-list)
  1125. ;; ;; current buffer is not multi-term buffer
  1126. ;; multi-term-buffer-list))
  1127. ;; )
  1128. (set (make-local-variable 'scroll-margin) 0)
  1129. ;; (set (make-local-variable 'cua-enable-cua-keys) nil)
  1130. ;; (cua-mode 0)
  1131. ;; (and cua-mode
  1132. ;; (local-unset-key (kbd "C-c")))
  1133. ;; (define-key cua--prefix-override-keymap
  1134. ;;"\C-c" 'term-interrupt-subjob)
  1135. (set (make-local-variable (defvar hl-line-range-function))
  1136. (lambda ()
  1137. '(0 . 0)))
  1138. (define-key term-raw-map
  1139. "\C-x" (lookup-key (current-global-map) "\C-x"))
  1140. (define-key term-raw-map
  1141. "\C-z" (lookup-key (current-global-map) "\C-z"))
  1142. ))
  1143. ;; (add-hook 'term-exec-hook 'forward-char)
  1144. )
  1145. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1146. ;; buffer switching
  1147. (defvar bs-configurations)
  1148. (when (autoload-eval-lazily 'bs '(bs-show)
  1149. ;; (add-to-list 'bs-configurations
  1150. ;; '("processes" nil get-buffer-process ".*" nil nil))
  1151. (add-to-list 'bs-configurations
  1152. '("files-and-terminals" nil nil nil
  1153. (lambda (buf)
  1154. (and (bs-visits-non-file buf)
  1155. (save-excursion
  1156. (set-buffer buf)
  1157. (not (memq major-mode
  1158. '(term-mode
  1159. eshell-mode))))))))
  1160. ;; (setq bs-configurations (list
  1161. ;; '("processes" nil get-buffer-process ".*" nil nil)
  1162. ;; '("files-and-scratch" "^\\*scratch\\*$" nil nil
  1163. ;; bs-visits-non-file bs-sort-buffer-interns-are-last)))
  1164. )
  1165. ;; (global-set-key "\C-x\C-b" 'bs-show)
  1166. (defalias 'list-buffers 'bs-show)
  1167. (set-variable 'bs-default-configuration "files-and-terminals")
  1168. (set-variable 'bs-default-sort-name "by nothing")
  1169. (add-hook 'bs-mode-hook
  1170. (lambda ()
  1171. ;; (setq bs-default-configuration "files")
  1172. ;; (and bs--show-all
  1173. ;; (call-interactively 'bs-toggle-show-all))
  1174. (set (make-local-variable 'scroll-margin) 0))))
  1175. ;;(iswitchb-mode 1)
  1176. (icomplete-mode)
  1177. (defun iswitchb-buffer-display-other-window ()
  1178. "Do iswitchb in other window."
  1179. (interactive)
  1180. (let ((iswitchb-default-method 'display))
  1181. (call-interactively 'iswitchb-buffer)))
  1182. ;;;;;;;;;;;;;;;;;;;;;;;;
  1183. ;; ilookup
  1184. (with-eval-after-load 'ilookup
  1185. (set-variable 'ilookup-dict-alist
  1186. '(
  1187. ("sdcv" . (lambda (word)
  1188. (shell-command-to-string
  1189. (format "sdcv -n '%s'"
  1190. word))))
  1191. ("en" . (lambda (word)
  1192. (shell-command-to-string
  1193. (format "sdcv -n -u dictd_www.dict.org_gcide '%s'"
  1194. word))))
  1195. ("ja" . (lambda (word)
  1196. (shell-command-to-string
  1197. (format "sdcv -n -u EJ-GENE95 -u jmdict-en-ja '%s'"
  1198. word))))
  1199. ("jaj" . (lambda (word)
  1200. (shell-command-to-string
  1201. (format "sdcv -n -u jmdict-en-ja '%s'"
  1202. word))))
  1203. ("jag" .
  1204. (lambda (word)
  1205. (with-temp-buffer
  1206. (insert (shell-command-to-string
  1207. (format "sdcv -n -u 'Genius English-Japanese' '%s'"
  1208. word)))
  1209. (html2text)
  1210. (buffer-substring (point-min)
  1211. (point-max)))))
  1212. ("alc" . (lambda (word)
  1213. (shell-command-to-string
  1214. (format "alc '%s' | head -n 20"
  1215. word))))
  1216. ("app" . (lambda (word)
  1217. (shell-command-to-string
  1218. (format "dict_app '%s'"
  1219. word))))
  1220. ;; letters broken
  1221. ("ms" .
  1222. (lambda (word)
  1223. (let ((url (concat
  1224. "http://api.microsofttranslator.com/V2/Ajax.svc/"
  1225. "Translate?appId=%s&text=%s&to=%s"))
  1226. (apikey "3C9778666C5BA4B406FFCBEE64EF478963039C51")
  1227. (target "ja")
  1228. (eword (url-hexify-string word)))
  1229. (with-current-buffer (url-retrieve-synchronously
  1230. (format url
  1231. apikey
  1232. eword
  1233. target))
  1234. (message "")
  1235. (goto-char (point-min))
  1236. (search-forward-regexp "^$"
  1237. nil
  1238. t)
  1239. (url-unhex-string (buffer-substring-no-properties
  1240. (point)
  1241. (point-max)))))))
  1242. ))
  1243. ;; (funcall (cdr (assoc "ms"
  1244. ;; ilookup-alist))
  1245. ;; "dictionary")
  1246. ;; (switch-to-buffer (url-retrieve-synchronously "http://api.microsofttranslator.com/V2/Ajax.svc/Translate?appId=3C9778666C5BA4B406FFCBEE64EF478963039C51&text=dictionary&to=ja"))
  1247. ;; (switch-to-buffer (url-retrieve-synchronously "http://google.com"))
  1248. (set-variable 'ilookup-default "ja")
  1249. (when (locate-library "google-translate")
  1250. (defvar ilookup-dict-alist nil)
  1251. (add-to-list 'ilookup-dict-alist
  1252. '("gt" .
  1253. (lambda (word)
  1254. (save-excursion
  1255. (google-translate-translate "auto"
  1256. "ja"
  1257. word))
  1258. (with-current-buffer "*Google Translate*"
  1259. (buffer-substring-no-properties (point-min)
  1260. (point-max)))))))
  1261. )
  1262. (when (autoload-eval-lazily 'google-translate '(google-translate-translate
  1263. google-translate-at-point))
  1264. (set-variable 'google-translate-default-source-language "auto")
  1265. (set-variable 'google-translate-default-target-language "ja"))
  1266. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1267. ;; vc
  1268. (require 'vc)
  1269. (setq vc-handled-backends '())
  1270. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1271. ;; recentf-mode
  1272. (set-variable 'recentf-save-file (expand-file-name (concat user-emacs-directory
  1273. "recentf")))
  1274. (set-variable 'recentf-max-menu-items 20)
  1275. (set-variable 'recentf-max-saved-items 30)
  1276. (set-variable 'recentf-show-file-shortcuts-flag nil)
  1277. (when (safe-require-or-eval 'recentf)
  1278. (add-to-list 'recentf-exclude
  1279. (regexp-quote recentf-save-file))
  1280. (add-to-list 'recentf-exclude
  1281. (regexp-quote (expand-file-name user-emacs-directory)))
  1282. (define-key ctl-x-map (kbd "C-r") 'recentf-open-files)
  1283. (remove-hook 'find-file-hook
  1284. 'recentf-track-opened-file)
  1285. (defun my-recentf-load-track-save-list ()
  1286. "Load current recentf list from file, track current visiting file, then save
  1287. the list."
  1288. (recentf-load-list)
  1289. (recentf-track-opened-file)
  1290. (recentf-save-list))
  1291. (add-hook 'find-file-hook
  1292. 'my-recentf-load-track-save-list)
  1293. (add-hook 'kill-emacs-hook
  1294. 'recentf-load-list)
  1295. ;;(run-with-idle-timer 5 t 'recentf-save-list)
  1296. ;; (add-hook 'find-file-hook
  1297. ;; (lambda ()
  1298. ;; (recentf-add-file default-directory)))
  1299. (and (autoload-eval-lazily 'recentf-show)
  1300. (define-key ctl-x-map (kbd "C-r") 'recentf-show)
  1301. (add-hook 'recentf-show-before-listing-hook
  1302. 'recentf-load-list))
  1303. (recentf-mode 1)
  1304. (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line)
  1305. (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line)
  1306. (define-key recentf-dialog-mode-map "p" 'previous-line)
  1307. (define-key recentf-dialog-mode-map "n" 'next-line)
  1308. (add-hook 'recentf-dialog-mode-hook
  1309. (lambda ()
  1310. ;; (recentf-save-list)
  1311. ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f")
  1312. ;; 'my-recentf-cd-and-find-file)
  1313. (cd "~/"))))
  1314. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1315. ;; dired
  1316. (defun my-dired-echo-file-head (arg)
  1317. ""
  1318. (interactive "P")
  1319. (let ((f (dired-get-filename)))
  1320. (message "%s"
  1321. (with-temp-buffer
  1322. (insert-file-contents f)
  1323. (buffer-substring-no-properties
  1324. (point-min)
  1325. (progn (goto-char (point-min))
  1326. (forward-line (1- (if arg
  1327. (prefix-numeric-value arg)
  1328. 7)))
  1329. (point-at-eol)))))))
  1330. (defun my-dired-diff ()
  1331. ""
  1332. (interactive)
  1333. (let ((files (dired-get-marked-files nil nil nil t)))
  1334. (if (eq (car files)
  1335. t)
  1336. (diff (cadr files) (dired-get-filename))
  1337. (message "One file must be marked!"))))
  1338. (defun dired-get-file-info ()
  1339. "dired get file info"
  1340. (interactive)
  1341. (let ((f (shell-quote-argument (dired-get-filename t))))
  1342. (if (file-directory-p f)
  1343. (progn
  1344. (message "Calculating disk usage...")
  1345. (shell-command (concat "du -hsD "
  1346. f)))
  1347. (shell-command (concat "file "
  1348. f)))))
  1349. (defun my-dired-scroll-up ()
  1350. ""
  1351. (interactive)
  1352. (my-dired-previous-line (- (window-height) 1)))
  1353. (defun my-dired-scroll-down ()
  1354. ""
  1355. (interactive)
  1356. (my-dired-next-line (- (window-height) 1)))
  1357. ;; (defun my-dired-forward-line (arg)
  1358. ;; ""
  1359. ;; (interactive "p"))
  1360. (defun my-dired-previous-line (arg)
  1361. ""
  1362. (interactive "p")
  1363. (if (> arg 0)
  1364. (progn
  1365. (if (eq (line-number-at-pos)
  1366. 1)
  1367. (goto-char (point-max))
  1368. (forward-line -1))
  1369. (my-dired-previous-line (if (or (dired-get-filename nil t)
  1370. (dired-get-subdir))
  1371. (- arg 1)
  1372. arg)))
  1373. (dired-move-to-filename)))
  1374. (defun my-dired-next-line (arg)
  1375. ""
  1376. (interactive "p")
  1377. (if (> arg 0)
  1378. (progn
  1379. (if (eq (point)
  1380. (point-max))
  1381. (goto-char (point-min))
  1382. (forward-line 1))
  1383. (my-dired-next-line (if (or (dired-get-filename nil t)
  1384. (dired-get-subdir))
  1385. (- arg 1)
  1386. arg)))
  1387. (dired-move-to-filename)))
  1388. ;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html
  1389. (if (eq window-system 'mac)
  1390. (setq dired-listing-switches "-lhF")
  1391. (setq dired-listing-switches "-lhF --time-style=long-iso")
  1392. )
  1393. (setq dired-listing-switches "-lhF")
  1394. (put 'dired-find-alternate-file 'disabled nil)
  1395. ;; when using dired-find-alternate-file
  1396. ;; reuse current dired buffer for the file to open
  1397. (set-variable 'dired-ls-F-marks-symlinks t)
  1398. (when (safe-require-or-eval 'ls-lisp)
  1399. (setq ls-lisp-use-insert-directory-program nil) ; always use ls-lisp
  1400. (setq ls-lisp-dirs-first t)
  1401. (setq ls-lisp-use-localized-time-format t)
  1402. (setq ls-lisp-format-time-list
  1403. '("%Y-%m-%d %H:%M"
  1404. "%Y-%m-%d ")))
  1405. (set-variable 'dired-dwim-target t)
  1406. (set-variable 'dired-isearch-filenames t)
  1407. (set-variable 'dired-hide-details-hide-symlink-targets nil)
  1408. (set-variable 'dired-hide-details-hide-information-lines nil)
  1409. ;; (add-hook 'dired-after-readin-hook
  1410. ;; 'my-replace-nasi-none)
  1411. ;; (add-hook 'after-init-hook
  1412. ;; (lambda ()
  1413. ;; (dired ".")))
  1414. (with-eval-after-load 'dired
  1415. (defvar dired-mode-map (make-sparse-keymap))
  1416. (define-key dired-mode-map "o" 'my-dired-x-open)
  1417. (define-key dired-mode-map "i" 'dired-get-file-info)
  1418. (define-key dired-mode-map "f" 'find-file)
  1419. (define-key dired-mode-map "!" 'shell-command)
  1420. (define-key dired-mode-map "&" 'async-shell-command)
  1421. (define-key dired-mode-map "X" 'dired-do-async-shell-command)
  1422. (define-key dired-mode-map "=" 'my-dired-diff)
  1423. (define-key dired-mode-map "B" 'gtkbm-add-current-dir)
  1424. (define-key dired-mode-map "b" 'gtkbm)
  1425. (define-key dired-mode-map "h" 'my-dired-echo-file-head)
  1426. (define-key dired-mode-map "@" (lambda ()
  1427. (interactive) (my-x-open ".")))
  1428. (define-key dired-mode-map (kbd "TAB") 'other-window)
  1429. ;; (define-key dired-mode-map "P" 'my-dired-do-pack-or-unpack)
  1430. (define-key dired-mode-map "/" 'dired-isearch-filenames)
  1431. (define-key dired-mode-map (kbd "DEL") 'dired-up-directory)
  1432. (define-key dired-mode-map (kbd "C-h") 'dired-up-directory)
  1433. (substitute-key-definition 'dired-next-line
  1434. 'my-dired-next-line
  1435. dired-mode-map)
  1436. (substitute-key-definition 'dired-previous-line
  1437. 'my-dired-previous-line
  1438. dired-mode-map)
  1439. ;; (define-key dired-mode-map (kbd "C-p") 'my-dired-previous-line)
  1440. ;; (define-key dired-mode-map (kbd "p") 'my-dired-previous-line)
  1441. ;; (define-key dired-mode-map (kbd "C-n") 'my-dired-next-line)
  1442. ;; (define-key dired-mode-map (kbd "n") 'my-dired-next-line)
  1443. (define-key dired-mode-map (kbd "<left>") 'my-dired-scroll-up)
  1444. (define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)
  1445. (define-key dired-mode-map (kbd "ESC p") 'my-dired-scroll-up)
  1446. (define-key dired-mode-map (kbd "ESC n") 'my-dired-scroll-down)
  1447. (add-hook 'dired-mode-hook
  1448. (lambda ()
  1449. (when (fboundp 'dired-hide-details-mode)
  1450. (dired-hide-details-mode t)
  1451. (local-set-key "l" 'dired-hide-details-mode))
  1452. (let ((file "._Icon\015"))
  1453. (when nil
  1454. '(file-readable-p file)
  1455. (delete-file file)))))
  1456. (when (autoload-eval-lazily 'pack '(dired-do-pack-or-unpack pack-pack))
  1457. (with-eval-after-load 'dired
  1458. (define-key dired-mode-map "P" 'dired-do-pack-or-unpack)))
  1459. (when (autoload-eval-lazily 'dired-list-all-mode)
  1460. (setq dired-listing-switches "-lhF")
  1461. (with-eval-after-load 'dired
  1462. (define-key dired-mode-map "a" 'dired-list-all-mode))))
  1463. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1464. ;; my-term
  1465. (defvar my-term nil
  1466. "My terminal buffer.")
  1467. (defvar my-term-function nil
  1468. "Function to create terminal buffer.
  1469. This function accept no argument and return newly created buffer of terminal.")
  1470. (defun my-term (&optional arg)
  1471. "Open terminal buffer and return that buffer.
  1472. If ARG is given or called with prefix argument, create new buffer."
  1473. (interactive "P")
  1474. (if (and (not arg)
  1475. my-term
  1476. (buffer-name my-term))
  1477. (pop-to-buffer my-term)
  1478. (setq my-term
  1479. (save-window-excursion
  1480. (funcall my-term-function)))
  1481. (and my-term
  1482. (my-term))))
  1483. ;; (setq my-term-function
  1484. ;; (lambda ()
  1485. ;; (if (eq system-type 'windows-nt)
  1486. ;; (eshell)
  1487. ;; (if (require 'multi-term nil t)
  1488. ;; (multi-term)
  1489. ;; (ansi-term shell-file-name)))))
  1490. (setq my-term-function (lambda () (eshell t)))
  1491. ;;(define-key my-prefix-map (kbd "C-s") 'my-term)
  1492. (define-key ctl-x-map "i" 'my-term)
  1493. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1494. ;; misc funcs
  1495. (defalias 'qcalc 'quick-calc)
  1496. (defun memo (&optional dir)
  1497. "Open memo.txt in DIR."
  1498. (interactive)
  1499. (pop-to-buffer (find-file-noselect (concat (if dir
  1500. (file-name-as-directory dir)
  1501. "")
  1502. "memo.txt"))))
  1503. (defvar my-rgrep-alist
  1504. `(
  1505. ;; the silver searcher
  1506. ("ag"
  1507. (executable-find "ag")
  1508. "ag --nocolor --nogroup --nopager --filename ")
  1509. ;; ack
  1510. ("ack"
  1511. (executable-find "ack")
  1512. "ack --nocolor --nogroup --nopager --with-filename ")
  1513. ;; gnu global
  1514. ("global"
  1515. (and (require 'gtags nil t)
  1516. (executable-find "global")
  1517. (gtags-get-rootpath))
  1518. "global --result grep ")
  1519. ;; git grep
  1520. ("gitgrep"
  1521. (eq 0
  1522. (shell-command "git rev-parse --git-dir"))
  1523. "git --no-pager -c color.grep=false grep -nH -e ")
  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. "Alist of rgrep command.
  1534. Each element is in the form like (NAME SEXP COMMAND), where SEXP returns the
  1535. condition to choose COMMAND when evaluated.")
  1536. (defvar my-rgrep-default nil
  1537. "Default command name for my-rgrep.")
  1538. (defun my-rgrep-grep-command (&optional name alist)
  1539. "Return recursive grep command for current directory or nil.
  1540. If NAME is given, use that without testing.
  1541. Commands are searched from ALIST."
  1542. (if alist
  1543. (if name
  1544. ;; if name is given search that from alist and return the command
  1545. (nth 2 (assoc name
  1546. alist))
  1547. ;; if name is not given try test in 1th elem
  1548. (let ((car (car alist))
  1549. (cdr (cdr alist)))
  1550. (if (eval (nth 1 car))
  1551. ;; if the condition is true return the command
  1552. (nth 2 car)
  1553. ;; try next one
  1554. (and cdr
  1555. (my-rgrep-grep-command name cdr)))))
  1556. ;; if alist is not given set default value
  1557. (my-rgrep-grep-command name my-rgrep-alist)))
  1558. (defun my-rgrep (command-args)
  1559. "My recursive grep. Run COMMAND-ARGS."
  1560. (interactive (let ((cmd (my-rgrep-grep-command my-rgrep-default
  1561. nil)))
  1562. (if cmd
  1563. (list (read-shell-command "grep command: "
  1564. cmd
  1565. 'grep-find-history))
  1566. (error "My-Rgrep: Command for rgrep not found")
  1567. )))
  1568. (compilation-start command-args
  1569. 'grep-mode))
  1570. ;; (defun my-rgrep-symbol-at-point (command-args)
  1571. ;; "My recursive grep. Run COMMAND-ARGS."
  1572. ;; (interactive (list (read-shell-command "grep command: "
  1573. ;; (concat (my-rgrep-grep-command)
  1574. ;; " "
  1575. ;; (thing-at-point 'symbol))
  1576. ;; 'grep-find-history)))
  1577. ;; (compilation-start command-args
  1578. ;; 'grep-mode))
  1579. (defmacro define-my-rgrep (name)
  1580. "Define rgrep for NAME."
  1581. `(defun ,(intern (concat "my-rgrep-"
  1582. name)) ()
  1583. ,(format "My recursive grep by %s."
  1584. name)
  1585. (interactive)
  1586. (let ((my-rgrep-default ,name))
  1587. (if (called-interactively-p 'any)
  1588. (call-interactively 'my-rgrep)
  1589. (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
  1590. )
  1591. (define-my-rgrep "ack")
  1592. (define-my-rgrep "ag")
  1593. (define-my-rgrep "gitgrep")
  1594. (define-my-rgrep "grep")
  1595. (define-my-rgrep "global")
  1596. (define-key ctl-x-map "s" 'my-rgrep)
  1597. ;; (defun make ()
  1598. ;; "Run \"make -k\" in current directory."
  1599. ;; (interactive)
  1600. ;; (compile "make -k"))
  1601. (defalias 'make 'compile)
  1602. (define-key ctl-x-map "c" 'compile)
  1603. ;;; emacs.el ends here