From d73ba0621e1e73df155a09126ecef8df8c2d232a Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sat, 21 Feb 2015 10:48:28 -0200
Subject: Standardize prettification of site names.

---
 sx-question-list.el | 4 +---
 sx-question-mode.el | 9 +++++++--
 sx.el               | 6 ++++++
 3 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/sx-question-list.el b/sx-question-list.el
index def490b..32bc140 100644
--- a/sx-question-list.el
+++ b/sx-question-list.el
@@ -397,9 +397,7 @@ Non-interactively, DATA is a question alist."
 (defconst sx-question-list--mode-line-format
   '("   "
     (:propertize
-     (:eval (mapconcat #'capitalize
-                       (split-string sx-question-list--site "\\.")
-                       " "))
+     (:eval (sx--pretty-site-parameter sx-question-list--site))
      face mode-line-buffer-id)
     " " mode-name ": "
     (:propertize sx-question-list--current-tab
diff --git a/sx-question-mode.el b/sx-question-mode.el
index 2d06e5b..d4b7f8d 100644
--- a/sx-question-mode.el
+++ b/sx-question-mode.el
@@ -191,7 +191,8 @@ property."
     ;; `sx-assoc-let' to improve performance (since the mode-line is
     ;; updated a lot).
     (:propertize
-     (:eval (let-alist sx-question-mode--data .site_par))
+     (:eval (sx--pretty-site-parameter
+             (let-alist sx-question-mode--data .site_par)))
      face mode-line-buffer-id)
     " " mode-name
     " ["
@@ -216,10 +217,14 @@ property."
   "Major mode to display and navigate a question and its answers.
 Letters do not insert themselves; instead, they are commands.
 
+Don't activate this mode directly.  Instead, to print a question
+on the current buffer use
+`sx-question-mode--erase-and-print-question'.
+
 \\<sx-question-mode>
 \\{sx-question-mode}"
   (setq header-line-format sx-question-mode--header-line)
-  (setq header-line-format sx-question-mode--mode-line)
+  (setq mode-line-format sx-question-mode--mode-line)
   ;; Determine how to close this window.
   (unless (window-parameter nil 'quit-restore)
     (set-window-parameter
diff --git a/sx.el b/sx.el
index 73d874f..fc0af92 100644
--- a/sx.el
+++ b/sx.el
@@ -187,6 +187,12 @@ If ALIST doesn't have a `site' property, one is created using the
      ,(macroexpand
        `(let-alist ,alist ,@body))))
 
+(defun sx--pretty-site-parameter (site)
+  "Returned a pretty and capitalized version of string SITE."
+  (mapconcat #'capitalize
+             (split-string site "\\.")
+             " "))
+
 
 ;;; Utility Functions
 (defun sx-completing-read (&rest args)
-- 
cgit v1.2.3