diff options
| author | Franck Cuny <franckcuny@gmail.com> | 2016-06-01 15:16:35 -0700 |
|---|---|---|
| committer | Franck Cuny <franckcuny@gmail.com> | 2016-06-01 15:16:35 -0700 |
| commit | 43a1dff82190524d6f67fb6359c199428fa7bf1e (patch) | |
| tree | 5659e894a24bef7e7f6b16e98373009029d77e88 | |
| parent | [emacs] use default bindings for some modes (diff) | |
| download | emacs.d-43a1dff82190524d6f67fb6359c199428fa7bf1e.tar.gz | |
[emacs] simplify the UI
Diffstat (limited to '')
| -rw-r--r-- | emacs.d/core/core-ui.el | 23 |
1 files changed, 12 insertions, 11 deletions
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) |