modeline and theme changes

diff --git a/init.el b/init.el
index 65a11f5b17f39cee2c1ec1576651c6cb52be3b7c..4b178911156a227b43afc868c1057e0fcb131f19 100644 (file)
--- a/init.el
+++ b/init.el
@@ -89,8 +89,28 @@
               (window-height . 4)))
 
 (blink-cursor-mode -1)
-(column-number-mode t)
-(size-indication-mode t)
+
+(setq-default mode-line-format
+             '("%e"
+               (:propertize "  " face (if (and (buffer-file-name) (buffer-modified-p))
+                                          mode-line-highlight
+                                        mode-line-active))
+               " "
+               mode-line-mule-info
+               mode-line-client
+               mode-line-modified
+               mode-line-remote
+               mode-line-window-dedicated
+               " [%l,%C]%n "
+               (:propertize (buffer-file-name "%f" "%b") face mode-line-buffer-id)
+               " (%Ib)"
+               " <%m>"
+               (project-mode-line project-mode-line-format)
+               (vc-mode vc-mode)
+               " "
+               mode-line-misc-info
+               mode-line-end-spaces))
+
 (delete-selection-mode t)
 
 (setq delete-by-moving-to-trash t
@@ -184,7 +204,7 @@
 (tool-bar-mode -1)
 (set-scroll-bar-mode 'left)
 
-(setq frame-title-format "%b"
+(setq frame-title-format "%b %*%+"
       mouse-prefer-closest-glyph t
       mouse-1-click-follows-link nil
       focus-follows-mouse t

diff --git a/re/acme-theme.el b/re/acme-theme.el
index f77fc69bd92b372e811257521c8a8bc8932d495a..320261d933319407a4fa8f81ee5e7e6341bb9dbd 100644 (file)
--- a/re/acme-theme.el
+++ b/re/acme-theme.el
@@ -74,7 +74,7 @@
    `(mode-line-inactive
      ((,class (:foreground ,text :background ,bar :box t))))
    `(mode-line-highlight
-     ((,class (:box (:line-width 1 :color ,text :style released-button)))))
+     ((,class (:background ,dirty :box (:line-width 1 :color ,text released-button)))))
 ;;; Org
    `(org-document-title
      ((,class (:foreground ,text :weight bold))))