Standardize prettification of site names.

1 files changed, 6 insertions, 0 deletions

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)