Merge branch 'generate-header-line-from-keymap' into delete-command

1 files changed, 6 insertions, 0 deletions

diff --git a/sx.el b/sx.el
index 2e8f8db..194e32f 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)