1 files changed, 84 insertions, 0 deletions
diff --git a/modules/custom-ordering.el b/modules/custom-ordering.el
new file mode 100644
index 00000000..020e9254
--- /dev/null
+++ b/modules/custom-ordering.el
@@ -0,0 +1,84 @@
+;;; custom-ordering.el ---  -*- coding: utf-8; lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+
+(defun cj/arrayify (start end quote)
+  "Convert lines between START and END into quoted, comma-separated strings.
+
+START and END identify the active region.
+QUOTE specifies the quotation characters to surround each element."
+  (interactive "r\nMQuotation character to use for array element: ")
+  (let ((insertion
+		 (mapconcat
+		  (lambda (x) (format "%s%s%s" quote x quote))
+		  (split-string (buffer-substring start end)) ", ")))
+	(delete-region start end)
+	(insert insertion)))
+
+(defun cj/unarrayify (start end)
+  "Convert quoted, comma-separated strings between START and END into separate lines.
+
+START and END identify the active region."
+  (interactive "r")
+  (let ((insertion
+		 (mapconcat
+		  (lambda (x) (replace-regexp-in-string "[\"']" "" x))
+		  (split-string (buffer-substring start end) ", ") "\n")))
+	(delete-region start end)
+	(insert insertion)))
+
+(defun cj/alphabetize-region ()
+  "Alphabetize words in the active region and replace the original text.
+
+Produce a comma-separated list as the result."
+  (interactive)
+  (unless (use-region-p)
+	(user-error "No region selected"))
+  (let ((start (region-beginning))
+		(end (region-end))
+		(string (buffer-substring-no-properties (region-beginning) (region-end))))
+	(delete-region start end)
+	(goto-char start)
+	(insert
+	 (mapconcat #'identity
+				(sort (split-string string "[[:space:],]+" t)
+					  #'string-lessp)
+				", "))))
+
+(defun cj/comma-separated-text-to-lines ()
+  "Break up comma-separated text in the active region so each item is on its own line."
+  (interactive)
+  (if (not (region-active-p))
+	  (error "No region selected"))
+
+  (let ((beg (region-beginning))
+		(end (region-end))
+		(text (buffer-substring-no-properties (region-beginning) (region-end))))
+	(with-temp-buffer
+	  (insert text)
+	  (goto-char (point-min))
+	  (while (search-forward "," nil t)
+		(replace-match "\n" nil t))
+	  (delete-trailing-whitespace)
+	  (setq text (buffer-string)))
+
+	(delete-region beg end)
+	(goto-char beg)
+	(insert text)))
+
+
+;; Ordering & sorting prefix and keymap
+(define-prefix-command 'cj/ordering-map nil
+					   "Keymap for text ordering and sorting operations.")
+(define-key cj/custom-keymap "o" 'cj/ordering-map)
+(define-key cj/ordering-map "a" 'cj/arrayify)
+(define-key cj/ordering-map "u" 'cj/unarrayify)
+(define-key cj/ordering-map "A" 'cj/alphabetize-region)
+(define-key cj/ordering-map "l" 'cj/comma-separated-text-to-lines)
+
+(provide 'custom-ordering)
+;;; custom-ordering.el ends here.