浏览代码

add read-only-only-mode prefs

pull/1/head
10sr 12 年前
父节点
当前提交
2a235baf52
共有 1 个文件被更改,包括 23 次插入19 次删除
  1. +23
    -19
      emacs.el

+ 23
- 19
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))


正在加载...
取消
保存