소스 검색

add header-line-format

pull/1/head
10sr 12 년 전
부모
커밋
a6acf8f34f
1개의 변경된 파일59개의 추가작업 그리고 55개의 파일을 삭제
  1. +59
    -55
      emacs.el

+ 59
- 55
emacs.el 파일 보기

@@ -72,61 +72,6 @@ otherwise the path where the library installed."
;; 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 set-terminal-title-regexp "^\\(rxvt\\|xterm\\|aterm$\\|screen\\)")
(defun set-terminal-title (&rest args)
""
(interactive "sString to set as title: ")
(let ((tty (frame-parameter nil
'tty-type)))
(when (and tty
(string-match set-terminal-title-regexp
tty))
(send-string-to-terminal (apply 'concat
"\033]0;"
`(,@args "\007"))))))
(defun my-set-terminal-title ()
""
(set-terminal-title "["
invocation-name
" "
emacs-version
" "
(symbol-name system-type)
"] "
(abbreviate-file-name (or buffer-file-name
default-directory))))
(add-hook 'buffer-file-changed-functions
(lambda (p c)
(my-set-terminal-title)))
(add-hook 'suspend-resume-hook
'my-set-terminal-title)

(defun buffer-list-not-start-with-space ()
(let ((bl (buffer-list))
b nbl)
(while bl
(setq b (pop bl))
(unless (string-equal " "
(substring (buffer-name b)
0
1))
(add-to-list 'nbl b)))
nbl))
(setq confirm-kill-emacs 'y-or-n-p)
(setq gc-cons-threshold (* 1024 1024 4))

@@ -284,6 +229,65 @@ drill-instructor.el"
;; my-buffer-file-last-modified-time))
;; (cdr ls))))

(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-default header-line-format (list " "
'display-time-string))

(setq set-terminal-title-regexp "^\\(rxvt\\|xterm\\|aterm$\\|screen\\)")
(defun set-terminal-title (&rest args)
""
(interactive "sString to set as title: ")
(let ((tty (frame-parameter nil
'tty-type)))
(when (and tty
(string-match set-terminal-title-regexp
tty))
(send-string-to-terminal (apply 'concat
"\033]0;"
`(,@args "\007"))))))
(defun my-set-terminal-title ()
""
(set-terminal-title "["
invocation-name
" "
emacs-version
" "
(symbol-name system-type)
"] "
(abbreviate-file-name (or buffer-file-name
default-directory))))
(add-hook 'buffer-file-changed-functions
(lambda (p c)
(my-set-terminal-title)))
(add-hook 'suspend-resume-hook
'my-set-terminal-title)

(defun buffer-list-not-start-with-space ()
(let ((bl (buffer-list))
b nbl)
(while bl
(setq b (pop bl))
(unless (string-equal " "
(substring (buffer-name b)
0
1))
(add-to-list 'nbl b)))
nbl))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; minibuffer



불러오는 중...
취소
저장