1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
;;; custom-ordering.el --- -*- coding: utf-8; lexical-binding: t; -*-
;;; Commentary:
;; Text transformation and sorting utilities for reformatting data structures.
;;
;; Main functions:
;; - arrayify/listify - convert lines to comma-separated format (with/without quotes, brackets)
;; - unarrayify - convert arrays back to separate lines
;; - alphabetize-region - sort words alphabetically
;; - comma-separated-text-to-lines - split CSV text into lines
;;
;; Convenience functions: listify, arrayify-json, arrayify-python
;; Bound to keymap prefix C-; o
;;; Code:
;; cj/custom-keymap defined in keybindings.el
(eval-when-compile (defvar cj/custom-keymap))
(defvar cj/ordering-map)
(defun cj/--arrayify (start end quote &optional prefix suffix)
"Internal implementation: Convert lines to quoted, comma-separated format.
START and END define the region to operate on.
QUOTE specifies the quotation characters to surround each element.
Use \"\" for no quotes, \"\\\"\" for double quotes, \"'\" for single quotes.
PREFIX is an optional string to prepend to the result (e.g., \"[\" or \"(\").
SUFFIX is an optional string to append to the result (e.g., \"]\" or \")\").
Returns the transformed string without modifying the buffer."
(when (> start end)
(error "Invalid region: start (%d) is greater than end (%d)" start end))
(let ((result (mapconcat
(lambda (x) (format "%s%s%s" quote x quote))
(split-string (buffer-substring start end)) ", ")))
(concat (or prefix "") result (or suffix ""))))
(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 (cj/--arrayify start end quote)))
(delete-region start end)
(insert insertion)))
(defun cj/listify (start end)
"Convert lines between START and END into an unquoted, comma-separated list.
START and END identify the active region.
Example: `apple banana cherry' becomes `apple, banana, cherry'."
(interactive "r")
(let ((insertion (cj/--arrayify start end "")))
(delete-region start end)
(insert insertion)))
(defun cj/arrayify-json (start end)
"Convert lines between START and END into a JSON-style array.
START and END identify the active region.
Example: `apple banana cherry' becomes `[\"apple\", \"banana\", \"cherry\"]'."
(interactive "r")
(let ((insertion (cj/--arrayify start end "\"" "[" "]")))
(delete-region start end)
(insert insertion)))
(defun cj/arrayify-python (start end)
"Convert lines between START and END into a Python-style list.
START and END identify the active region.
Example: `apple banana cherry' becomes `[\"apple\", \"banana\", \"cherry\"]'."
(interactive "r")
(let ((insertion (cj/--arrayify start end "\"" "[" "]")))
(delete-region start end)
(insert insertion)))
(defun cj/--unarrayify (start end)
"Internal implementation: Convert comma-separated array to lines.
START and END define the region to operate on.
Removes quotes (both single and double) and splits by ', '.
Returns the transformed string without modifying the buffer."
(when (> start end)
(error "Invalid region: start (%d) is greater than end (%d)" start end))
(mapconcat
(lambda (x) (replace-regexp-in-string "[\"']" "" x))
(split-string (buffer-substring start end) ", ") "\n"))
(defun cj/unarrayify (start end)
"Convert quoted comma-separated strings between START and END to separate lines.
START and END identify the active region."
(interactive "r")
(let ((insertion (cj/--unarrayify start end)))
(delete-region start end)
(insert insertion)))
(defun cj/--alphabetize-region (start end)
"Internal implementation: Alphabetize words in region.
START and END define the region to operate on.
Splits by whitespace and commas, sorts alphabetically, joins with ', '.
Returns the transformed string without modifying the buffer."
(when (> start end)
(error "Invalid region: start (%d) is greater than end (%d)" start end))
(let ((string (buffer-substring-no-properties start end)))
(mapconcat #'identity
(sort (split-string string "[[:space:],]+" t)
#'string-lessp)
", ")))
(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))
(insertion (cj/--alphabetize-region (region-beginning) (region-end))))
(delete-region start end)
(goto-char start)
(insert insertion)))
(defun cj/--comma-separated-text-to-lines (start end)
"Internal implementation: Convert comma-separated text to lines.
START and END define the region to operate on.
Replaces commas with newlines and removes trailing whitespace from each line.
Returns the transformed string without modifying the buffer."
(when (> start end)
(error "Invalid region: start (%d) is greater than end (%d)" start end))
(let ((text (buffer-substring-no-properties start end)))
(with-temp-buffer
(insert text)
(goto-char (point-min))
(while (search-forward "," nil t)
(replace-match "\n" nil t))
(delete-trailing-whitespace)
(buffer-string))))
(defun cj/comma-separated-text-to-lines ()
"Break up comma-separated text in active region so each item is on own line."
(interactive)
(if (not (region-active-p))
(error "No region selected"))
(let ((beg (region-beginning))
(end (region-end))
(text (cj/--comma-separated-text-to-lines (region-beginning) (region-end))))
(delete-region beg end)
(goto-char beg)
(insert text)))
;; Ordering & sorting prefix and keymap
(defvar-keymap cj/ordering-map
:doc "Keymap for text ordering and sorting operations"
"a" #'cj/arrayify
"u" #'cj/unarrayify
"l" #'cj/listify
"j" #'cj/arrayify-json
"p" #'cj/arrayify-python
"A" #'cj/alphabetize-region
"L" #'cj/comma-separated-text-to-lines)
(keymap-set cj/custom-keymap "o" cj/ordering-map)
(with-eval-after-load 'which-key
(which-key-add-key-based-replacements "C-; o" "ordering/sorting menu"))
(provide 'custom-ordering)
;;; custom-ordering.el ends here.
|
