Ver código fonte

add gtkbm.el prefs, set title for terminal

pull/1/head
10sr 12 anos atrás
pai
commit
c384f8d745
1 arquivos alterados com 36 adições e 9 exclusões
  1. +36
    -9
      emacs.el

+ 36
- 9
emacs.el Ver arquivo

@@ -27,6 +27,28 @@
(symbol-name system-type)
"] "
'(:eval (symbol-name last-command))))

(defun set-terminal-title (&rest args)
""
(interactive "sString to set as title: ")
(send-string-to-terminal (apply 'concat
"\033]0;"
`(,@args "\007"))))
(and (getenv "DISPLAY")
(not window-system)
(defvar old-directory default-directory)
(add-hook 'post-command-hook
(lambda ()
(unless (eq old-directory default-directory)
(setq old-directory default-directory)
(set-terminal-title "["
invocation-name
" "
emacs-version
" "
(symbol-name system-type)
"] "
(abbreviate-file-name default-directory))))))
(defun buffer-list-not-start-with-space ()
(let ((bl (buffer-list))
b nbl)
@@ -53,7 +75,8 @@
(add-hook 'kill-emacs-hook ; 終了時に読み込んで壊れてないか調べる
(lambda ()
(when (file-readable-p "~/.emacs")
(load-file "~/.emacs"))))
(load-file "~/.emacs"))
))

(add-hook 'after-init-hook
(lambda ()
@@ -721,8 +744,11 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."

(require 'session nil t)

(when (require 'gtkbm nil t)
(global-set-key (kbd "C-x C-d") 'gtkbm))
(and (dllib-if-unfound "gtkbm"
"https://raw.github.com/10sr/emacs-lisp/master/gtkbm.el"
t)
(require 'gtkbm nil t)
(global-set-key (kbd "C-x C-d") 'gtkbm))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; frame buffer
@@ -1076,7 +1102,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
;; (recentf-add-file default-directory)))
(recentf-mode 1)
(add-to-list 'recentf-filename-handlers 'abbreviate-file-name)
(add-to-list 'recentf-exclude "\\.emacs\\.d/recentf"))
(add-to-list 'recentf-exclude (rx-to-string recentf-save-file)))

(add-hook 'recentf-dialog-mode-hook
(lambda ()
@@ -1285,7 +1311,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
(delete-file file)))))

(and (dllib-if-unfound "pack"
"https://github.com/10sr/emacs-lisp/raw/master/pack.el"
"https://raw.github.com/10sr/emacs-lisp/master/pack.el"
t)
(require 'pack nil t)
(add-hook 'dired-mode-hook
@@ -1658,11 +1684,12 @@ when SEC is nil, stop auto save if enabled."
(call-process "cmd.exe" nil 0 nil "/c" "start" "" (convert-standard-filename file)))
((eq system-type 'darwin)
(call-process "open" nil 0 nil file))
((not (getenv "DISPLAY"))
(find-file file))
((getenv "DISPLAY")
(call-process (or my-filer "xdg-open") nil 0 nil file))
(t
(call-process (or my-filer "xdg-open") nil 0 nil file)))
(recentf-add-file file)
(find-file file))
)
;; (recentf-add-file file)
(message "Opening %s...done" file))

(defvar my-auto-indent-buffer-mode-list


Carregando…
Cancelar
Salvar