Não pode escolher mais do que 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

emacs.el 65 KiB

há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 12 anos
há 12 anos
há 13 anos
há 13 anos
há 12 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 13 anos
há 13 anos
há 12 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 13 anos
há 13 anos
há 12 anos
há 13 anos
há 13 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 12 anos
há 12 anos
há 12 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 13 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 13 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 12 anos
há 12 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
há 13 anos
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850
  1. ;; load another file
  2. ;; (load-file "~/filepath")
  3. (unless (file-directory-p (expand-file-name "~/.emacs.d"))
  4. (make-directory (expand-file-name "~/.emacs.d")))
  5. (unless (file-directory-p (expand-file-name "~/.emacs.d/lisp"))
  6. (make-directory (expand-file-name "~/.emacs.d/lisp")))
  7. (add-to-list 'load-path "~/.emacs.d/lisp")
  8. (require 'cl nil t)
  9. (progn ; hook run when directory changed
  10. (defvar buffer-file-changed-function nil "Hook run when buffer file changed.
  11. Each function is called with two args, the filename before changing and after changing.")
  12. (declare-function run-buffer-file-change-function "emacs.el")
  13. (add-hook 'post-command-hook
  14. 'run-buffer-file-changed-function)
  15. (lexical-let (previous-file)
  16. (defun run-buffer-file-changed-function ()
  17. ""
  18. (unless (and previous-file
  19. (equal previous-file
  20. (expand-file-name (or buffer-file-name
  21. default-directory))))
  22. (let ((pfile previous-file)
  23. (cfile (expand-file-name (or buffer-file-name
  24. default-directory))))
  25. (setq previous-file cfile)
  26. (run-hook-with-args 'directory-changed-function pfile cfile)))))
  27. ;; (add-hook 'directory-changed-function
  28. ;; (lambda (pdir cdir)
  29. ;; (message "dir changed %s to %s !" pdir cdir)))
  30. )
  31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32. ;; download library from web
  33. (require 'url)
  34. (defun dllib-if-unfound (lib url &optional bite-compile-p force-download-p)
  35. "if LIB does not exist, download it from URL and locate it to \"~/emacs.d/lisp/LIB.el\".
  36. return nil if LIB unfound and downloading failed, otherwise the path of LIB."
  37. (let* ((dir (expand-file-name (concat user-emacs-directory "lisp/")))
  38. (lpath (concat dir lib ".el"))
  39. (locate-p (locate-library lib)))
  40. (if (or force-download-p (not locate-p))
  41. (progn (condition-case nil
  42. (progn (message "downloading %s..." url)
  43. (url-copy-file url
  44. lpath
  45. t)
  46. (when bite-compile-p
  47. (byte-compile-file lpath)))
  48. (error (and (file-readable-p lpath)
  49. (delete-file lpath))
  50. (message "downloading %s...something wrong happened!" url)
  51. nil))
  52. (locate-library lib))
  53. locate-p)))
  54. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  55. ;; start and quit
  56. (setq inhibit-startup-message t)
  57. (setq frame-title-format (list '(:eval (format-time-string (or display-time-format "")))
  58. " | %b "
  59. '(:eval (number-to-string (length (buffer-list-not-start-with-space))))
  60. " buffers ["
  61. invocation-name
  62. " "
  63. emacs-version
  64. " "
  65. (symbol-name system-type)
  66. "] "
  67. '(:eval (symbol-name last-command))))
  68. (defun set-terminal-title (&rest args)
  69. ""
  70. (interactive "sString to set as title: ")
  71. (let ((tty (frame-parameter nil
  72. 'tty-type)))
  73. (when (and tty
  74. (eq t (compare-strings "xterm" 0 5
  75. tty 0 5)))
  76. (send-string-to-terminal (apply 'concat
  77. "\033]0;"
  78. `(,@args "\007"))))))
  79. (defun my-set-terminal-title ()
  80. ""
  81. (set-terminal-title "["
  82. invocation-name
  83. " "
  84. emacs-version
  85. " "
  86. (symbol-name system-type)
  87. "] "
  88. (abbreviate-file-name (or buffer-file-name default-directory))))
  89. (add-hook 'directory-changed-function
  90. (lambda (p c)
  91. (my-set-terminal-title)))
  92. (add-hook 'suspend-resume-hook
  93. 'my-set-terminal-title)
  94. (defun buffer-list-not-start-with-space ()
  95. (let ((bl (buffer-list))
  96. b nbl)
  97. (while bl
  98. (setq b (pop bl))
  99. (unless (string-equal " "
  100. (substring (buffer-name b)
  101. 0
  102. 1))
  103. (add-to-list 'nbl b)))
  104. nbl))
  105. (setq confirm-kill-emacs 'y-or-n-p)
  106. (setq gc-cons-threshold (* 1024 1024 4))
  107. (when window-system
  108. (add-to-list 'default-frame-alist '(cursor-type . box))
  109. (add-to-list 'default-frame-alist '(background-color . "white"))
  110. (add-to-list 'default-frame-alist '(foreground-color . "gray10"))
  111. ;; (add-to-list 'default-frame-alist '(alpha . (80 100 100 100))) ; does not work?
  112. )
  113. (if window-system (menu-bar-mode 1) (menu-bar-mode 0))
  114. (tool-bar-mode 0)
  115. (set-scroll-bar-mode nil)
  116. (add-hook 'kill-emacs-hook ; load when exitting to examine if file is written properly
  117. (lambda ()
  118. (when (file-readable-p "~/.emacs")
  119. (load-file "~/.emacs"))
  120. ))
  121. (add-hook 'after-init-hook
  122. (lambda ()
  123. (message (emacs-init-time))
  124. (switch-to-buffer "*Messages*")
  125. ))
  126. (cd ".") ; when using windows use / instead of \ in `default-directory'
  127. ;; locale
  128. (set-language-environment "Japanese")
  129. (set-default-coding-systems 'utf-8-unix)
  130. (prefer-coding-system 'utf-8-unix)
  131. (setq system-time-locale "C")
  132. ;; my prefix map
  133. (define-prefix-command 'my-prefix-map)
  134. '(add-hook 'after-init-hook
  135. (lambda ()
  136. (define-key ctl-x-map (kbd "C-x") 'my-prefix-map)
  137. ))
  138. (define-key ctl-x-map (kbd "C-x") 'my-prefix-map)
  139. (define-key my-prefix-map (kbd "C-q") 'quoted-insert)
  140. (define-key my-prefix-map (kbd "C-z") 'suspend-frame)
  141. ;; (comint-show-maximum-output)
  142. ;; kill scratch
  143. (add-hook 'after-init-hook
  144. (lambda ()
  145. (kill-buffer "*scratch*")))
  146. ;; modifier keys
  147. (setq mac-option-modifier 'control)
  148. (setq w32-apps-modifier 'meta)
  149. ;; display
  150. (setq redisplay-dont-pause t)
  151. (setq visible-bell t)
  152. (setq ring-bell-function 'ignore)
  153. (mouse-avoidance-mode 'banish)
  154. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  155. ;; global keys
  156. (and (dllib-if-unfound "drill-instructor"
  157. "https://raw.github.com/k1LoW/emacs-drill-instructor/master/drill-instructor.el"
  158. t)
  159. (require 'drill-instructor nil t)
  160. (setq drill-instructor-global t)
  161. (let ((map drill-instructor-key-map))
  162. (define-key map (kbd "RET") nil)
  163. (define-key map (kbd "DEL") nil)))
  164. '(mapc (lambda (key)
  165. (global-set-key (read-kbd-macro key) 'ignore))
  166. '("<up>" "<down>" "<right>" "<left>"))
  167. (define-key my-prefix-map (kbd "C-o") 'occur)
  168. ;; (define-key my-prefix-map (kbd "C-h") help-map)
  169. (global-set-key (kbd "C-\\") help-map)
  170. (define-key ctl-x-map (kbd "DEL") help-map)
  171. (define-key ctl-x-map (kbd "C-h") help-map)
  172. (define-key help-map "a" 'apropos)
  173. ;; compose window
  174. (global-set-key [?\C--] 'other-window)
  175. (global-set-key [?\C-0] 'delete-window)
  176. (global-set-key [?\C-1] 'delete-other-windows)
  177. (global-set-key [?\C-2] 'split-window-vertically)
  178. (global-set-key [?\C-3] 'split-window-horizontally)
  179. ;; disable annoying keys
  180. (global-set-key [prior] 'ignore)
  181. (global-set-key (kbd "<next>") 'ignore)
  182. (global-set-key [menu] 'ignore)
  183. (global-set-key [down-mouse-1] 'ignore)
  184. (global-set-key [down-mouse-2] 'ignore)
  185. (global-set-key [down-mouse-3] 'ignore)
  186. (global-set-key [mouse-1] 'ignore)
  187. (global-set-key [mouse-2] 'ignore)
  188. (global-set-key [mouse-3] 'ignore)
  189. (global-set-key (kbd "<eisu-toggle>") 'ignore)
  190. (global-set-key (kbd "C-<eisu-toggle>") 'ignore)
  191. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  192. ;; mode-line
  193. (setq eol-mnemonic-dos "crlf")
  194. (setq eol-mnemonic-mac "cr")
  195. (setq eol-mnemonic-unix "lf")
  196. (which-function-mode 0)
  197. (line-number-mode 0)
  198. (column-number-mode 0)
  199. (size-indication-mode 0)
  200. (setq mode-line-position
  201. '(:eval (format "L%%l/%d,C%%c"
  202. (count-lines (point-max)
  203. (point-min)))))
  204. ;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title
  205. ;; display date
  206. (add-hook 'after-init-hook
  207. (lambda ()
  208. (when display-time-mode
  209. (display-time-update))
  210. ))
  211. (setq display-time-interval 29)
  212. (setq display-time-day-and-date t)
  213. (setq display-time-format "%a, %d %b %Y %T")
  214. (if window-system
  215. (display-time-mode 0)
  216. (display-time-mode 1))
  217. ;; ;; current directory
  218. ;; (let ((ls (member 'mode-line-buffer-identification
  219. ;; mode-line-format)))
  220. ;; (setcdr ls
  221. ;; (cons '(:eval (concat " ("
  222. ;; (abbreviate-file-name default-directory)
  223. ;; ")"))
  224. ;; (cdr ls))))
  225. ;; ;; display last modified time
  226. ;; (let ((ls (member 'mode-line-buffer-identification
  227. ;; mode-line-format)))
  228. ;; (setcdr ls
  229. ;; (cons '(:eval (concat " "
  230. ;; my-buffer-file-last-modified-time))
  231. ;; (cdr ls))))
  232. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  233. ;; minibuffer
  234. (setq insert-default-directory t)
  235. (setq completion-ignore-case t
  236. read-file-name-completion-ignore-case t
  237. read-buffer-completion-ignore-case t)
  238. (setq resize-mini-window t)
  239. (temp-buffer-resize-mode 1)
  240. (savehist-mode 1)
  241. (fset 'yes-or-no-p 'y-or-n-p)
  242. (define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) ; complete symbol when `eval'
  243. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  244. ;; letters, font-lock mode and fonts
  245. ;; (set-face-background 'vertical-border (face-foreground 'mode-line))
  246. (when (eq system-type 'Darwin)
  247. (mac-set-input-method-parameter 'japanese 'cursor-color "red")
  248. (mac-set-input-method-parameter 'roman 'cursor-color "black"))
  249. (when (and (boundp 'input-method-activate-hook) ;ちょっと正しいかわかんない
  250. (boundp 'input-method-inactivate-hook))
  251. (add-hook 'input-method-activate-hook
  252. (lambda () (set-cursor-color "red")))
  253. (add-hook 'input-method-inactivate-hook
  254. (lambda () (set-cursor-color "black"))))
  255. (show-paren-mode 1)
  256. (setq show-paren-style 'mixed)
  257. (transient-mark-mode 1)
  258. (global-font-lock-mode 1)
  259. (setq font-lock-global-modes
  260. '(not
  261. help-mode
  262. eshell-mode
  263. term-mode
  264. Man-mode))
  265. (standard-display-ascii ?\n "$\n")
  266. (standard-display-ascii ?\f "---------------------------------------------------------------------------------------^L")
  267. (defface my-pagebreak-face
  268. '((t (:foreground "gray")))
  269. "pagebreak.")
  270. (defvar my-eol-face
  271. '(("\n" . (0 font-lock-comment-face t nil)))
  272. )
  273. (defvar my-pagebreak-face
  274. '(("\f" . 'my-pagebreak-face)))
  275. (defvar my-highlight-face
  276. '(("\t" . '(0 highlight t nil))
  277. (" " . '(0 highlight t nil))))
  278. ;; highlight current line
  279. ;; http://wiki.riywo.com/index.php?Meadow
  280. (defface hlline-face
  281. '((((type x w32)
  282. (class color)
  283. (background dark))
  284. (:background "midnightblue")) ; :foreground "white")) ;; ハイライトの文字色は変えない方がいいかも
  285. (((type x w32)
  286. (class color)
  287. (background light))
  288. (:background "gainsboro"))
  289. (t
  290. (:underline "black")))
  291. "*Face used by hl-line.")
  292. ;; (defface hlline-ul-face
  293. ;; '((t (:underline "yellow")))
  294. ;; "underline yellow")
  295. (setq hl-line-face 'hlline-face) ;; (setq hl-line-face nil)
  296. (global-hl-line-mode 1) ;; (hl-line-mode 1)
  297. (setq hl-line-global-modes
  298. '(not
  299. term-mode))
  300. (add-hook 'font-lock-mode-hook
  301. (lambda ()
  302. (font-lock-add-keywords nil my-eol-face)
  303. ;; (font-lock-add-keywords nil my-highlight-face)
  304. ))
  305. (set-face-foreground 'font-lock-regexp-grouping-backslash "#666")
  306. (set-face-foreground 'font-lock-regexp-grouping-construct "#f60")
  307. ;; fonts
  308. (defun my-set-ascii-and-jp-font-with-size (list)
  309. ""
  310. (if (> emacs-major-version 22)
  311. (progn ; 23 or later
  312. (set-face-attribute 'default nil
  313. :family (nth 0 list)
  314. :height (nth 1 list))
  315. (set-fontset-font "fontset-default"
  316. 'japanese-jisx0208
  317. (font-spec :family (nth 2 list) :size (nth 3 list)))
  318. (set-fontset-font "fontset-default"
  319. 'katakana-jisx0201
  320. (font-spec :family (nth 2 list) :size (nth 3 list))))
  321. ; font spec is available in emacs23 and later, cannot used in emacs22
  322. (progn ; 22
  323. (set-face-attribute 'default nil
  324. :family (nth 0 list)
  325. :height (nth 1 list))
  326. (set-fontset-font "fontset-default"
  327. 'japanese-jisx0208
  328. (cons (nth 2 list) "jisx0208.*"))
  329. (set-fontset-font "fontset-default"
  330. 'katakana-jisx0201
  331. (cons (nth 2 list) "jisx0201.*"))
  332. )))
  333. ;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 90 "takaogothic" 13))
  334. ;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 100 "takaogothic" 14))
  335. ;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 100 "ms gothic" 14))
  336. ;; (my-set-ascii-and-jp-font-with-size '("monaco" 75 "takaogothic" 11))
  337. ;; (my-set-ascii-and-jp-font-with-size '("monaco" 90 "takaogothic" 13))
  338. ;; (my-set-ascii-and-jp-font-with-size '("ProggyCleanTTSZ" 120 "takaogothic" 11))
  339. ;; あ a
  340. (and (dllib-if-unfound "set-modeline-color"
  341. "https://raw.github.com/10sr/emacs-lisp/master/set-modeline-color.el"
  342. t)
  343. (progn (set-face-background 'mode-line "white")
  344. ;(set-face-bold-p 'modeline-buffer-id t)
  345. (require 'set-modeline-color nil t)))
  346. (set-face-background 'mode-line-inactive (if (face-inverse-video-p 'mode-line) "white" "black"))
  347. (set-face-foreground 'mode-line-inactive (if (face-inverse-video-p 'mode-line) "black" "white"))
  348. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  349. ;; file handling
  350. (setq revert-without-query '(".+"))
  351. ;; save cursor position
  352. (setq save-place-file (concat user-emacs-directory
  353. "places"))
  354. (when (require 'saveplace nil t)
  355. (setq-default save-place t))
  356. ;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260
  357. (setq make-backup-files t)
  358. ;; (make-directory (expand-file-name "~/.emacsbackup"))
  359. (setq backup-directory-alist
  360. (cons (cons "\\.*$" (expand-file-name "~/.emacs.d/backup"))
  361. backup-directory-alist))
  362. (setq version-control 'never)
  363. (setq delete-old-versions t)
  364. (setq auto-save-list-file-prefix (expand-file-name "~/.emacs.d/autosave/"))
  365. (setq delete-auto-save-files t)
  366. (add-to-list 'completion-ignored-extensions ".bak")
  367. ;; (setq delete-by-moving-to-trash t
  368. ;; trash-directory "~/.emacs.d/trash")
  369. (add-hook 'after-save-hook
  370. 'executable-make-buffer-file-executable-if-script-p)
  371. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  372. ;; editting
  373. (setq require-final-newline t)
  374. (setq kill-whole-line t)
  375. (setq scroll-conservatively 35
  376. scroll-margin 2
  377. scroll-step 0)
  378. (setq default-major-mode 'text-mode)
  379. (setq next-line-add-newlines nil)
  380. (setq kill-read-only-ok t)
  381. (setq truncate-partial-width-windows nil) ; when splitted horizontally
  382. ;; (setq-default line-spacing 0.2)
  383. (setq-default indicate-empty-lines t) ; when using x indicate empty line
  384. (setq-default tab-width 4)
  385. (setq-default indent-tabs-mode nil)
  386. (setq-default indent-line-function nil)
  387. ;(pc-selection-mode 1) ; this reverts back all keybind defined until this line
  388. (delete-selection-mode 1)
  389. (cua-mode 0)
  390. ;; key bindings
  391. ;; moving around
  392. ;; (global-set-key (kbd "M-j") 'next-line)
  393. ;; (global-set-key (kbd "M-k") 'previous-line)
  394. ;; (global-set-key (kbd "M-h") 'backward-char)
  395. ;; (global-set-key (kbd "M-l") 'forward-char)
  396. ;;(keyboard-translate ?\M-j ?\C-j)
  397. ;; (global-set-key (kbd "M-p") 'backward-paragraph)
  398. (define-key esc-map "p" 'backward-paragraph)
  399. ;; (global-set-key (kbd "M-n") 'forward-paragraph)
  400. (define-key esc-map "n" 'forward-paragraph)
  401. (global-set-key (kbd "C-<up>") (lambda () (interactive)(scroll-down 1)))
  402. (global-set-key (kbd "C-<down>") (lambda () (interactive)(scroll-up 1)))
  403. (global-set-key (kbd "C-<left>") 'scroll-down)
  404. (global-set-key (kbd "C-<right>") 'scroll-up)
  405. (global-set-key (kbd "<select>") 'ignore) ; 'previous-line-mark)
  406. (define-key ctl-x-map (kbd "ESC x") 'execute-extended-command)
  407. (define-key ctl-x-map (kbd "ESC :") 'eval-expression)
  408. ;; C-h and DEL
  409. ;(global-set-key (kbd "C-h") (kbd "DEL"))
  410. (global-set-key (kbd "C-m") 'reindent-then-newline-and-indent)
  411. (global-set-key (kbd "C-o")
  412. ;; (lambda ()
  413. ;; (interactive)
  414. ;; (move-end-of-line nil)
  415. ;; (newline-and-indent))
  416. (kbd "C-e C-m")
  417. )
  418. (global-set-key (kbd "C-k") 'kill-whole-line)
  419. (global-set-key (kbd "M-k") 'my-copy-whole-line)
  420. ;; (global-set-key "\C-z" 'undo) ; undo is M-u
  421. (global-set-key (kbd "M-u") 'undo)
  422. (global-set-key (kbd "C-r") 'query-replace-regexp)
  423. (global-set-key (kbd "C-s") 'isearch-forward-regexp)
  424. (global-set-key (kbd "M-i") (kbd "ESC TAB"))
  425. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  426. ;; gmail
  427. (setq mail-interactive t
  428. send-mail-function 'smtpmail-send-it
  429. ;; message-send-mail-function 'smtpmail-send-it
  430. smtpmail-smtp-server "smtp.gmail.com"
  431. smtpmail-smtp-service 587
  432. smtpmail-starttls-credentials '(("smtp.gmail.com" 587 "8.slashes@gmail.com" nil))
  433. smtpmail-auth-credentials '(("smtp.gmail.com" 587 "8.slashes@gmail.com" nil))
  434. user-mail-address "8.slashes@gmail.com")
  435. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  436. ;; buffer killing
  437. (defun my-query-kill-this-buffer ()
  438. ""
  439. (interactive)
  440. (if (y-or-n-p (concat "kill this buffer? :"))
  441. (kill-buffer (current-buffer))))
  442. (substitute-key-definition 'kill-buffer 'my-query-kill-this-buffer global-map)
  443. ;;(global-set-key "\C-xk" 'my-query-kill-this-buffer)
  444. '(setq package-archives '(("ELPA" . "http://tromey.com/elpa/")
  445. ("gnu" . "http://elpa.gnu.org/packages/")
  446. ("marmalade" . "http://marmalade-repo.org/packages/")))
  447. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  448. ;; some modes and hooks
  449. (require 'simple nil t)
  450. (and window-system
  451. (dllib-if-unfound "save-window-size" "https://raw.github.com/10sr/emacs-lisp/master/save-window-size.el" t)
  452. (require 'save-window-size nil t))
  453. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  454. ;; share clipboard with x
  455. ;; this page describes this in details, but only these sexps are needed
  456. ;; http://garin.jp/doc/Linux/xwindow_clipboard
  457. (when (and window-system
  458. (not (eq window-system 'mac))
  459. )
  460. (setq x-select-enable-clipboard t ; these settings seems to be useless when using emacs in terminal
  461. x-select-enable-primary nil)
  462. ;; (global-set-key "\C-y" 'x-clipboard-yank)
  463. )
  464. (and (not x-select-enable-clipboard)
  465. (getenv "DISPLAY")
  466. (executable-find "xclip")
  467. (dllib-if-unfound "xclip" "http://www.emacswiki.org/emacs/download/xclip.el" t)
  468. (require 'xclip nil t)
  469. (turn-on-xclip))
  470. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  471. ;; mode
  472. (add-hook 'verilog-mode-hook
  473. (lambda ()
  474. (define-key verilog-mode-map ";" 'self-insert-command)))
  475. (setq diff-switches "-u")
  476. (add-hook 'diff-mode-hook
  477. (lambda ()
  478. (view-mode 1)
  479. (set-face-foreground 'diff-file-header-face nil)
  480. (set-face-foreground 'diff-header-face nil)
  481. (set-face-foreground 'diff-index-face "blue")
  482. (set-face-foreground 'diff-hunk-header-face "cyan")
  483. (set-face-foreground 'diff-context-face nil)
  484. (set-face-foreground 'diff-removed-face "red")
  485. (set-face-foreground 'diff-added-face "green")
  486. (set-face-foreground 'diff-changed-face "magenda")
  487. ))
  488. ;; (ffap-bindings)
  489. (add-hook 'sh-mode-hook
  490. (lambda ()
  491. (define-key sh-mode-map (kbd "C-x C-e") 'my-execute-shell-command-current-line)))
  492. (defun my-execute-shell-command-current-line ()
  493. ""
  494. (interactive)
  495. (shell-command (buffer-substring-no-properties (point-at-bol)
  496. (point))))
  497. (add-to-list 'auto-mode-alist
  498. '("\\(xinitrc\\|xprograms\\)\\'" . sh-mode))
  499. (setq python-python-command (or (executable-find "python3")
  500. (executable-find "python")))
  501. (defun my-python-run-as-command ()
  502. ""
  503. (interactive)
  504. (shell-command (concat python-python-command " " buffer-file-name)))
  505. (defun my-python-display-python-buffer ()
  506. ""
  507. (interactive)
  508. (set-window-text-height (display-buffer python-buffer
  509. t)
  510. 7))
  511. (add-hook 'python-mode-hook
  512. (lambda ()
  513. (define-key python-mode-map (kbd "C-c C-e") 'my-python-run-as-command)
  514. (define-key python-mode-map (kbd "C-c C-b") 'my-python-display-python-buffer)
  515. (define-key python-mode-map (kbd "C-m") 'newline-and-indent)))
  516. (add-hook 'inferior-python-mode-hook
  517. (lambda ()
  518. (my-python-display-python-buffer)
  519. (define-key inferior-python-mode-map (kbd "<up>") 'comint-previous-input)
  520. (define-key inferior-python-mode-map (kbd "<down>") 'comint-next-input)))
  521. (add-hook 'text-mode-hook
  522. (lambda ()
  523. (define-key text-mode-map (kbd "C-m") 'newline)))
  524. (add-to-list 'Info-default-directory-list (expand-file-name "~/.info/emacs-ja"))
  525. (setq bookmark-default-file "~/.emacs.d/bmk")
  526. (add-hook 'apropos-mode-hook
  527. (lambda ()
  528. (define-key apropos-mode-map "j" 'next-line)
  529. (define-key apropos-mode-map "k" 'previous-line)))
  530. (define-key minibuffer-local-map (kbd "C-u") (lambda () (interactive) (delete-region (point-at-bol) (point))))
  531. (add-hook 'isearch-mode-hook
  532. (lambda ()
  533. ;; (define-key isearch-mode-map (kbd "C-j") 'isearch-other-control-char)
  534. ;; (define-key isearch-mode-map (kbd "C-k") 'isearch-other-control-char)
  535. ;; (define-key isearch-mode-map (kbd "C-h") 'isearch-other-control-char)
  536. (define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char)
  537. (define-key isearch-mode-map (kbd "M-r") 'isearch-query-replace-regexp)))
  538. (add-hook 'outline-mode-hook
  539. (lambda ()
  540. (if (string-match "\\.md\\'" buffer-file-name)
  541. (set (make-local-variable 'outline-regexp) "#+ "))))
  542. (add-to-list 'auto-mode-alist (cons "\\.ol\\'" 'outline-mode))
  543. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode))
  544. (setq markdown-command (or (executable-find "markdown")
  545. (executable-find "markdown.pl")))
  546. (when (dllib-if-unfound "markdown-mode"
  547. "http://jblevins.org/projects/markdown-mode/markdown-mode.el"
  548. t)
  549. (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'markdown-mode))
  550. (autoload 'markdown-mode "markdown-mode" "Major mode for editing Markdown files." nil)
  551. (add-hook 'markdown-mode-hook
  552. (lambda ()
  553. (outline-minor-mode 1)
  554. (set (make-local-variable 'comment-start) ";"))))
  555. ;; http://d.hatena.ne.jp/emergent/20070203/1170512717
  556. ;; c-mode
  557. ;; (setq c-default-style "bsd")
  558. ;; BackSpace キーを「賢く」し,インデント幅は2桁,タブはスペースに展開
  559. (add-hook 'c-mode-common-hook
  560. (lambda ()
  561. (setq c-basic-offset 2
  562. indent-tabs-mode nil)
  563. ;; (set-face-foreground 'font-lock-keyword-face "blue")
  564. (c-toggle-hungry-state 1)
  565. ))
  566. (when (dllib-if-unfound "js2-mode"
  567. "https://raw.github.com/mooz/js2-mode/master/js2-mode.el"
  568. t)
  569. (autoload 'js2-mode "js2-mode" nil t)
  570. (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
  571. (add-to-list 'auto-mode-alist '("\\.jsm\\'" . js2-mode)))
  572. ;; (add-hook 'js2-mode-hook
  573. ;; (lambda ()
  574. ;; (add-hook 'before-save-hook
  575. ;; 'my-indent-buffer
  576. ;; nil
  577. ;; t)))
  578. (add-hook 'js2-mode-hook
  579. (lambda ()
  580. (define-key js2-mode-map (kbd "C-m") (lambda ()
  581. (interactive)
  582. (js2-enter-key)
  583. (indent-for-tab-command)))
  584. (add-hook (kill-local-variable 'before-save-hook)
  585. 'js2-before-save)))
  586. (and nil
  587. (require 'zone nil t)
  588. (not (eq system-type 'windows-nt))
  589. ;; (zone-when-idle 180)
  590. (run-with-idle-timer 180 t (lambda ()
  591. (unless (memq major-mode
  592. '(term-mode))
  593. (zone)))))
  594. (when (require 'uniquify nil t)
  595. (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
  596. (setq uniquify-ignore-buffers-re "*[^*]+*")
  597. (setq uniquify-min-dir-content 1))
  598. (add-hook 'view-mode-hook
  599. (lambda()
  600. (define-key view-mode-map "j" (lambda() (interactive) (scroll-up 1)))
  601. (define-key view-mode-map "k" (lambda() (interactive) (scroll-down 1)))
  602. (define-key view-mode-map "v" 'toggle-read-only)
  603. (define-key view-mode-map "q" 'bury-buffer)
  604. ;; (define-key view-mode-map "/" 'nonincremental-re-search-forward)
  605. ;; (define-key view-mode-map "?" 'nonincremental-re-search-backward)
  606. ;; (define-key view-mode-map "n" 'nonincremental-repeat-search-forward)
  607. ;; (define-key view-mode-map "N" 'nonincremental-repeat-search-backward)
  608. (define-key view-mode-map "/" 'isearch-forward-regexp)
  609. (define-key view-mode-map "?" 'isearch-backward-regexp)
  610. (define-key view-mode-map "n" 'isearch-repeat-forward)
  611. (define-key view-mode-map "N" 'isearch-repeat-backward)
  612. ))
  613. (global-set-key "\M-r" 'view-mode)
  614. (setq view-read-only t)
  615. (add-hook 'Man-mode-hook
  616. (lambda ()
  617. (view-mode 1)
  618. (setq truncate-lines nil)))
  619. (setq Man-notify-method (if window-system
  620. 'newframe
  621. 'pushy))
  622. (require 'session nil t)
  623. (and (dllib-if-unfound "gtkbm"
  624. "https://raw.github.com/10sr/emacs-lisp/master/gtkbm.el"
  625. t)
  626. (require 'gtkbm nil t)
  627. (global-set-key (kbd "C-x C-d") 'gtkbm))
  628. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  629. ;; term mode
  630. ;; (setq multi-term-program shell-file-name)
  631. (and (dllib-if-unfound "multi-term"
  632. "http://www.emacswiki.org/emacs/download/multi-term.el"
  633. t)
  634. (require 'multi-term nil t)
  635. (setq multi-term-switch-after-close nil))
  636. (defun my-term-quit-or-send-raw ()
  637. ""
  638. (interactive)
  639. (if (get-buffer-process (current-buffer))
  640. (call-interactively 'term-send-raw)
  641. (kill-buffer)))
  642. ;; http://d.hatena.ne.jp/goinger/20100416/1271399150
  643. ;; (setq term-ansi-default-program shell-file-name)
  644. (add-hook 'term-setup-hook
  645. (lambda ()
  646. (setq term-display-table (make-display-table))))
  647. (add-hook 'term-mode-hook
  648. (lambda ()
  649. (unless (memq (current-buffer) (and (featurep 'multi-term) ; current buffer is not multi-term buffer
  650. (multi-term-list)))
  651. ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)
  652. ;; (define-key term-raw-map "\C-r" 'term-send-raw)
  653. ;; (define-key term-raw-map "\C-s" 'term-send-raw)
  654. ;; (define-key term-raw-map "\C-f" 'forward-char)
  655. ;; (define-key term-raw-map "\C-b" 'backward-char)
  656. ;; (define-key term-raw-map "\C-t" 'set-mark-command)
  657. (define-key term-raw-map "\C-x" (lookup-key (current-global-map) "\C-x"))
  658. (define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z")))
  659. (define-key term-raw-map (kbd "C-p") 'term-send-raw)
  660. (define-key term-raw-map (kbd "C-n") 'term-send-raw)
  661. (define-key term-raw-map "q" 'my-term-quit-or-send-raw)
  662. ;; (define-key term-raw-map (kbd "ESC") 'term-send-raw)
  663. (define-key term-raw-map [delete] 'term-send-raw)
  664. (define-key term-raw-map (kbd "DEL") 'term-send-backspace)
  665. (define-key term-raw-map "\C-y" 'term-paste)
  666. (define-key term-raw-map "\C-c" 'term-send-raw) ;; 'term-interrupt-subjob)
  667. '(define-key term-mode-map (kbd "C-x C-q") 'term-pager-toggle)
  668. ;; (dolist (key '("<up>" "<down>" "<right>" "<left>"))
  669. ;; (define-key term-raw-map (read-kbd-macro key) 'term-send-raw))
  670. ;; (define-key term-raw-map "\C-d" 'delete-char)
  671. (set (make-local-variable 'scroll-margin) 0)
  672. ;; (set (make-local-variable 'cua-enable-cua-keys) nil)
  673. ;; (cua-mode 0)
  674. ;; (and cua-mode
  675. ;; (local-unset-key (kbd "C-c")))
  676. ;; (define-key cua--prefix-override-keymap "\C-c" 'term-interrupt-subjob)
  677. (set (make-local-variable 'hl-line-range-function)
  678. (lambda ()
  679. '(0 . 0)))
  680. ))
  681. ;; (add-hook 'term-exec-hook 'forward-char)
  682. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  683. ;; buffer switching
  684. (when (require 'bs nil t)
  685. ;; (global-set-key "\C-x\C-b" 'bs-show)
  686. (defalias 'list-buffers 'bs-show))
  687. ;; (add-to-list 'bs-configurations '("processes" nil get-buffer-process ".*" nil nil))
  688. (add-to-list 'bs-configurations '("same-dir" nil buffer-same-dir-p ".*" nil nil))
  689. (add-to-list 'bs-configurations '("this-frame" nil (lambda (buf) (memq buf (my-frame-buffer-get))) ".*" nil nil))
  690. ;; (setq bs-configurations (list '("processes" nil get-buffer-process ".*" nil nil)
  691. ;; '("files-and-scratch" "^\\*scratch\\*$" nil nil bs-visits-non-file bs-sort-buffer-interns-are-last)))
  692. (setq bs-default-configuration "this-frame")
  693. (setq bs-default-sort-name "by name")
  694. (add-hook 'bs-mode-hook
  695. (lambda ()
  696. (setq bs-default-configuration "this-frame")
  697. ;; (and bs--show-all
  698. ;; (call-interactively 'bs-toggle-show-all))
  699. (set (make-local-variable 'scroll-margin) 0)
  700. ))
  701. (defun buffer-same-dir-p (bf)
  702. "return t if BF's dir is same as current dir, otherwise nil."
  703. (let ((cdir (expand-file-name default-directory)))
  704. (with-current-buffer bf
  705. (equal (expand-file-name default-directory) cdir))))
  706. (iswitchb-mode 1)
  707. (defun iswitchb-buffer-display-other-window ()
  708. ""
  709. (interactive)
  710. (let ((iswitchb-default-method 'display))
  711. (call-interactively 'iswitchb-buffer)))
  712. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  713. ;; sdic
  714. (defun sdic-describe-word-at-point-echo ()
  715. ""
  716. (interactive)
  717. (save-window-excursion
  718. (sdic-describe-word-at-point))
  719. (save-excursion
  720. (set-buffer sdic-buffer-name)
  721. (message (buffer-substring (point-min)
  722. (progn (goto-char (point-min))
  723. (or (and (re-search-forward "^\\w" nil t 4)
  724. (progn (previous-line) t)
  725. (point-at-eol))
  726. (point-max)))))))
  727. (setq sdic-eiwa-dictionary-list '((sdicf-client "/usr/share/dict/gene.sdic")))
  728. (setq sdic-waei-dictionary-list '((sdicf-client "/usr/share/dict/jedict.sdic" (add-keys-to-headword t))))
  729. (setq sdic-disable-select-window t)
  730. (setq sdic-window-height 7)
  731. (when (require 'sdic nil t)
  732. ;; (define-key my-prefix-map "\C-w" 'sdic-describe-word)
  733. (define-key my-prefix-map "\C-t" 'sdic-describe-word-at-point-echo))
  734. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  735. ;; vc
  736. ;; (require 'vc)
  737. (setq vc-handled-backends '())
  738. (and (executable-find "git")
  739. (add-to-list 'vc-handled-backends 'GIT))
  740. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  741. ;; gauche-mode
  742. (let ((s (executable-find "gosh")))
  743. (setq scheme-program-name s
  744. gauche-program-name s))
  745. (defun run-gauche-other-window ()
  746. "Run gauche on other window"
  747. (interactive)
  748. (switch-to-buffer-other-window
  749. (get-buffer-create "*scheme*"))
  750. (run-gauche))
  751. (defun run-gauche ()
  752. "run gauche"
  753. (run-scheme gauche-program-name)
  754. )
  755. (defun scheme-send-buffer ()
  756. ""
  757. (interactive)
  758. (scheme-send-region (point-min) (point-max))
  759. (my-scheme-display-scheme-buffer)
  760. )
  761. (defun my-scheme-display-scheme-buffer ()
  762. ""
  763. (interactive)
  764. (set-window-text-height (display-buffer scheme-buffer
  765. t)
  766. 7))
  767. (add-hook 'scheme-mode-hook
  768. (lambda ()
  769. nil))
  770. (add-hook 'inferior-scheme-mode-hook
  771. (lambda ()
  772. ;; (my-scheme-display-scheme-buffer)
  773. ))
  774. ;; http://d.hatena.ne.jp/kobapan/20090305/1236261804
  775. ;; http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el
  776. (when (dllib-if-unfound "gauche-mode"
  777. "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el"
  778. t)
  779. (setq auto-mode-alist
  780. (cons '("\.gosh\\'" . gauche-mode) auto-mode-alist))
  781. (setq auto-mode-alist
  782. (cons '("\.gaucherc\\'" . gauche-mode) auto-mode-alist))
  783. (autoload 'gauche-mode "gauche-mode" "Major mode for Scheme." t)
  784. (autoload 'run-scheme "gauche-mode" "Run an inferior Scheme process." t)
  785. (add-hook 'gauche-mode-hook
  786. (lambda ()
  787. (define-key gauche-mode-map (kbd "C-c C-z") 'run-gauche-other-window)
  788. (define-key scheme-mode-map (kbd "C-c C-c") 'scheme-send-buffer)
  789. (define-key scheme-mode-map (kbd "C-c C-b") 'my-scheme-display-scheme-buffer)
  790. )))
  791. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  792. ;; recentf-mode
  793. ;; (add-hook 'recentf-dialog-mode-hook
  794. ;; 'my-recentf-abbrev-list)
  795. (defun my-recentf-delete-entry ()
  796. ""
  797. (interactive)
  798. (let ((p (point)))
  799. (setq recentf-list
  800. (delete (my-recentf-get-filename) recentf-list))
  801. (recentf-open-files)
  802. (goto-char p)))
  803. (defun my-recentf-abbrev-list ()
  804. ""
  805. (setq recentf-list
  806. (mapcar 'abbreviate-file-name
  807. recentf-list)))
  808. (defun my-recentf-view-file ()
  809. ""
  810. (interactive)
  811. (view-file (my-recentf-get-filename)))
  812. (defun my-recentf-dired ()
  813. ""
  814. (interactive)
  815. (let ((file (my-recentf-get-filename)))
  816. (if (file-directory-p file)
  817. (dired file)
  818. (dired (or (file-name-directory file)
  819. ".")))))
  820. (defun my-recentf-x-open ()
  821. ""
  822. (interactive)
  823. (my-x-open (my-recentf-get-filename)))
  824. (defun my-recentf-cd-and-find-file ()
  825. ""
  826. (interactive)
  827. (cd (file-name-directory (my-recentf-get-filename)))
  828. (call-interactively 'find-file))
  829. (defun my-recentf-get-filename ()
  830. "get file name in recentf-mode"
  831. (replace-regexp-in-string " \\(\\[.+?\\] \\)?" ; " " or " [\\d] "
  832. ""
  833. (buffer-substring-no-properties (point-at-bol)
  834. (point-at-eol))))
  835. (setq recentf-save-file (expand-file-name "~/.emacs.d/recentf")
  836. recentf-max-menu-items 20
  837. recentf-max-saved-items 30
  838. recentf-show-file-shortcuts-flag nil)
  839. (defun my-recentf-pop-to-buffer ()
  840. ""
  841. (interactive)
  842. (let ((bf (save-excursion
  843. (recentf-open-files))))
  844. (pop-to-buffer bf)))
  845. (when (require 'recentf nil t)
  846. (global-set-key "\C-x\C-r" 'recentf-open-files)
  847. ;; (add-hook 'find-file-hook
  848. ;; (lambda ()
  849. ;; (recentf-add-file default-directory)))
  850. (recentf-mode 1)
  851. ;; (add-to-list 'recentf-filename-handlers 'abbreviate-file-name)
  852. (add-to-list 'recentf-exclude (rx-to-string recentf-save-file)))
  853. (add-hook 'recentf-dialog-mode-hook
  854. (lambda ()
  855. (recentf-save-list)
  856. ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f") 'my-recentf-cd-and-find-file)
  857. (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line)
  858. (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line)
  859. (define-key recentf-dialog-mode-map "o" 'my-recentf-x-open)
  860. (define-key recentf-dialog-mode-map "d" 'my-recentf-delete-entry)
  861. (define-key recentf-dialog-mode-map "@" 'my-recentf-dired)
  862. (define-key recentf-dialog-mode-map "v" 'my-recentf-view-file)
  863. (cd "~/")))
  864. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  865. ;; dired
  866. (require 'dired)
  867. (defun my-dired-echo-file-head (arg)
  868. ""
  869. (interactive "P")
  870. (let ((f (dired-get-filename)))
  871. (message "%s"
  872. (with-temp-buffer
  873. (insert-file-contents f)
  874. (buffer-substring-no-properties (point-min)
  875. (progn (goto-line (if arg
  876. (prefix-numeric-value arg)
  877. 10))
  878. (point-at-eol)))))))
  879. (defun my-dired-diff ()
  880. ""
  881. (interactive)
  882. (let ((files (dired-get-marked-files nil nil nil t)))
  883. (if (eq (car files)
  884. t)
  885. (diff (cadr files) (dired-get-filename))
  886. (message "One files must be marked!"))))
  887. (defun my-pop-to-buffer-erase-noselect (buffer-or-name)
  888. "pop up buffer using `display-buffer' and return that buffer."
  889. (let ((bf (get-buffer-create buffer-or-name)))
  890. (with-current-buffer bf
  891. (cd ".")
  892. (erase-buffer))
  893. (display-buffer bf)
  894. bf))
  895. (defun my-replace-nasi-none ()
  896. ""
  897. (save-excursion
  898. (let ((buffer-read-only nil))
  899. (goto-char (point-min))
  900. (while (search-forward "なし" nil t)
  901. (replace-match "none")))))
  902. (defun dired-get-file-info ()
  903. "dired get disk usage"
  904. (interactive)
  905. (let ((f (dired-get-filename)))
  906. (if (file-directory-p f)
  907. (progn
  908. (message "calculating du...")
  909. (shell-command (concat "du -hsD "
  910. f)))
  911. (shell-command (concat "file "
  912. f)))))
  913. (defun my-dired-scroll-up ()
  914. ""
  915. (interactive)
  916. (my-dired-previous-line (- (window-height) 1)))
  917. (defun my-dired-scroll-down ()
  918. ""
  919. (interactive)
  920. (my-dired-next-line (- (window-height) 1)))
  921. (defun my-dired-previous-line (arg)
  922. ""
  923. (interactive "p")
  924. (when (> arg 0)
  925. ;; (ignore 'my-dired-print-current-dir-and-file)
  926. (dired-previous-line 1)
  927. (when (eq (line-number-at-pos)
  928. 2)
  929. (goto-line (- (line-number-at-pos (point-max))
  930. 1))
  931. (dired-move-to-filename))
  932. (my-dired-previous-line (- arg 1))
  933. ))
  934. (defun my-dired-next-line (arg)
  935. ""
  936. (interactive "p")
  937. (when (> arg 0)
  938. ;; (ignore 'my-dired-print-current-dir-and-file)
  939. (dired-next-line 1)
  940. (when (eq (point)
  941. (point-max))
  942. (goto-line 3)
  943. (dired-move-to-filename))
  944. (my-dired-next-line (- arg 1))
  945. ))
  946. (defun my-dired-print-current-dir-and-file ()
  947. (message "%s %s"
  948. default-directory
  949. (buffer-substring-no-properties (point-at-bol)
  950. (point-at-eol))))
  951. (defun dired-do-execute-as-command ()
  952. ""
  953. (interactive)
  954. (let ((file (dired-get-filename t)))
  955. (if (file-executable-p file)
  956. (start-process file nil file)
  957. (when (y-or-n-p "this file cant be executed. mark as executable and go? : ")
  958. (set-file-modes file (file-modes-symbolic-to-number "u+x" (file-modes file)))
  959. (start-process file nil file)))))
  960. ;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html
  961. (defun my-dired-x-open ()
  962. ""
  963. (interactive)
  964. (my-x-open (dired-get-filename t t)))
  965. (if (eq window-system 'mac)
  966. (setq dired-listing-switches "-lhFG")
  967. (setq dired-listing-switches "-lhFG --time-style=long-iso")
  968. )
  969. (setq dired-listing-switches "-lhFG")
  970. (put 'dired-find-alternate-file 'disabled nil) ; when using dired-find-alternate-file reuse current dired buffer for the file to open
  971. (setq dired-ls-F-marks-symlinks t)
  972. (require 'ls-lisp)
  973. (setq ls-lisp-use-insert-directory-program nil) ; always use ls-lisp
  974. (setq ls-lisp-dirs-first t)
  975. (setq ls-lisp-use-localized-time-format t)
  976. (setq ls-lisp-format-time-list
  977. '("%Y-%m-%d %H:%M"
  978. "%Y-%m-%d "))
  979. (setq dired-dwim-target t)
  980. ;; (add-hook 'dired-after-readin-hook
  981. ;; 'my-replace-nasi-none)
  982. ;; (add-hook 'after-init-hook
  983. ;; (lambda ()
  984. ;; (dired ".")))
  985. (add-hook 'dired-mode-hook
  986. (lambda ()
  987. (define-key dired-mode-map "o" 'my-dired-x-open)
  988. (define-key dired-mode-map "i" 'dired-get-file-info)
  989. (define-key dired-mode-map "f" 'find-file)
  990. (define-key dired-mode-map "!" 'shell-command)
  991. (define-key dired-mode-map "&" 'async-shell-command)
  992. (define-key dired-mode-map "X" 'dired-do-async-shell-command)
  993. (define-key dired-mode-map "=" 'my-dired-diff)
  994. (define-key dired-mode-map "B" 'gtkbm-add-current-dir)
  995. (define-key dired-mode-map "b" 'gtkbm)
  996. (define-key dired-mode-map "h" 'my-dired-echo-file-head)
  997. (define-key dired-mode-map "@" (lambda () (interactive) (my-x-open ".")))
  998. (define-key dired-mode-map (kbd "TAB") 'other-window)
  999. ;; (define-key dired-mode-map "P" 'my-dired-do-pack-or-unpack)
  1000. (define-key dired-mode-map "/" 'dired-isearch-filenames)
  1001. (define-key dired-mode-map (kbd "DEL") 'dired-up-directory)
  1002. (substitute-key-definition 'dired-next-line 'my-dired-next-line dired-mode-map)
  1003. (substitute-key-definition 'dired-previous-line 'my-dired-previous-line dired-mode-map)
  1004. (define-key dired-mode-map (kbd "<left>") 'my-dired-scroll-up)
  1005. (define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)
  1006. (let ((file "._Icon\015"))
  1007. (when (file-readable-p file)
  1008. (delete-file file)))))
  1009. (and (dllib-if-unfound "pack"
  1010. "https://raw.github.com/10sr/emacs-lisp/master/pack.el"
  1011. t)
  1012. (require 'pack nil t)
  1013. (add-hook 'dired-mode-hook
  1014. (lambda ()
  1015. (define-key dired-mode-map "P" 'dired-do-pack-or-unpack))))
  1016. (and (dllib-if-unfound "dired-list-all-mode"
  1017. "https://raw.github.com/10sr/emacs-lisp/master/dired-list-all-mode.el"
  1018. t)
  1019. (require 'dired-list-all-mode nil t)
  1020. (setq dired-listing-switches "-lhFG")
  1021. (add-hook 'dired-mode-hook
  1022. (lambda ()
  1023. (define-key dired-mode-map "a" 'dired-list-all-mode)
  1024. )))
  1025. ;; http://blog.livedoor.jp/tek_nishi/archives/4693204.html
  1026. (defun my-dired-toggle-mark()
  1027. (let ((cur (cond ((eq (following-char) dired-marker-char) ?\040)
  1028. (t dired-marker-char))))
  1029. (delete-char 1)
  1030. (insert cur)))
  1031. (defun my-dired-mark (arg)
  1032. "toggle mark the current (or next ARG) files.
  1033. If on a subdir headerline, mark all its files except `.' and `..'.
  1034. Use \\[dired-unmark-all-files] to remove all marks
  1035. and \\[dired-unmark] on a subdir to remove the marks in
  1036. this subdir."
  1037. (interactive "P")
  1038. (if (dired-get-subdir)
  1039. (save-excursion (dired-mark-subdir-files))
  1040. (let ((inhibit-read-only t))
  1041. (dired-repeat-over-lines
  1042. (prefix-numeric-value arg)
  1043. 'my-dired-toggle-mark))))
  1044. (defun my-dired-mark-backward (arg)
  1045. "In Dired, move up lines and toggle mark there.
  1046. Optional prefix ARG says how many lines to unflag; default is one line."
  1047. (interactive "p")
  1048. (my-dired-mark (- arg)))
  1049. (add-hook 'dired-mode-hook
  1050. (lambda ()
  1051. (local-set-key (kbd "SPC") 'my-dired-mark)
  1052. (local-set-key (kbd "S-SPC") 'my-dired-mark-backward))
  1053. )
  1054. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1055. ;; eshell
  1056. (defun my-eshell-backward-delete-char ()
  1057. (interactive)
  1058. (when (< (save-excursion
  1059. (eshell-bol)
  1060. (point))
  1061. (point))
  1062. (backward-delete-char 1)))
  1063. (defun my-file-owner-p (file)
  1064. "t if FILE is owned by me."
  1065. (eq (user-uid) (nth 2 (file-attributes file))))
  1066. ;; ;; http://www.bookshelf.jp/pukiwiki/pukiwiki.php?Eshell%A4%F2%BB%C8%A4%A4%A4%B3%A4%CA%A4%B9
  1067. ;; ;; written by Stefan Reichoer <reichoer@web.de>
  1068. ;; (defun eshell/less (&rest args)
  1069. ;; "Invoke `view-file' on the file.
  1070. ;; \"less +42 foo\" also goes to line 42 in the buffer."
  1071. ;; (if args
  1072. ;; (while args
  1073. ;; (if (string-match "\\`\\+\\([0-9]+\\)\\'" (car args))
  1074. ;; (let* ((line (string-to-number (match-string 1 (pop args))))
  1075. ;; (file (pop args)))
  1076. ;; (view-file file)
  1077. ;; (goto-line line))
  1078. ;; (view-file (pop args))))))
  1079. (defun eshell/o (&optional file)
  1080. (my-x-open (or file ".")))
  1081. ;; (defun eshell/vi (&rest args)
  1082. ;; "Invoke `find-file' on the file.
  1083. ;; \"vi +42 foo\" also goes to line 42 in the buffer."
  1084. ;; (while args
  1085. ;; (if (string-match "\\`\\+\\([0-9]+\\)\\'" (car args))
  1086. ;; (let* ((line (string-to-number (match-string 1 (pop args))))
  1087. ;; (file (pop args)))
  1088. ;; (find-file file)
  1089. ;; (goto-line line))
  1090. ;; (find-file (pop args)))))
  1091. (defun eshell/clear ()
  1092. "Clear the current buffer, leaving one prompt at the top."
  1093. (let ((inhibit-read-only t))
  1094. (erase-buffer)))
  1095. (defun eshell/d (&optional dirname switches)
  1096. "if first arg is omitted open current directory."
  1097. (dired (or dirname ".") switches))
  1098. (defun eshell/v ()
  1099. (view-mode 1))
  1100. (defun eshell/git (&rest args)
  1101. ""
  1102. (if (member (car args)
  1103. '("di" "diff" "log" "show"))
  1104. (apply 'eshell-exec-visual "git" args)
  1105. (shell-command (mapconcat 'shell-quote-argument
  1106. `("git" ,@args)
  1107. " ")
  1108. t)
  1109. ;; (eshell-external-command "git" args)
  1110. ))
  1111. (defalias 'eshell/: 'ignore)
  1112. (defalias 'eshell/type 'eshell/which)
  1113. ;; (defalias 'eshell/vim 'eshell/vi)
  1114. (defalias 'eshell/ff 'find-file)
  1115. (defalias 'eshell/q 'eshell/exit)
  1116. (defun eshell-goto-prompt ()
  1117. ""
  1118. (interactive)
  1119. (goto-char (point-max)))
  1120. (defun eshell-cd-default-directory (&optional eshell-buffer-or-name)
  1121. "open eshell and change wd
  1122. if arg given, use that eshell buffer, otherwise make new eshell buffer."
  1123. (interactive)
  1124. (let ((dir (expand-file-name default-directory)))
  1125. (switch-to-buffer (or eshell-buffer-or-name
  1126. (eshell t)))
  1127. (unless (equal dir (expand-file-name default-directory))
  1128. ;; (cd dir)
  1129. ;; (eshell-interactive-print (concat "cd " dir "\n"))
  1130. ;; (eshell-emit-prompt)
  1131. (goto-char (point-max))
  1132. (eshell-kill-input)
  1133. (insert "cd " dir)
  1134. (eshell-send-input))))
  1135. (setq eshell-directory-name "~/.emacs.d/eshell/")
  1136. (setq eshell-term-name "eterm-color")
  1137. (setq eshell-scroll-to-bottom-on-input t)
  1138. (setq eshell-cmpl-ignore-case t)
  1139. (setq eshell-cmpl-cycle-completions nil)
  1140. (setq eshell-highlight-prompt nil)
  1141. (setq eshell-ls-initial-args '("-hCFG"
  1142. "--color=auto"
  1143. "--time-style=long-iso")) ; "-hF")
  1144. (setq eshell-prompt-function
  1145. (lambda ()
  1146. (with-temp-buffer
  1147. (let (p1 p2 p3 p4)
  1148. (insert " [")
  1149. (setq p1 (point))
  1150. (insert (abbreviate-file-name default-directory))
  1151. (setq p2 (point))
  1152. (insert "]"
  1153. "\n")
  1154. (setq p3 (point))
  1155. (insert user-login-name
  1156. "@"
  1157. (or (getenv "HOSTNAME")
  1158. (substring (shell-command-to-string (or (executable-find "hostname")
  1159. "echo ''"))
  1160. 0
  1161. -1)))
  1162. (setq p4 (point))
  1163. (insert " "
  1164. (format-time-string "%a, %d %b %Y %T %z")
  1165. " eshell\n"
  1166. "last:"
  1167. (number-to-string eshell-last-command-status)
  1168. (if (= (user-uid)
  1169. 0)
  1170. " # "
  1171. " $ "))
  1172. (add-text-properties p1
  1173. p2
  1174. '(face ((foreground-color . "yellow"))))
  1175. (add-text-properties p3
  1176. p4
  1177. '(face ((foreground-color . "cyan"))))
  1178. (buffer-substring (point-min)
  1179. (point-max))))))
  1180. (add-hook 'eshell-mode-hook
  1181. (lambda ()
  1182. ;; (define-key eshell-mode-map (kbd "C-x C-x") (lambda ()
  1183. ;; (interactive)
  1184. ;; (switch-to-buffer (other-buffer))))
  1185. (define-key eshell-mode-map (kbd "C-u") (lambda ()
  1186. (interactive)
  1187. (eshell-goto-prompt)
  1188. (eshell-kill-input)))
  1189. (define-key eshell-mode-map (kbd "C-g") (lambda ()
  1190. (interactive)
  1191. (eshell-goto-prompt)
  1192. (my-keyboard-quit)))
  1193. (define-key eshell-mode-map (kbd "DEL") 'my-eshell-backward-delete-char)
  1194. (define-key eshell-mode-map (kbd "C-p") 'eshell-previous-matching-input-from-input)
  1195. (define-key eshell-mode-map (kbd "C-n") 'eshell-next-matching-input-from-input)
  1196. (apply 'eshell/addpath exec-path)
  1197. (set (make-local-variable 'scroll-margin) 0)
  1198. ;; (eshell/export "GIT_PAGER=")
  1199. ;; (eshell/export "GIT_EDITOR=")
  1200. (eshell/export "LC_MESSAGES=C")
  1201. (switch-to-buffer (current-buffer)) ; move buffer top of list
  1202. (set (make-local-variable 'hl-line-range-function)
  1203. (lambda ()
  1204. '(0 . 0)))
  1205. (add-to-list 'eshell-virtual-targets
  1206. '("/dev/less"
  1207. (lambda (str)
  1208. (if str
  1209. (with-current-buffer nil)))
  1210. nil))
  1211. ))
  1212. (add-hook 'eshell-mode-hook
  1213. (lambda ()
  1214. (add-to-list 'eshell-visual-commands "vim")
  1215. ;; (add-to-list 'eshell-visual-commands "git")
  1216. (add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer)
  1217. (mapcar (lambda (alias)
  1218. (add-to-list 'eshell-command-aliases-list
  1219. alias))
  1220. '(
  1221. ; ("ll" "ls -l $*")
  1222. ; ("la" "ls -a $*")
  1223. ; ("lla" "ls -al $*")
  1224. ("ut" "slogin 03110414@un001.ecc.u-tokyo.ac.jp $*")
  1225. ("aptin" "apt-get install $*")
  1226. ("eless" "cat >>> (with-current-buffer (get-buffer-create \"*eshell output\") (erase-buffer) (setq buffer-read-only nil) (current-buffer)); (view-buffer (get-buffer \"*eshell output*\"))")
  1227. ("g" "git $*")
  1228. ))
  1229. ))
  1230. ;; (eval-after-load "em-alias"
  1231. ;; '(progn ;; (eshell/alias "ll" "ls -l")
  1232. ;; ;; (eshell/alias "la" "ls -a")
  1233. ;; ;; (eshell/alias "lla" "ls -al")
  1234. ;; (eshell/alias "sgcc" (if (eq system-type 'windows-nt)
  1235. ;; "gcc -o win.$1.exe $1"
  1236. ;; "gcc -o ${uname}.$1.out $1"))
  1237. ;; (eshell/alias "slmgcc" (if (eq system-type 'windows-nt)
  1238. ;; "gcc -lm -o win.$1.exe $1"
  1239. ;; "gcc -lm -o ${uname}.$1.out $1"))
  1240. ;; ;; (eshell/alias "ut" "ssh g841105@un001.ecc.u-tokyo.ac.jp")
  1241. ;; (add-to-list 'recentf-exclude (concat eshell-directory-name "alias"))))
  1242. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1243. ;; get last modified date
  1244. (defvar my-buffer-file-last-modified-time nil "")
  1245. (make-variable-buffer-local 'my-buffer-file-last-modified-time)
  1246. (defun my-get-file-last-modified-time (file)
  1247. ""
  1248. (nth 5
  1249. (file-attributes file)))
  1250. (defun my-set-buffer-file-last-modified-time ()
  1251. ""
  1252. (make-local-variable 'my-buffer-file-last-modified-time)
  1253. (setq my-buffer-file-last-modified-time
  1254. (format-time-string "%Y/%m/%d %H:%M" (my-get-file-last-modified-time buffer-file-name))))
  1255. (add-hook 'find-file-hook
  1256. 'my-set-buffer-file-last-modified-time)
  1257. (add-hook 'after-save-hook
  1258. 'my-set-buffer-file-last-modified-time)
  1259. (add-hook 'after-revert-hook
  1260. 'my-set-buffer-file-last-modified-time)
  1261. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1262. ;; frame buffer
  1263. ;; todo: work well when opening the file that was already opened on another window
  1264. (add-hook 'after-make-frame-functions
  1265. (lambda (f)
  1266. (set-window-buffer (frame-selected-window f)
  1267. "*Messages*")))
  1268. (defun make-frame-command-with-name (name)
  1269. "Make frame with name specified."
  1270. (interactive "sName for new frame: ")
  1271. (set-frame-parameter (make-frame-command)
  1272. 'name
  1273. name))
  1274. (defvar my-frame-buffer-plist nil)
  1275. (defun my-frame-buffer-add (&optional buf frame)
  1276. ""
  1277. (setq my-frame-buffer-plist
  1278. (plist-put my-frame-buffer-plist
  1279. (or frame
  1280. (selected-frame))
  1281. (let ((lst (my-frame-buffer-get frame)))
  1282. (if lst
  1283. (add-to-list 'lst
  1284. (or buf
  1285. (current-buffer)))
  1286. (list (or buf
  1287. (current-buffer))))))))
  1288. (defun my-frame-buffer-remove (&optional buf frame)
  1289. ""
  1290. (setq my-frame-buffer-plist
  1291. (plist-put my-frame-buffer-plist
  1292. (or frame
  1293. (selected-frame))
  1294. (delq (or buf
  1295. (current-buffer))
  1296. (my-frame-buffer-get frame)))))
  1297. (defun my-frame-buffer-get (&optional frame)
  1298. ""
  1299. (plist-get my-frame-buffer-plist
  1300. (or frame
  1301. (selected-frame))))
  1302. (defun my-frame-buffer-kill-all-buffer (&optional frame)
  1303. ""
  1304. (mapcar 'kill-buffer
  1305. (my-frame-buffer-get frame)))
  1306. (add-hook 'find-file-hook
  1307. 'my-frame-buffer-add)
  1308. (add-hook 'term-mode-hook
  1309. 'my-frame-buffer-add)
  1310. (add-hook 'eshell-mode-hook
  1311. 'my-frame-buffer-add)
  1312. (add-hook 'Man-mode-hook
  1313. 'my-frame-buffer-add)
  1314. (add-hook 'kill-buffer-hook
  1315. 'my-frame-buffer-remove)
  1316. (add-hook 'delete-frame-functions
  1317. 'my-frame-buffer-kill-all-buffer)
  1318. (defvar my-desktop-terminal "roxterm")
  1319. (defun my-execute-terminal ()
  1320. ""
  1321. (interactive)
  1322. (if (and (or (eq system-type 'windows-nt)
  1323. window-system)
  1324. my-desktop-terminal
  1325. )
  1326. (let ((process-environment (cons "TERM=xterm" process-environment)))
  1327. (start-process "terminal"
  1328. nil
  1329. my-desktop-terminal))
  1330. (my-term)))
  1331. (defun my-term ()
  1332. "open terminal buffer and return that buffer."
  1333. (interactive)
  1334. (if (eq system-type 'windows-nt)
  1335. (eshell t)
  1336. (if (featurep 'multi-term)
  1337. (multi-term)
  1338. (ansi-term "/bin/bash"))))
  1339. (defun my-delete-frame-or-kill-emacs ()
  1340. "delete frame when opening multiple frame, kill emacs when only one."
  1341. (interactive)
  1342. (if (eq 1
  1343. (length (frame-list)))
  1344. (save-buffers-kill-emacs)
  1345. (delete-frame)))
  1346. (define-key my-prefix-map (kbd "C-s") 'my-execute-terminal)
  1347. (define-key my-prefix-map (kbd "C-f") 'make-frame-command-with-name)
  1348. (global-set-key (kbd "C-x C-c") 'my-delete-frame-or-kill-emacs)
  1349. (define-key my-prefix-map (kbd "C-x C-c") 'save-buffers-kill-emacs)
  1350. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1351. ;; auto saving
  1352. (defun my-save-this-buffer (silent-p)
  1353. "save current buffer if can without asking"
  1354. (let ((cm (if (current-message)
  1355. (format "%s\n" (current-message))
  1356. ""))
  1357. (fun (symbol-function (if silent-p
  1358. 'ignore
  1359. 'message))))
  1360. (cond ((active-minibuffer-window) nil)
  1361. ((not buffer-file-name) (funcall fun "%ssaving... this buffer doesn't visit any file." cm) nil)
  1362. ((not (file-exists-p buffer-file-name)) (funcall fun "%ssaving... file not exist. save manually first." com) nil)
  1363. (buffer-read-only (funcall fun "%ssaving... this buffer is read-only." cm) nil)
  1364. ((not (buffer-modified-p)) (funcal fun "%ssaving... not modified yet." cm) nil)
  1365. ((not (file-writable-p buffer-file-name)) (funcall fun "%ssaving... you cannot change this file." cm) nil)
  1366. (t (funcall fun "%ssaving..." cm)
  1367. (save-buffer)
  1368. (funcall fun "%ssaving... done." cm)))))
  1369. ;; (if (and buffer-file-name
  1370. ;; (not buffer-read-only)
  1371. ;; (buffer-modified-p)
  1372. ;; (file-writable-p buffer-file-name))
  1373. ;; (save-buffer))) ; silent one
  1374. (defvar my-auto-save-this-buffer nil "auto save timer object")
  1375. (defun my-auto-save-this-buffer (sec &optional silent-p)
  1376. "auto save current buffer if idle for SEC.
  1377. when SEC is nil, stop auto save if enabled."
  1378. (if sec
  1379. (progn (when my-auto-save-this-buffer
  1380. (cancel-timer my-auto-save-this-buffer)
  1381. (setq my-auto-save-this-buffer nil))
  1382. (setq my-auto-save-this-buffer (run-with-idle-timer sec t 'my-save-this-buffer silent-p)))
  1383. (when my-auto-save-this-buffer
  1384. (cancel-timer my-auto-save-this-buffer)
  1385. (setq my-auto-save-this-buffer nil))))
  1386. (my-auto-save-this-buffer 2 t)
  1387. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1388. ;; misc funcs
  1389. (defalias 'qcalc 'quick-calc)
  1390. ;; (when (require 'ansi-color nil t)
  1391. ;; (ansi-color-for-comint-mode-on))
  1392. (defvar git-command-history nil
  1393. "History list for git command.")
  1394. (defun my-git-shell-command (cmd)
  1395. ""
  1396. (interactive (list (read-shell-command (format "[%s] $ git : "
  1397. (abbreviate-file-name default-directory))
  1398. nil
  1399. 'git-command-history)))
  1400. (let ((dir default-directory)
  1401. (bf (get-buffer-create "*Git Output*"))
  1402. )
  1403. (delete-windows-on bf t)
  1404. (shell-command (concat "git "
  1405. cmd)
  1406. bf)
  1407. (with-current-buffer bf
  1408. (cd dir)
  1409. (and (require 'ansi-color nil t)
  1410. (ansi-color-apply-on-region (point-min)
  1411. (point-max)))
  1412. (setq buffer-read-only t)
  1413. (view-mode 1)
  1414. )))
  1415. (define-key ctl-x-map "g" 'my-git-shell-command)
  1416. (defun my-kill-buffers ()
  1417. ""
  1418. (interactive)
  1419. (mapcar (lambda (buf)
  1420. (when (buffer-file-name buf)
  1421. (kill-buffer buf)))
  1422. (buffer-list)))
  1423. (defvar my-filer nil)
  1424. (setq my-filer (or (executable-find "pcmanfm")
  1425. (executable-find "nautilus")))
  1426. (defun my-x-open (file)
  1427. "open file."
  1428. (interactive "FOpen File: ")
  1429. (setq file (expand-file-name file))
  1430. (message "Opening %s..." file)
  1431. (cond ((eq system-type 'windows-nt)
  1432. (call-process "cmd.exe" nil 0 nil "/c" "start" "" (convert-standard-filename file)))
  1433. ((eq system-type 'darwin)
  1434. (call-process "open" nil 0 nil file))
  1435. ((getenv "DISPLAY")
  1436. (call-process (or my-filer "xdg-open") nil 0 nil file))
  1437. (t
  1438. (find-file file))
  1439. )
  1440. ;; (recentf-add-file file)
  1441. (message "Opening %s...done" file))
  1442. (defun my-keyboard-quit ()
  1443. ""
  1444. (interactive)
  1445. (run-hooks 'before-keyboard-quit-hook)
  1446. ;; (redisplay t)
  1447. (redraw-display)
  1448. ;; (run-hooks 'window-configuration-change-hook)
  1449. (my-revert-buffer-if-needed)
  1450. ;; (revert-buffer t t)
  1451. (keyboard-quit)
  1452. (insert "insert me")
  1453. (run-hooks 'after-keyboard-quit-hook))
  1454. (substitute-key-definition 'keyboard-quit 'my-keyboard-quit global-map)
  1455. ;; (global-set-key (kbd "C-g") 'my-keyboard-quit)
  1456. (defun my-convmv-sjis2utf8-test ()
  1457. "run `convmv -r -f sjis -t utf8 *'
  1458. this is test, does not rename files"
  1459. (interactive)
  1460. (shell-command "convmv -r -f sjis -t utf8 *"))
  1461. (defun my-convmv-sjis2utf8-notest ()
  1462. "run `convmv -r -f sjis -t utf8 * --notest'"
  1463. (interactive)
  1464. (shell-command "convmv -r -f sjis -t utf8 * --notest"))
  1465. (defun my-copy-whole-line ()
  1466. ""
  1467. (interactive)
  1468. (kill-new (concat (buffer-substring (point-at-bol)
  1469. (point-at-eol))
  1470. "\n")))
  1471. (defun kill-ring-save-buffer-file-name ()
  1472. "get current filename"
  1473. (interactive)
  1474. (let ((file buffer-file-name))
  1475. (if file
  1476. (progn (kill-new file)
  1477. (message file))
  1478. (message "not visiting file."))))
  1479. (defvar my-revert-buffer-if-needed-last-buffer nil)
  1480. (defun my-revert-buffer-if-needed ()
  1481. ""
  1482. (interactive)
  1483. (unless (eq my-revert-buffer-if-needed-last-buffer (current-buffer))
  1484. (setq my-revert-buffer-if-needed-last-buffer (current-buffer))
  1485. (when (or (and (eq major-mode 'dired-mode)
  1486. (dired-directory-changed-p default-directory))
  1487. (not (verify-visited-file-modtime (current-buffer))))
  1488. (revert-buffer t t)
  1489. (message "%s reverted." (buffer-name))
  1490. )))
  1491. (add-hook 'post-command-hook ; 'window-configuration-change-hook
  1492. 'my-revert-buffer-if-needed)
  1493. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1494. ;; forked from http://d.hatena.ne.jp/khiker/20100119/window_resize
  1495. (define-key my-prefix-map (kbd "C-w") 'my-window-organizer)
  1496. (defun my-window-organizer ()
  1497. "Control window size and position."
  1498. (interactive)
  1499. (save-selected-window
  1500. (select-window (window-at 0 0))
  1501. (let ( ;; (window-obj (selected-window))
  1502. ;; (current-width (window-width))
  1503. ;; (current-height (window-height))
  1504. action
  1505. c)
  1506. (catch 'end-flag
  1507. (while t
  1508. (setq action
  1509. (read-key-sequence-vector (format "size[%dx%d] 1: maximize; 2, 3: split; 0: delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
  1510. (window-width)
  1511. (window-height))))
  1512. (setq c (aref action 0))
  1513. (cond ((= c ?l)
  1514. (unless (eq (window-width) (frame-width))
  1515. (enlarge-window-horizontally 1)))
  1516. ((= c ?h)
  1517. (unless (eq (window-width) (frame-width))
  1518. (shrink-window-horizontally 1)))
  1519. ((= c ?j)
  1520. (enlarge-window 1))
  1521. ((= c ?k)
  1522. (shrink-window 1))
  1523. ((= c ?o)
  1524. (other-window 1))
  1525. ((memq c '(?d ?0))
  1526. (unless (eq (selected-window) (next-window (selected-window) 0 1))
  1527. (delete-window (selected-window))))
  1528. ((= c ?1)
  1529. (delete-other-windows))
  1530. ((= c ?2)
  1531. (split-window-vertically))
  1532. ((= c ?3)
  1533. (split-window-horizontally))
  1534. ((memq c '(?q ?\C-g))
  1535. (message "Quit")
  1536. (throw 'end-flag t))
  1537. (t
  1538. (beep))))))))
  1539. ;; (aref (read-key-sequence-vector "aa") 0)
  1540. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1541. ;; ;; emacsを殺伐とさせる
  1542. ;; ;; 補完させるとき失敗するからなし
  1543. ;; ;; http://e-arrows.sakura.ne.jp/2010/05/emacs-should-be-more-savage.html
  1544. ;; (defadvice message (before message-for-stupid (arg &rest arg2) activate)
  1545. ;; (setq arg
  1546. ;; (concat arg
  1547. ;; (if (eq nil (string-match "\\. *$" arg)) ".")
  1548. ;; " Stupid!")))
  1549. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1550. ;; japanese input method
  1551. (defun my-load-scim ()
  1552. "use scim-bridge.el as japanese im."
  1553. ;; Load scim-bridge.
  1554. (when (require 'scim-bridge nil t)
  1555. ;; Turn on scim-mode automatically after loading .emacs
  1556. (add-hook 'after-init-hook 'scim-mode-on)
  1557. (setq scim-cursor-color "red")
  1558. (scim-define-preedit-key ?\^h t)
  1559. (scim-define-common-key ?\* nil)
  1560. (scim-define-common-key ?\^/ nil)))
  1561. (defun my-load-anthy ()
  1562. "use anthy.el as japanese im."
  1563. ;; anthy
  1564. (when (require 'anthy nil t)
  1565. (global-set-key (kbd "<muhenkan>") (lambda () (interactive) (anthy-mode-off)))
  1566. (global-set-key (kbd "<henkan>") (lambda () (interactive) (anthy-mode-on)))
  1567. (when (>= emacs-major-version 23)
  1568. (setq anthy-accept-timeout 1))))
  1569. ;; quail
  1570. ;; aproposs input-method for some information
  1571. ;; (setq default-input-method "japanese")
  1572. (defun my-load-mozc-el ()
  1573. ""
  1574. (setq mozc-leim-title "[MZ]")
  1575. (when (require 'mozc nil t)
  1576. (setq defauit-input-method "japanese-mozc")
  1577. ))
  1578. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1579. ;; for windows
  1580. ;; (add-to-list 'exec-path "c:/Program Files/Gauche/bin/")
  1581. (defun start-ckw-bash ()
  1582. ""
  1583. (interactive)
  1584. (start-process "ckw_bash"
  1585. nil
  1586. "C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe")) ; cじゃないといけないらしい
  1587. (defun my-w32-add-export-path (&rest args)
  1588. ""
  1589. (mapcar (lambda (path)
  1590. (add-to-list 'exec-path (expand-file-name path)))
  1591. (reverse args))
  1592. (setenv "PATH"
  1593. (mapconcat 'convert-standard-filename
  1594. exec-path
  1595. ";")))
  1596. (when (eq system-type 'windows-nt)
  1597. ;; (setq scheme-program-name "\"c:/Program Files/Gauche/bin/gosh.exe\" -i")
  1598. ;; (setq python-python-command "c:/Python26/python.exe")
  1599. (define-key my-prefix-map (kbd "C-c") 'start-ckw-bash)
  1600. (my-w32-add-export-path "c:/WINDOWS"
  1601. (expand-file-name "~/bin")
  1602. (expand-file-name "~/dbx/apps/bin"))
  1603. (when window-system
  1604. (setq w32-enable-synthesized-fonts t))
  1605. (setq file-name-coding-system 'sjis))