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.el | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'sx.el')

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