From 2a235baf525a288b1e15b0e2a521f6f49f3a73c2 Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Thu, 5 Jul 2012 14:30:50 +0900 Subject: [PATCH] add read-only-only-mode prefs --- emacs.el | 42 +++++++++++++++++++++++------------------- 1 file changed, 23 insertions(+), 19 deletions(-) diff --git a/emacs.el b/emacs.el index 996e3b9..11dd543 100644 --- a/emacs.el +++ b/emacs.el @@ -27,7 +27,7 @@ changing.") default-directory)))) (let ((pfile previous-file) (cfile (expand-file-name (or buffer-file-name - default-directory)))) + default-directory)))) (setq previous-file cfile) (run-hook-with-args 'buffer-file-changed-functions pfile cfile))))) ;; (add-hook 'buffer-file-changed-function @@ -135,14 +135,14 @@ otherwise the path where the library installed." (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? + ;; does not work? ) ;; (add-to-list 'default-frame-alist '(cursor-type . box)) (if window-system (menu-bar-mode 1) (menu-bar-mode 0)) (and (fboundp 'tool-bar-mode) -(tool-bar-mode 0)) + (tool-bar-mode 0)) (and (fboundp 'set-scroll-bar-mode) -(set-scroll-bar-mode nil)) + (set-scroll-bar-mode nil)) (add-hook 'kill-emacs-hook ;; load when exitting to examine if file is written properly (lambda () @@ -167,9 +167,9 @@ otherwise the path where the library installed." ;; my prefix map (define-prefix-command 'my-prefix-map) '(add-hook 'after-init-hook - (lambda () - (define-key ctl-x-map (kbd "C-x") 'my-prefix-map) - )) + (lambda () + (define-key ctl-x-map (kbd "C-x") 'my-prefix-map) + )) (define-key ctl-x-map (kbd "C-x") 'my-prefix-map) (define-key my-prefix-map (kbd "C-q") 'quoted-insert) (define-key my-prefix-map (kbd "C-z") 'suspend-frame) @@ -298,7 +298,7 @@ drill-instructor.el" (fset 'yes-or-no-p 'y-or-n-p) (define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) - ;; complete symbol when `eval' +;; complete symbol when `eval' ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; letters, font-lock mode and fonts @@ -415,7 +415,7 @@ drill-instructor.el" (and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/set-modeline-color.el" - t) + t) (progn (require 'set-modeline-color nil t))) @@ -472,7 +472,7 @@ drill-instructor.el" (setq-default tab-width 4) (setq-default indent-tabs-mode nil) (setq-default indent-line-function nil) -;(pc-selection-mode 1) ; this make some already defined keybind back to default + ;(pc-selection-mode 1) ; this make some already defined keybind back to default (delete-selection-mode 1) (cua-mode 0) (setq line-move-visual nil) @@ -565,7 +565,7 @@ drill-instructor.el" (and window-system (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/save-window-size.el" - t) + t) (require 'save-window-size nil t)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -586,6 +586,10 @@ drill-instructor.el" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; mode +(and (dllib-if-unfound "https://github.com/10sr/emacs-lisp/raw/master/read-only-only-mode.el" + t) + (require 'read-only-only-mode nil t)) + (add-hook 'verilog-mode-hook (lambda () (define-key verilog-mode-map ";" 'self-insert-command))) @@ -694,7 +698,7 @@ drill-instructor.el" (executable-find "markdown.pl"))) (when (dllib-if-unfound "http://jblevins.org/projects/markdown-mode/markdown-mode.el" - t) + t) (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'markdown-mode)) (autoload 'markdown-mode "markdown-mode" "Major mode for editing Markdown files." nil) @@ -717,7 +721,7 @@ drill-instructor.el" (when (dllib-if-unfound "https://raw.github.com/mooz/js2-mode/master/js2-mode.el" - t) + t) (autoload 'js2-mode "js2-mode" nil t) (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode)) (add-to-list 'auto-mode-alist '("\\.jsm\\'" . js2-mode))) @@ -980,7 +984,7 @@ drill-instructor.el" (when (dllib-if-unfound "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el" - t) + t) (setq auto-mode-alist (cons '("\.gosh\\'" . gauche-mode) auto-mode-alist)) (setq auto-mode-alist @@ -1328,8 +1332,8 @@ Optional prefix ARG says how many lines to unflag; default is one line." '("di" "diff" "log" "show")) (apply 'eshell-exec-visual "git" args) (shell-command (mapconcat 'shell-quote-argument - `("git" ,@args) - " ") + `("git" ,@args) + " ") t) ;; (eshell-external-command "git" args) )) @@ -1681,7 +1685,7 @@ when SEC is nil, stop auto save if enabled." (list-directory-brief-switches "-C")) (with-current-buffer bf (list-directory (or nil - default-directory) + default-directory) nil)) )) @@ -1795,8 +1799,8 @@ this is test, does not rename files" (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)))) + (window-width) + (window-height)))) (setq c (aref action 0)) (cond ((= c ?l) (unless (eq (window-width) (frame-width))