From 16c8b86d528f62a54b4021fbc8bcfc39b30ad242 Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Mon, 1 Feb 2016 12:40:36 +0900 Subject: [PATCH] Print date in minibuffer instead of mode-line --- emacs.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/emacs.el b/emacs.el index 1b3ff59..520e1d7 100644 --- a/emacs.el +++ b/emacs.el @@ -534,9 +534,9 @@ IF OK-IF-ALREADY-EXISTS is true force download." (setq display-time-interval 29) (setq display-time-day-and-date t) (setq display-time-format "%Y/%m/%d %a %H:%M") - (if window-system - (display-time-mode 0) - (display-time-mode 1)) + ;; (if window-system + ;; (display-time-mode 0) + ;; (display-time-mode 1)) (when display-time-mode (display-time-update))) @@ -611,23 +611,25 @@ IF OK-IF-ALREADY-EXISTS is true force download." (:eval (and (fboundp 'git-ps1-mode-get-current) (git-ps1-mode-get-current " [GIT:%s]"))) " " - display-time-string)) + (:eval (format-time-string display-time-format)))) (minibuffer-line-mode 1) ) (when (safe-require-or-eval 'prompt-text) (set-variable 'prompt-text-format - `(,(concat "[" + `(,(concat "" user-login-name "@" (car (split-string system-name "\\.")) - "][") - (:eval (abbreviate-file-name default-directory)) - "]" + ":") + (:eval (abbreviate-file-name (or buffer-file-name + default-directory))) (:eval (and (fboundp 'git-ps1-mode-get-current) - (git-ps1-mode-get-current "[GIT:%s]"))) + (git-ps1-mode-get-current " [GIT:%s]"))) + " " + (:eval (format-time-string display-time-format)) "\n" (:eval (symbol-name this-command)) ": "))