Merge pull request #265 from vermiculus/question-mode-line

Question mode line

1 files changed, 6 insertions, 0 deletions

diff --git a/sx.el b/sx.el
index 501f1e0..e5e9c3e 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--split-string (string &optional separators)