Bladeren bron

emacs.el: info-in-prompt: detect duplication automatically

pull/1/head
10sr 10 jaren geleden
bovenliggende
commit
7a02eae860
1 gewijzigde bestanden met toevoegingen van 58 en 34 verwijderingen
  1. +58
    -34
      emacs.el

+ 58
- 34
emacs.el Bestand weergeven

@@ -2433,18 +2433,21 @@ this is test, does not rename files."
restorepos))
))

(run-with-timer
0.1
1
(lambda ()
(set-terminal-header (concat " "
user-login-name
"@"
(car (split-string system-name
"\\."))
" "
(format-time-string "%Y/%m/%d %T %z")
" "))))
(defun my-set-terminal-header ()
"Set terminal header."
(set-terminal-header (concat " "
user-login-name
"@"
(car (split-string system-name
"\\."))
" "
(format-time-string "%Y/%m/%d %T %z")
" ")))

;; (run-with-timer
;; 0.1
;; 1
;; 'my-set-terminal-header)

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;; savage emacs
@@ -2459,35 +2462,16 @@ this is test, does not rename files."
;; ".")
;; " Stupid!")))

(defvar my-system-info
(defvar info-in-prompt
nil
"System info in the form of \"[user@host] \".")
(setq my-system-info
(setq info-in-prompt
(concat "["
user-login-name
"@"
(car (split-string system-name
"\\."))
"] "))

(defadvice read-from-minibuffer (before info-in-prompt activate)
"Show system info when use `read-from-minibuffer'."
(ad-set-arg 0
(concat my-system-info
(ad-get-arg 0))))

(defadvice read-string (before info-in-prompt activate)
"Show system info when use `read-string'."
(ad-set-arg 0
(concat my-system-info
(ad-get-arg 0))))

(when (< emacs-major-version 24)
(defadvice completing-read (before info-in-prompt activate)
"Show system info when use `completing-read'."
(ad-set-arg 0
(concat my-system-info
(ad-get-arg 0)))))
"]"))

(defun my-real-function-subr-p (function)
"Return t if FUNCTION is a built-in function even if it is advised."
@@ -2505,6 +2489,46 @@ this is test, does not rename files."
(subrp def)))

;; (my-real-function-subr-p 'my-real-function-subr-p)
;; (defadvice read-from-minibuffer (before info-in-prompt activate)
;; "Show system info when use `read-from-minibuffer'."
;; (ad-set-arg 0
;; (concat my-system-info
;; (ad-get-arg 0))))

;; (defadvice read-string (before info-in-prompt activate)
;; "Show system info when use `read-string'."
;; (ad-set-arg 0
;; (concat my-system-info
;; (ad-get-arg 0))))

;; (when (< emacs-major-version 24)
;; (defadvice completing-read (before info-in-prompt activate)
;; "Show system info when use `completing-read'."
;; (ad-set-arg 0
;; (concat my-system-info
;; (ad-get-arg 0)))))

(defmacro info-in-prompt-set (&rest functions)
"Set info-in-prompt advices for FUNCTIONS."
`(progn
,@(mapcar (lambda (f)
`(defadvice ,f (before info-in-prompt activate)
"Show info in prompt."
(let ((orig (ad-get-arg 0)))
(unless (string-match-p (regexp-quote info-in-prompt)
orig)
(ad-set-arg 0
(concat info-in-prompt
" "
orig))))))
functions)))

;; (string-match-p (regexp-quote my-system-info)
;; my-system-info)

(info-in-prompt-set read-from-minibuffer
read-string
completing-read)


;;; emacs.el ends here

Laden…
Annuleren
Opslaan