10sr
/
dotfiles-mirror
miroir de https://github.com/10sr/dotfiles.git
1
0
Bifurcation 0
Code Tickets 0 Versions 0 Wiki Activité
Parcourir la source

fix for 80 letters limit

pull/1/head
10sr il y a 12 ans
Parent
7e7b88f6f4
révision
373b3ca75a
1 fichiers modifiés avec 231 ajouts et 120 suppressions
Vue séparée
Option de Diff
Voir les Statistiques Télécharger le Fichier Patch Télécharger le Fichier des Différences
  1. +231
    -120
      emacs.el

+ 231
- 120
emacs.el Voir le fichier

@@ -13,7 +13,8 @@

(progn
(defvar buffer-file-changed-functions nil "Hook run when buffer file changed.
Each function is called with two args, the filename before changing and after changing.")
Each function is called with two args, the filename before changing and after
changing.")
(declare-function run-buffer-file-changed-functions "emacs.el")
(add-hook 'post-command-hook
'run-buffer-file-changed-functions)
@@ -40,8 +41,9 @@ Each function is called with two args, the filename before changing and after ch
(require 'url)

(defun dllib-if-unfound (url &optional byte-compile-p force-download-p)
"If library does not exist, download it from URL and locate it in \"~/emacs.d/lisp/\".
Return nil if library unfound and failed to download, otherwise the path where the library installed."
"If library does not exist, download it from URL and locate it in
\"~/emacs.d/lisp/\". Return nil if library unfound and failed to download,
otherwise the path where the library installed."
(let* ((dir (expand-file-name (concat user-emacs-directory "lisp/")))
(lib (file-name-sans-extension (file-name-nondirectory url)))
(lpath (concat dir lib ".el"))
@@ -54,13 +56,14 @@ Return nil if library unfound and failed to download, otherwise the path where t
t)
(when (and byte-compile-p
(require 'bytecomp nil t))
(and (file-exists-p (byte-compile-dest-file lpath))
(and (file-exists-p (byte-compile-dest-file lpath))
(delete-file (byte-compile-dest-file lpath)))
(byte-compile-file lpath))
)
(error (and (file-writable-p lpath)
(delete-file lpath))
(message "downloading %s...something wrong happened!" url)
(message "downloading %s...something wrong happened!"
url)
nil))
(locate-library lib))
locate-p)))
@@ -69,17 +72,20 @@ Return nil if library unfound and failed to download, otherwise the path where t
;; start and quit

(setq inhibit-startup-message t)
(setq frame-title-format (list '(:eval (format-time-string (or display-time-format "")))
" | %b "
'(:eval (number-to-string (length (buffer-list-not-start-with-space))))
" buffers ["
invocation-name
" "
emacs-version
" "
(symbol-name system-type)
"] "
'(:eval (symbol-name last-command))))
(setq frame-title-format
(list '(:eval (format-time-string (or display-time-format
"")))
" | %b "
'(:eval (number-to-string (length
(buffer-list-not-start-with-space))))
" buffers ["
invocation-name
" "
emacs-version
" "
(symbol-name system-type)
"] "
'(:eval (symbol-name last-command))))

(setq set-terminal-title-regexp "^\\(rxvt\\|xterm\\|aterm$\\|screen\\)")
(defun set-terminal-title (&rest args)
@@ -102,7 +108,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
" "
(symbol-name system-type)
"] "
(abbreviate-file-name (or buffer-file-name default-directory))))
(abbreviate-file-name (or buffer-file-name
default-directory))))
(add-hook 'buffer-file-changed-functions
(lambda (p c)
(my-set-terminal-title)))
@@ -127,7 +134,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
(add-to-list 'default-frame-alist '(cursor-type . box))
(add-to-list 'default-frame-alist '(background-color . "white"))
(add-to-list 'default-frame-alist '(foreground-color . "gray10"))
;; (add-to-list 'default-frame-alist '(alpha . (80 100 100 100))) ; does not work?
;; (add-to-list 'default-frame-alist '(alpha . (80 100 100 100)))
;; does not work?
)
;; (add-to-list 'default-frame-alist '(cursor-type . box))
(if window-system (menu-bar-mode 1) (menu-bar-mode 0))
@@ -135,7 +143,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
(tool-bar-mode 0))
(and (fboundp 'set-scroll-bar-mode)
(set-scroll-bar-mode nil))
(add-hook 'kill-emacs-hook ; load when exitting to examine if file is written properly
(add-hook 'kill-emacs-hook
;; load when exitting to examine if file is written properly
(lambda ()
(when (file-readable-p "~/.emacs")
(load-file "~/.emacs"))
@@ -185,8 +194,10 @@ Return nil if library unfound and failed to download, otherwise the path where t
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; global keys

(and (dllib-if-unfound "https://raw.github.com/k1LoW/emacs-drill-instructor/master/drill-instructor.el"
t)
(and (dllib-if-unfound
"https://raw.github.com/k1LoW/emacs-drill-instructor/master/\
drill-instructor.el"
t)
(require 'drill-instructor nil t)
(setq drill-instructor-global t)
(let ((map drill-instructor-key-map))
@@ -194,8 +205,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
(define-key map (kbd "DEL") nil)
(define-key map (kbd "C-h") nil)))
'(mapc (lambda (key)
(global-set-key (read-kbd-macro key) 'ignore))
'("<up>" "<down>" "<right>" "<left>"))
(global-set-key (read-kbd-macro key) 'ignore))
'("<up>" "<down>" "<right>" "<left>"))

(define-key my-prefix-map (kbd "C-o") 'occur)

@@ -286,7 +297,8 @@ Return nil if library unfound and failed to download, otherwise the path where t

(fset 'yes-or-no-p 'y-or-n-p)

(define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) ; complete symbol when `eval'
(define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol)
;; complete symbol when `eval'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; letters, font-lock mode and fonts
@@ -297,7 +309,7 @@ Return nil if library unfound and failed to download, otherwise the path where t
(mac-set-input-method-parameter 'japanese 'cursor-color "red")
(mac-set-input-method-parameter 'roman 'cursor-color "black"))

(when (and (boundp 'input-method-activate-hook) ;ちょっと正しいかわかんない
(when (and (boundp 'input-method-activate-hook) ; i dont know this is correct
(boundp 'input-method-inactivate-hook))
(add-hook 'input-method-activate-hook
(lambda () (set-cursor-color "red")))
@@ -336,7 +348,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
(when (require 'whitespace nil t)
(setq whitespace-style '(face newline newline-mark empty tabs lines trailing))
;; (setq whitespace-newline 'font-lock-comment-face)
(add-to-list 'whitespace-display-mappings `(newline-mark ?\n ,(vconcat "$\n")))
(add-to-list 'whitespace-display-mappings
`(newline-mark ?\n ,(vconcat "$\n")))
(global-whitespace-mode t))

;; highlight current line
@@ -345,7 +358,7 @@ Return nil if library unfound and failed to download, otherwise the path where t
'((((type x w32)
(class color)
(background dark))
(:background "midnightblue")) ; :foreground "white")) ;; ハイライトの文字色は変えない方がいいかも
(:background "midnightblue"))
(((type x w32)
(class color)
(background light))
@@ -367,9 +380,9 @@ Return nil if library unfound and failed to download, otherwise the path where t

;; fonts

(defun my-set-ascii-and-jp-font-with-size (list)
(defun my-set-ascii-and-jp-font (list)
""
(if (> emacs-major-version 22)
(if (> emacs-major-version 22) ;; font spec is available in emacs23 and later
(progn ; 23 or later
(set-face-attribute 'default nil
:family (nth 0 list)
@@ -380,7 +393,6 @@ Return nil if library unfound and failed to download, otherwise the path where t
(set-fontset-font "fontset-default"
'katakana-jisx0201
(font-spec :family (nth 2 list) :size (nth 3 list))))
; font spec is available in emacs23 and later, cannot used in emacs22
(progn ; 22
(set-face-attribute 'default nil
:family (nth 0 list)
@@ -392,23 +404,26 @@ Return nil if library unfound and failed to download, otherwise the path where t
'katakana-jisx0201
(cons (nth 2 list) "jisx0201.*"))
)))
;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 90 "takaogothic" 13))
;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 100 "takaogothic" 14))
;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 100 "ms gothic" 14))
;; (my-set-ascii-and-jp-font-with-size '("monaco" 75 "takaogothic" 11))
;; (my-set-ascii-and-jp-font-with-size '("monaco" 90 "takaogothic" 13))
;; (my-set-ascii-and-jp-font-with-size '("ProggyCleanTTSZ" 120 "takaogothic" 11))
;; (my-set-ascii-and-jp-font '("dejavu sans mono" 90 "takaogothic" 13))
;; (my-set-ascii-and-jp-font '("dejavu sans mono" 100 "takaogothic" 14))
;; (my-set-ascii-and-jp-font '("dejavu sans mono" 100 "ms gothic" 14))
;; (my-set-ascii-and-jp-font '("monaco" 75 "takaogothic" 11))
;; (my-set-ascii-and-jp-font '("monaco" 90 "takaogothic" 13))
;; (my-set-ascii-and-jp-font '("ProggyCleanTTSZ" 120 "takaogothic" 11))
;; あ a

(and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/set-modeline-color.el"
(and (dllib-if-unfound
"https://raw.github.com/10sr/emacs-lisp/master/set-modeline-color.el"
t)
(progn
(require 'set-modeline-color nil t)))

(let ((fg (face-foreground 'default))
(bg (face-background 'default)))
(set-face-background 'mode-line-inactive (if (face-inverse-video-p 'mode-line) fg bg))
(set-face-foreground 'mode-line-inactive (if (face-inverse-video-p 'mode-line) bg fg)))
(set-face-background 'mode-line-inactive
(if (face-inverse-video-p 'mode-line) fg bg))
(set-face-foreground 'mode-line-inactive
(if (face-inverse-video-p 'mode-line) bg fg)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; file handling
@@ -507,8 +522,10 @@ Return nil if library unfound and failed to download, otherwise the path where t
;; message-send-mail-function 'smtpmail-send-it
smtpmail-smtp-server "smtp.gmail.com"
smtpmail-smtp-service 587
smtpmail-starttls-credentials '(("smtp.gmail.com" 587 "8.slashes@gmail.com" nil))
smtpmail-auth-credentials '(("smtp.gmail.com" 587 "8.slashes@gmail.com" nil))
smtpmail-starttls-credentials '(("smtp.gmail.com" 587
"8.slashes@gmail.com" nil))
smtpmail-auth-credentials '(("smtp.gmail.com" 587
"8.slashes@gmail.com" nil))
user-mail-address "8.slashes@gmail.com")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -528,9 +545,13 @@ Return nil if library unfound and failed to download, otherwise the path where t
;; package

(when (require 'package nil t)
(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives '("ELPA" . "http://tromey.com/elpa/"))
(add-to-list 'package-archives
'("melpa" . "http://melpa.milkbox.net/packages/")
t)
(add-to-list 'package-archives
'("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives
'("ELPA" . "http://tromey.com/elpa/"))
(package-initialize))

(require 'sudoku nil t)
@@ -541,7 +562,9 @@ Return nil if library unfound and failed to download, otherwise the path where t
(require 'simple nil t)

(and window-system
(dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/save-window-size.el" t)
(dllib-if-unfound
"https://raw.github.com/10sr/emacs-lisp/master/save-window-size.el"
t)
(require 'save-window-size nil t))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -584,7 +607,9 @@ Return nil if library unfound and failed to download, otherwise the path where t

(add-hook 'sh-mode-hook
(lambda ()
(define-key sh-mode-map (kbd "C-x C-e") 'my-execute-shell-command-current-line)))
(define-key sh-mode-map
(kbd "C-x C-e")
'my-execute-shell-command-current-line)))

(defun my-execute-shell-command-current-line ()
""
@@ -614,15 +639,19 @@ Return nil if library unfound and failed to download, otherwise the path where t
7))
(add-hook 'python-mode-hook
(lambda ()
(define-key python-mode-map (kbd "C-c C-e") 'my-python-run-as-command)
(define-key python-mode-map (kbd "C-c C-b") 'my-python-display-python-buffer)
(define-key python-mode-map
(kbd "C-c C-e") 'my-python-run-as-command)
(define-key python-mode-map
(kbd "C-c C-b") 'my-python-display-python-buffer)
(define-key python-mode-map (kbd "C-m") 'newline-and-indent)))

(add-hook 'inferior-python-mode-hook
(lambda ()
(my-python-display-python-buffer)
(define-key inferior-python-mode-map (kbd "<up>") 'comint-previous-input)
(define-key inferior-python-mode-map (kbd "<down>") 'comint-next-input)))
(define-key inferior-python-mode-map
(kbd "<up>") 'comint-previous-input)
(define-key inferior-python-mode-map
(kbd "<down>") 'comint-next-input)))

(add-hook 'text-mode-hook
(lambda ()
@@ -638,15 +667,20 @@ Return nil if library unfound and failed to download, otherwise the path where t
(define-key apropos-mode-map "p" 'previous-line)
))

(define-key minibuffer-local-map (kbd "C-u") (lambda () (interactive) (delete-region (point-at-bol) (point))))
(define-key minibuffer-local-map (kbd "C-u")
(lambda () (interactive) (delete-region (point-at-bol) (point))))

(add-hook 'isearch-mode-hook
(lambda ()
;; (define-key isearch-mode-map (kbd "C-j") 'isearch-other-control-char)
;; (define-key isearch-mode-map (kbd "C-k") 'isearch-other-control-char)
;; (define-key isearch-mode-map (kbd "C-h") 'isearch-other-control-char)
;; (define-key isearch-mode-map
;; (kbd "C-j") 'isearch-other-control-char)
;; (define-key isearch-mode-map
;; (kbd "C-k") 'isearch-other-control-char)
;; (define-key isearch-mode-map
;; (kbd "C-h") 'isearch-other-control-char)
(define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char)
(define-key isearch-mode-map (kbd "M-r") 'isearch-query-replace-regexp)))
(define-key isearch-mode-map (kbd "M-r")
'isearch-query-replace-regexp)))

(add-hook 'outline-mode-hook
(lambda ()
@@ -657,10 +691,12 @@ Return nil if library unfound and failed to download, otherwise the path where t
(add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode))
(setq markdown-command (or (executable-find "markdown")
(executable-find "markdown.pl")))
(when (dllib-if-unfound "http://jblevins.org/projects/markdown-mode/markdown-mode.el"
(when (dllib-if-unfound
"http://jblevins.org/projects/markdown-mode/markdown-mode.el"
t)
(add-to-list 'auto-mode-alist (cons "\\.md\\'" 'markdown-mode))
(autoload 'markdown-mode "markdown-mode" "Major mode for editing Markdown files." nil)
(autoload 'markdown-mode
"markdown-mode" "Major mode for editing Markdown files." nil)
(add-hook 'markdown-mode-hook
(lambda ()
(outline-minor-mode 1)
@@ -678,7 +714,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
(c-toggle-hungry-state -1)
))

(when (dllib-if-unfound "https://raw.github.com/mooz/js2-mode/master/js2-mode.el"
(when (dllib-if-unfound
"https://raw.github.com/mooz/js2-mode/master/js2-mode.el"
t)
(autoload 'js2-mode "js2-mode" nil t)
(add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
@@ -714,14 +751,18 @@ Return nil if library unfound and failed to download, otherwise the path where t

(add-hook 'view-mode-hook
(lambda()
(define-key view-mode-map "j" (lambda() (interactive) (scroll-up 1)))
(define-key view-mode-map "k" (lambda() (interactive) (scroll-down 1)))
(define-key view-mode-map "j"
(lambda() (interactive) (scroll-up 1)))
(define-key view-mode-map "k"
(lambda() (interactive) (scroll-down 1)))
(define-key view-mode-map "v" 'toggle-read-only)
(define-key view-mode-map "q" 'bury-buffer)
;; (define-key view-mode-map "/" 'nonincremental-re-search-forward)
;; (define-key view-mode-map "?" 'nonincremental-re-search-backward)
;; (define-key view-mode-map "n" 'nonincremental-repeat-search-forward)
;; (define-key view-mode-map "N" 'nonincremental-repeat-search-backward)
;; (define-key view-mode-map
;; "n" 'nonincremental-repeat-search-forward)
;; (define-key view-mode-map
;; "N" 'nonincremental-repeat-search-backward)
(define-key view-mode-map "/" 'isearch-forward-regexp)
(define-key view-mode-map "?" 'isearch-backward-regexp)
(define-key view-mode-map "n" 'isearch-repeat-forward)
@@ -745,8 +786,9 @@ Return nil if library unfound and failed to download, otherwise the path where t
(require 'gtkbm nil t)
(global-set-key (kbd "C-x C-d") 'gtkbm))

(and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/git-command.el"
t)
(and (dllib-if-unfound
"https://raw.github.com/10sr/emacs-lisp/master/git-command.el"
t)
(require 'git-command nil t)
(define-key ctl-x-map "g" 'git-command))

@@ -773,16 +815,20 @@ Return nil if library unfound and failed to download, otherwise the path where t
(setq term-display-table (make-display-table))))
(add-hook 'term-mode-hook
(lambda ()
(unless (memq (current-buffer) (and (featurep 'multi-term) ; current buffer is not multi-term buffer
(multi-term-list)))
(unless (memq (current-buffer)
(and (featurep 'multi-term)
;; current buffer is not multi-term buffer
(multi-term-list)))
;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)
;; (define-key term-raw-map "\C-r" 'term-send-raw)
;; (define-key term-raw-map "\C-s" 'term-send-raw)
;; (define-key term-raw-map "\C-f" 'forward-char)
;; (define-key term-raw-map "\C-b" 'backward-char)
;; (define-key term-raw-map "\C-t" 'set-mark-command)
(define-key term-raw-map "\C-x" (lookup-key (current-global-map) "\C-x"))
(define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z")))
(define-key term-raw-map
"\C-x" (lookup-key (current-global-map) "\C-x"))
(define-key term-raw-map
"\C-z" (lookup-key (current-global-map) "\C-z")))
(define-key term-raw-map (kbd "C-p") 'term-send-raw)
(define-key term-raw-map (kbd "C-n") 'term-send-raw)
(define-key term-raw-map "q" 'my-term-quit-or-send-raw)
@@ -790,7 +836,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
(define-key term-raw-map [delete] 'term-send-raw)
(define-key term-raw-map (kbd "DEL") 'term-send-backspace)
(define-key term-raw-map "\C-y" 'term-paste)
(define-key term-raw-map "\C-c" 'term-send-raw) ;; 'term-interrupt-subjob)
(define-key term-raw-map
"\C-c" 'term-send-raw) ;; 'term-interrupt-subjob)
'(define-key term-mode-map (kbd "C-x C-q") 'term-pager-toggle)
;; (dolist (key '("<up>" "<down>" "<right>" "<left>"))
;; (define-key term-raw-map (read-kbd-macro key) 'term-send-raw))
@@ -800,7 +847,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
;; (cua-mode 0)
;; (and cua-mode
;; (local-unset-key (kbd "C-c")))
;; (define-key cua--prefix-override-keymap "\C-c" 'term-interrupt-subjob)
;; (define-key cua--prefix-override-keymap
;;"\C-c" 'term-interrupt-subjob)
(set (make-local-variable 'hl-line-range-function)
(lambda ()
'(0 . 0)))
@@ -814,11 +862,18 @@ Return nil if library unfound and failed to download, otherwise the path where t
;; (global-set-key "\C-x\C-b" 'bs-show)
(defalias 'list-buffers 'bs-show))

;; (add-to-list 'bs-configurations '("processes" nil get-buffer-process ".*" nil nil))
(add-to-list 'bs-configurations '("same-dir" nil buffer-same-dir-p ".*" nil nil))
(add-to-list 'bs-configurations '("this-frame" nil (lambda (buf) (memq buf (my-frame-buffer-get))) ".*" nil nil))
;; (setq bs-configurations (list '("processes" nil get-buffer-process ".*" nil nil)
;; '("files-and-scratch" "^\\*scratch\\*$" nil nil bs-visits-non-file bs-sort-buffer-interns-are-last)))
;; (add-to-list 'bs-configurations
;; '("processes" nil get-buffer-process ".*" nil nil))
(add-to-list 'bs-configurations
'("same-dir" nil buffer-same-dir-p ".*" nil nil))
(add-to-list 'bs-configurations
'("this-frame" nil (lambda (buf)
(memq buf (my-frame-buffer-get)))
".*" nil nil))
;; (setq bs-configurations (list
;; '("processes" nil get-buffer-process ".*" nil nil)
;; '("files-and-scratch" "^\\*scratch\\*$" nil nil
;; bs-visits-non-file bs-sort-buffer-interns-are-last)))
(setq bs-default-configuration "this-frame")
(setq bs-default-sort-name "by name")
(add-hook 'bs-mode-hook
@@ -855,13 +910,17 @@ Return nil if library unfound and failed to download, otherwise the path where t
(set-buffer sdic-buffer-name)
(message (buffer-substring (point-min)
(progn (goto-char (point-min))
(or (and (re-search-forward "^\\w" nil t 4)
(or (and (re-search-forward "^\\w"
nil
t
4)
(progn (previous-line) t)
(point-at-eol))
(point-max)))))))

(setq sdic-eiwa-dictionary-list '((sdicf-client "/usr/share/dict/gene.sdic")))
(setq sdic-waei-dictionary-list '((sdicf-client "/usr/share/dict/jedict.sdic" (add-keys-to-headword t))))
(setq sdic-waei-dictionary-list
'((sdicf-client "/usr/share/dict/jedict.sdic" (add-keys-to-headword t))))
(setq sdic-disable-select-window t)
(setq sdic-window-height 7)
(when (require 'sdic nil t)
@@ -918,7 +977,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
;; http://d.hatena.ne.jp/kobapan/20090305/1236261804
;; http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el

(when (dllib-if-unfound "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el"
(when (dllib-if-unfound
"http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el"
t)
(setq auto-mode-alist
(cons '("\.gosh\\'" . gauche-mode) auto-mode-alist))
@@ -928,9 +988,12 @@ Return nil if library unfound and failed to download, otherwise the path where t
(autoload 'run-scheme "gauche-mode" "Run an inferior Scheme process." t)
(add-hook 'gauche-mode-hook
(lambda ()
(define-key gauche-mode-map (kbd "C-c C-z") 'run-gauche-other-window)
(define-key scheme-mode-map (kbd "C-c C-c") 'scheme-send-buffer)
(define-key scheme-mode-map (kbd "C-c C-b") 'my-scheme-display-scheme-buffer)
(define-key gauche-mode-map
(kbd "C-c C-z") 'run-gauche-other-window)
(define-key scheme-mode-map
(kbd "C-c C-c") 'scheme-send-buffer)
(define-key scheme-mode-map
(kbd "C-c C-b") 'my-scheme-display-scheme-buffer)
)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -950,7 +1013,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
(recentf-mode 1)
;; (add-to-list 'recentf-filename-handlers 'abbreviate-file-name)
(add-to-list 'recentf-exclude (regexp-quote recentf-save-file))
(and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/recentf-show.el"
(and (dllib-if-unfound
"https://raw.github.com/10sr/emacs-lisp/master/recentf-show.el"
t)
(require 'recentf-show nil t)
(define-key ctl-x-map (kbd "C-r") 'recentf-show)))
@@ -958,7 +1022,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
(add-hook 'recentf-dialog-mode-hook
(lambda ()
(recentf-save-list)
;; (define-key recentf-dialog-mode-map (kbd "C-x C-f") 'my-recentf-cd-and-find-file)
;; (define-key recentf-dialog-mode-map (kbd "C-x C-f")
;; 'my-recentf-cd-and-find-file)
(define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line)
(define-key recentf-dialog-mode-map (kbd "<down>") 'next-line)
(define-key recentf-dialog-mode-map "p" 'previous-line)
@@ -977,11 +1042,12 @@ Return nil if library unfound and failed to download, otherwise the path where t
(message "%s"
(with-temp-buffer
(insert-file-contents f)
(buffer-substring-no-properties (point-min)
(progn (goto-line (if arg
(prefix-numeric-value arg)
10))
(point-at-eol)))))))
(buffer-substring-no-properties
(point-min)
(progn (goto-line (if arg
(prefix-numeric-value arg)
10))
(point-at-eol)))))))

(defun my-dired-diff ()
""
@@ -1071,8 +1137,10 @@ Return nil if library unfound and failed to download, otherwise the path where t
(let ((file (dired-get-filename t)))
(if (file-executable-p file)
(start-process file nil file)
(when (y-or-n-p "this file cant be executed. mark as executable and go? : ")
(set-file-modes file (file-modes-symbolic-to-number "u+x" (file-modes file)))
(when (y-or-n-p
"this file cant be executed. mark as executable and go? : ")
(set-file-modes file
(file-modes-symbolic-to-number "u+x" (file-modes file)))
(start-process file nil file)))))

;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html
@@ -1088,7 +1156,9 @@ Return nil if library unfound and failed to download, otherwise the path where t
)
(setq dired-listing-switches "-lhFG")

(put 'dired-find-alternate-file 'disabled nil) ; when using dired-find-alternate-file reuse current dired buffer for the file to open
(put 'dired-find-alternate-file 'disabled nil)
;; when using dired-find-alternate-file
;; reuse current dired buffer for the file to open
(setq dired-ls-F-marks-symlinks t)

(require 'ls-lisp)
@@ -1120,14 +1190,17 @@ Return nil if library unfound and failed to download, otherwise the path where t
(define-key dired-mode-map "B" 'gtkbm-add-current-dir)
(define-key dired-mode-map "b" 'gtkbm)
(define-key dired-mode-map "h" 'my-dired-echo-file-head)
(define-key dired-mode-map "@" (lambda () (interactive) (my-x-open ".")))
(define-key dired-mode-map "@" (lambda ()
(interactive) (my-x-open ".")))
(define-key dired-mode-map (kbd "TAB") 'other-window)
;; (define-key dired-mode-map "P" 'my-dired-do-pack-or-unpack)
(define-key dired-mode-map "/" 'dired-isearch-filenames)
(define-key dired-mode-map (kbd "DEL") 'dired-up-directory)
(define-key dired-mode-map (kbd "C-h") 'dired-up-directory)
(substitute-key-definition 'dired-next-line 'my-dired-next-line dired-mode-map)
(substitute-key-definition 'dired-previous-line 'my-dired-previous-line dired-mode-map)
(substitute-key-definition 'dired-next-line
'my-dired-next-line dired-mode-map)
(substitute-key-definition 'dired-previous-line
'my-dired-previous-line dired-mode-map)
(define-key dired-mode-map (kbd "<left>") 'my-dired-scroll-up)
(define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)
(let ((file "._Icon\015"))
@@ -1141,8 +1214,9 @@ Return nil if library unfound and failed to download, otherwise the path where t
(lambda ()
(define-key dired-mode-map "P" 'dired-do-pack-or-unpack))))

(and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/dired-list-all-mode.el"
t)
(and (dllib-if-unfound
"https://raw.github.com/10sr/emacs-lisp/master/dired-list-all-mode.el"
t)
(require 'dired-list-all-mode nil t)
(setq dired-listing-switches "-lhFG")
(add-hook 'dired-mode-hook
@@ -1202,7 +1276,8 @@ Optional prefix ARG says how many lines to unflag; default is one line."
"t if FILE is owned by me."
(eq (user-uid) (nth 2 (file-attributes file))))

;; ;; http://www.bookshelf.jp/pukiwiki/pukiwiki.php?Eshell%A4%F2%BB%C8%A4%A4%A4%B3%A4%CA%A4%B9
"http://www.bookshelf.jp/pukiwiki/pukiwiki.php\
?Eshell%A4%F2%BB%C8%A4%A4%A4%B3%A4%CA%A4%B9"
;; ;; written by Stefan Reichoer <reichoer@web.de>
;; (defun eshell/less (&rest args)
;; "Invoke `view-file' on the file.
@@ -1304,8 +1379,9 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
(insert user-login-name
"@"
(or (getenv "HOSTNAME")
(substring (shell-command-to-string (or (executable-find "hostname")
"echo ''"))
(substring (shell-command-to-string
(or (executable-find "hostname")
"echo ''"))
0
-1)))
(setq p4 (point))
@@ -1331,7 +1407,7 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
(lambda ()
;; (define-key eshell-mode-map (kbd "C-x C-x") (lambda ()
;; (interactive)
;; (switch-to-buffer (other-buffer))))
;; (switch-to-buffer (other-buffer))))
(define-key eshell-mode-map (kbd "C-u") (lambda ()
(interactive)
(eshell-goto-prompt)
@@ -1340,9 +1416,12 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
(interactive)
(eshell-goto-prompt)
(my-keyboard-quit)))
(define-key eshell-mode-map (kbd "DEL") 'my-eshell-backward-delete-char)
(define-key eshell-mode-map (kbd "C-p") 'eshell-previous-matching-input-from-input)
(define-key eshell-mode-map (kbd "C-n") 'eshell-next-matching-input-from-input)
(define-key eshell-mode-map
(kbd "DEL") 'my-eshell-backward-delete-char)
(define-key eshell-mode-map
(kbd "C-p") 'eshell-previous-matching-input-from-input)
(define-key eshell-mode-map
(kbd "C-n") 'eshell-next-matching-input-from-input)
(apply 'eshell/addpath exec-path)
(set (make-local-variable 'scroll-margin) 0)
;; (eshell/export "GIT_PAGER=")
@@ -1364,7 +1443,8 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
(lambda ()
(add-to-list 'eshell-visual-commands "vim")
;; (add-to-list 'eshell-visual-commands "git")
(add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer)
(add-to-list 'eshell-output-filter-functions
'eshell-truncate-buffer)
(mapcar (lambda (alias)
(add-to-list 'eshell-command-aliases-list
alias))
@@ -1374,7 +1454,13 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
; ("lla" "ls -al $*")
("ut" "slogin 03110414@un001.ecc.u-tokyo.ac.jp $*")
("aptin" "apt-get install $*")
("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*\"))")
("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*\"))")
("g" "git $*")
))
))
@@ -1408,7 +1494,8 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
""
(make-local-variable 'my-buffer-file-last-modified-time)
(setq my-buffer-file-last-modified-time
(format-time-string "%Y/%m/%d %H:%M" (my-get-file-last-modified-time buffer-file-name))))
(format-time-string "%Y/%m/%d %H:%M"
(my-get-file-last-modified-time buffer-file-name))))

(add-hook 'find-file-hook
'my-set-buffer-file-last-modified-time)
@@ -1419,7 +1506,8 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; frame buffer
;; todo: work well when opening the file that was already opened on another window
;; todo:
;; work well when opening the file that was already opened on another window

(add-hook 'after-make-frame-functions
(lambda (f)
@@ -1533,11 +1621,26 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
'ignore
'message))))
(cond ((active-minibuffer-window) nil)
((not buffer-file-name) (funcall fun "%ssaving... this buffer doesn't visit any file." cm) nil)
((not (file-exists-p buffer-file-name)) (funcall fun "%ssaving... file not exist. save manually first." com) nil)
(buffer-read-only (funcall fun "%ssaving... this buffer is read-only." cm) nil)
((not (buffer-modified-p)) (funcal fun "%ssaving... not modified yet." cm) nil)
((not (file-writable-p buffer-file-name)) (funcall fun "%ssaving... you cannot change this file." cm) nil)
((not buffer-file-name)
(funcall fun
"%ssaving... this buffer doesn't visit any file." cm)
nil)
((not (file-exists-p buffer-file-name))
(funcall fun
"%ssaving... file not exist. save manually first." cm)
nil)
(buffer-read-only
(funcall fun
"%ssaving... this buffer is read-only." cm)
nil)
((not (buffer-modified-p))
(funcal fun
"%ssaving... not modified yet." cm)
nil)
((not (file-writable-p buffer-file-name))
(funcall fun
"%ssaving... you cannot change this file." cm)
nil)
(t (funcall fun "%ssaving..." cm)
(save-buffer)
(funcall fun "%ssaving... done." cm)))))
@@ -1556,7 +1659,8 @@ when SEC is nil, stop auto save if enabled."
(progn (when my-auto-save-this-buffer
(cancel-timer my-auto-save-this-buffer)
(setq my-auto-save-this-buffer nil))
(setq my-auto-save-this-buffer (run-with-idle-timer sec t 'my-save-this-buffer silent-p)))
(setq my-auto-save-this-buffer
(run-with-idle-timer sec t 'my-save-this-buffer silent-p)))
(when my-auto-save-this-buffer
(cancel-timer my-auto-save-this-buffer)
(setq my-auto-save-this-buffer nil))))
@@ -1595,7 +1699,8 @@ when SEC is nil, stop auto save if enabled."
(setq file (expand-file-name file))
(message "Opening %s..." file)
(cond ((eq system-type 'windows-nt)
(call-process "cmd.exe" nil 0 nil "/c" "start" "" (convert-standard-filename file)))
(call-process "cmd.exe" nil 0 nil
"/c" "start" "" (convert-standard-filename file)))
((eq system-type 'darwin)
(call-process "open" nil 0 nil file))
((getenv "DISPLAY")
@@ -1682,7 +1787,9 @@ this is test, does not rename files"
(catch 'end-flag
(while t
(setq action
(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."
(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."
(window-width)
(window-height))))
(setq c (aref action 0))
@@ -1699,7 +1806,8 @@ this is test, does not rename files"
((= c ?o)
(other-window 1))
((memq c '(?d ?0))
(unless (eq (selected-window) (next-window (selected-window) 0 1))
(unless (eq (selected-window)
(next-window (selected-window) 0 1))
(delete-window (selected-window))))
((= c ?1)
(delete-other-windows))
@@ -1743,7 +1851,8 @@ this is test, does not rename files"
"use anthy.el as japanese im."
;; anthy
(when (require 'anthy nil t)
(global-set-key (kbd "<muhenkan>") (lambda () (interactive) (anthy-mode-off)))
(global-set-key
(kbd "<muhenkan>") (lambda () (interactive) (anthy-mode-off)))
(global-set-key (kbd "<henkan>") (lambda () (interactive) (anthy-mode-on)))
(when (>= emacs-major-version 23)
(setq anthy-accept-timeout 1))))
@@ -1766,9 +1875,11 @@ this is test, does not rename files"
(defun start-ckw-bash ()
""
(interactive)
(start-process "ckw_bash"
nil
"C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe")) ; cじゃないといけないらしい
(start-process
"ckw_bash"
nil
"C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe"))
;; command seems to have to be in c drive

(defun my-w32-add-export-path (&rest args)
""


Écrire Aperçu
Chargement…
Annuler
Enregistrer