From 10c69fe7bbfcfdfefbc954b7ed7b1c84cf154b1a Mon Sep 17 00:00:00 2001
From: benjamin <benjamin.lindqvist@gmail.com>
Date: Wed, 17 Jan 2018 20:51:19 +0100
Subject: Added some default faces and generally made it slightly easier to
 customize

---
 README.md     |   9 +++++++--
 feebleline.el |  27 ++++++++++++++++++++++-----
 scrot2.png    | Bin 0 -> 237180 bytes
 3 files changed, 29 insertions(+), 7 deletions(-)
 create mode 100644 scrot2.png

diff --git a/README.md b/README.md
index c79c5d4..669c018 100644
--- a/README.md
+++ b/README.md
@@ -24,5 +24,10 @@ version supports it, just place the following in your init file:
 Otherwise, do (feebleline-mode t) instead, but be warned that I'm not sure
 if it will look good.
 
-Screenshot:
-![Alt text](scrot1.png?raw=true "Screenshot1")
+Note: Code graciously improved by *Kungsgeten*. I tweaked it a little bit more
+to make it easier to customize colors etc and defined some default faces. If
+anyone has any ideas for nicer default faces, let me know and I'll consider
+them!
+
+New screenshot :
+![Alt text](scrot2.png?raw=true "Screenshot2")
diff --git a/feebleline.el b/feebleline.el
index ce70be6..c72c942 100644
--- a/feebleline.el
+++ b/feebleline.el
@@ -57,18 +57,35 @@
 (require 'advice)
 (defvar feebleline/mode-line-format-default)
 (defvar feebleline/timer)
+
+(defface feebleline-time-face '((t :inherit 'default :foreground "#73d217"))
+  "Feebleline timestamp face."
+  :group 'feebleline-mode)
+(defface feebleline-linum-face '((t :inherit 'default))
+  "Feebleline linum face."
+  :group 'feebleline-mode)
+(defface feebleline-filename-face '((t :foreground "#fce94e"))
+  "Feebleline filename face."
+  :group 'feebleline-mode)
+
+;; Note: ugly parentheses, for the simple reason that it makes it easier to
+;; transpose, add and comment out lines.
 (defvar feebleline-mode-line-text
-  '(("[%s] " ((format-time-string "%H:%M:%S")) (face font-lock-comment-face))
-    ("%s/%s " ((string-to-number (format-mode-line "%l"))
-               (current-column)))
-    ("@ %s " ((buffer-file-name))))
+  '(
+    ("[%s] "    ((format-time-string "%H:%M:%S")) (face feebleline-time-face))
+    ("(%s"      ((string-to-number (format-mode-line "%l"))) (face feebleline-linum-face))
+    ("%s"       ("," ) (face default))
+    ("%s) "     ((current-column)) (face feebleline-linum-face))
+    ("%s"       ("") (face default))
+    ("%s "      ((buffer-file-name)) (face feebleline-filename-face))
+    )
   "Each element is a list with the following format:
 
     (FORMAT-STRING FORMAT-ARGS PROPS)
 
 FORMAT-STRING will be used as the first argument to `format', and
 FORMAT-ARGS (a list) will be expanded as the rest of `format'
-arguments. If PROPS is given, it should be a list which will be
+arguments.  If PROPS is given, it should be a list which will be
 sent to `add-text-properties'.")
 
 (defun feebleline-default-settings ()
diff --git a/scrot2.png b/scrot2.png
new file mode 100644
index 0000000..8c23023
Binary files /dev/null and b/scrot2.png differ
-- 
cgit v1.2.3