Merge branch 'master' into generate-header-line-from-keymap

1 files changed, 6 insertions, 0 deletions

diff --git a/sx.el b/sx.el
index e7b62a5..3bc6768 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)