| @@ -451,51 +451,6 @@ found, otherwise returns nil." | |||||
| (git-ps1-mode)) | (git-ps1-mode)) | ||||
| ;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title | ;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title | ||||
| ;; display date | |||||
| (when (safe-require-or-eval 'time) | |||||
| (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)) | |||||
| (when display-time-mode | |||||
| (display-time-update))) | |||||
| ;; ;; current directory | |||||
| ;; (let ((ls (member 'mode-line-buffer-identification | |||||
| ;; mode-line-format))) | |||||
| ;; (setcdr ls | |||||
| ;; (cons '(:eval (concat " (" | |||||
| ;; (abbreviate-file-name default-directory) | |||||
| ;; ")")) | |||||
| ;; (cdr ls)))) | |||||
| ;; ;; display last modified time | |||||
| ;; (let ((ls (member 'mode-line-buffer-identification | |||||
| ;; mode-line-format))) | |||||
| ;; (setcdr ls | |||||
| ;; (cons '(:eval (concat " " | |||||
| ;; my-buffer-file-last-modified-time)) | |||||
| ;; (cdr ls)))) | |||||
| (defun buffer-list-not-start-with-space () | |||||
| "Return a list of buffers that not start with whitespaces." | |||||
| (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)) | |||||
| ;; http://www.masteringemacs.org/articles/2012/09/10/hiding-replacing-modeline-strings/ | |||||
| ;; (add-to-list 'minor-mode-alist | |||||
| ;; '(global-whitespace-mode "")) | |||||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
| ;; minibuffer | ;; minibuffer | ||||
| @@ -786,9 +741,7 @@ found, otherwise returns nil." | |||||
| (and (eq system-type 'darwin) | (and (eq system-type 'darwin) | ||||
| (safe-require-or-eval 'pasteboard) | (safe-require-or-eval 'pasteboard) | ||||
| (turn-on-pasteboard) | |||||
| (getenv "TMUX") | |||||
| (pasteboard-enable-rtun)) | |||||
| (turn-on-pasteboard)) | |||||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
| ;; some modes and hooks | ;; some modes and hooks | ||||