[emacs] some small changes to the UI.

Bigger font, and a few changes to the mode line (drop the time/date;
remove the function name, etc.).

1 files changed, 10 insertions, 13 deletions

diff --git a/emacs.d/inits/00_ui.el b/emacs.d/inits/00_ui.el
index ca4eb08..0357246 100644
--- a/emacs.d/inits/00_ui.el
+++ b/emacs.d/inits/00_ui.el
@@ -23,31 +23,28 @@
   ;;hide menu-bar
   (menu-bar-mode +1)
   ;; set the font size and family
-  (custom-set-faces '(default ((t (:height 130 :family "Droid Sans Mono"))))))
+  (custom-set-faces '(default ((t (:height 140 :family "Droid Sans Mono"))))))
 
 (require 'whitespace)
 (global-whitespace-mode 1)
 (setq whitespace-style '(face trailing tabs tab-mark))
 
-;; I want to see the time and date in the status bar
-(setq display-time-day-and-date t
-      display-time-24hr-format t)
-(display-time)
-
 ;; smart mode-line
 (use-package smart-mode-line
   :ensure t
   :init
-  (setq sml/no-confirm-load-theme t)
-  (setq sml/theme nil)
-  (sml/setup))
+  (progn
+    (setq sml/no-confirm-load-theme t)
+    (setq sml/theme nil)
+    (setq sml/name-width 30)
+    (setq sml/shorten-directory t)
+    (setq sml/shorten-modes t)
+    (setq sml/mode-width 'full)
+    (sml/setup)
+    (add-to-list 'sml/hidden-modes " WS")))
 
 (use-package diminish
   :ensure t
   :config
   (progn
     (eval-after-load "whitespace" '(diminish 'whitespace-mode))))
-
-;; display the name of the function
-(use-package which-func
-  :init (which-function-mode 1))