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.

emacs.el 67 KiB

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