From 43a1dff82190524d6f67fb6359c199428fa7bf1e Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Wed, 1 Jun 2016 15:16:35 -0700 Subject: [emacs] simplify the UI --- emacs.d/core/core-ui.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'emacs.d') diff --git a/emacs.d/core/core-ui.el b/emacs.d/core/core-ui.el index 266fb15..cc86ede 100644 --- a/emacs.d/core/core-ui.el +++ b/emacs.d/core/core-ui.el @@ -1,4 +1,4 @@ -(defvar fcuny/font-family "Source Code Pro") +(defvar fcuny/font-family "Droid Sans Mono") (defvar fcuny/font-size 130) (defun fcuny/set-font-size (size) @@ -29,9 +29,9 @@ (setq initial-scratch-message "") ;; highlight the current line -(global-hl-line-mode +1) +(global-hl-line-mode -1) -(setq frame-title-format '(buffer-file-name "%f" ("%b"))) +(setq frame-title-format '("%b - "(:eval (format "%s" (projectile-project-name))))) ;; no blink cursor (blink-cursor-mode -1) @@ -45,7 +45,7 @@ ;;hide scroll-bar (scroll-bar-mode 0) ;;hide menu-bar - (menu-bar-mode +1) + (menu-bar-mode -1) ;; set the font size and family (fcuny/regular-mode)) @@ -60,19 +60,20 @@ (progn (add-hook 'emacs-lisp-mode-hook #'rainbow-delimiters-mode))) +(setq-default mode-line-position + '((line-number-mode ("(%04l" (column-number-mode ",%03c)"))))) + +(setq-default mode-line-buffer-identification + (list (propertize "%50b" 'face (list :weight 'bold)))) + (setq-default mode-line-format '("%e" mode-line-front-space ;; Standard info about the current buffer mode-line-mule-info mode-line-client mode-line-modified - mode-line-remote mode-line-frame-identification - mode-line-buffer-identification " " mode-line-position - ;; Some specific information about the current buffer: - (flycheck-mode flycheck-mode-line) ; Flycheck status - mode-line-misc-info - ;; And the modes, which I don't really care for anyway - " " mode-line-modes mode-line-end-spaces)) + mode-line-buffer-identification " %m " mode-line-position + (flycheck-mode flycheck-mode-line))) (provide 'core-ui) -- cgit 1.4.1