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.
 
 
 
 
 
 

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