From 2f398913b77d190f2e0c96ba15296c231ba21e18 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sat, 14 Feb 2015 16:44:01 -0200
Subject: Show the site name on the mode-lien

---
 sx-question-list.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'sx-question-list.el')

diff --git a/sx-question-list.el b/sx-question-list.el
index de15704..06af161 100644
--- a/sx-question-list.el
+++ b/sx-question-list.el
@@ -400,7 +400,13 @@ Non-interactively, DATA is a question alist."
   "Variable describing current tab being viewed.")
 
 (defconst sx-question-list--mode-line-format
-  '("  " mode-name ": "
+  '("   "
+    (:propertize
+     (:eval (mapconcat #'capitalize
+                       (split-string sx-question-list--site "\\.")
+                       " "))
+     face mode-line-buffer-id)
+    " " mode-name ": "
     (:propertize sx-question-list--current-tab
                  face mode-line-buffer-id)
     " ["
-- 
cgit v1.2.3