Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.

emacs.el 66 KiB

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