ﷲ
# AR-RAHMAN: , AR-RAHEEM #
LISP
------------
(defun xah-change-bracket-pairs (FromChars ToChars)
"[DOCSTRING]...
URL `http://xahlee.info/emacs/emacs/elisp_change_brackets.html'
Created: 2020-11-01
Version: 2025-03-25"
(interactive
(let ((xbrackets
'(
"square [ ]" "brace { }"
"paren ( )" "less greater than < >"
;; [STRING].. [STRING]..
;; [STRING]..
"none "
)))
(let ((completion-ignore-case t))
(list
(completing-read "Replace this:" xbrackets nil t nil nil (car xbrackets))
(completing-read "To:" xbrackets nil t nil nil (car (last xbrackets)))))))
(let (xbeg xend xleft xright xtoL xtoR)
(seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point))))))
(let ((xsFrom (last (split-string FromChars " ") 2))
(xsTo (last (split-string ToChars " ") 2)))
(setq xleft (car xsFrom) xright (car (cdr xsFrom))
xtoL (car xsTo) xtoR (car (cdr xsTo)))
(save-excursion
(save-restriction
(narrow-to-region xbeg xend)
(let ((case-fold-search nil))
(if (string-equal xleft xright)
(let ((xx (regexp-quote xleft)))
(goto-char (point-min))
(while
(re-search-forward
(format "%s\\([^%s]+?\\)%s" xx xx xx)
nil t)
(overlay-put (make-overlay (match-beginning 0) (match-end 0)) 'face 'highlight)
(replace-match (concat xtoL "\\1" xtoR) t)))
(progn
(progn
(goto-char (point-min))
(while (search-forward xleft nil t)
(overlay-put (make-overlay (match-beginning 0) (match-end 0)) 'face 'highlight)
(replace-match xtoL t t)))
(progn
(goto-char (point-min))
(while (search-forward xright nil t)
(overlay-put (make-overlay (match-beginning 0) (match-end 0)) 'face 'highlight)
(replace-match xtoR t t)))))))))))
LISP
------------
(defun xah-change-bracket-pairs (FromChars ToChars)
"Change bracket pairs to another type or none.
For example, change all parenthesis () to square brackets [].
Works on current block or selection.
In lisp code, FromChars is a string with at least 2 spaces.
e.g.
paren ( )
french angle ‹ ›
double bracket [[ ]]
etc.
It is split by space, and last 2 items are taken as left and right brackets.
ToChars is similar, with a special value of
none
followed by 2 spaces.
,it means replace by empty string.
URL `http://xahlee.info/emacs/emacs/elisp_change_brackets.html'
Created: 2020-11-01
Version: 2025-03-25"
(interactive
(let ((xbrackets
'(
"square [ ]"
"brace { }"
"paren ( )"
"less greater than < >"
"QUOTATION MARK \" \""
"APOSTROPHE ' '"
"emacs ` '"
"GRAVE ACCENT ` `"
"double square [[ ]]"
"tilde ~ ~"
"equal = ="
"double curly quote “ ”"
"single curly quote ‘ ’"
"french angle quote ‹ ›"
"french double angle « »"
"corner 「 」"
"white corner 『 』"
"lenticular 【 】"
"white lenticular 〖 〗"
"title angle 〈 〉"
"double angle 《 》"
"tortoise 〔 〕"
"white tortoise 〘 〙"
"white square 〚 〛"
"white paren ⦅ ⦆"
"white curly bracket ⦃ ⦄"
"pointing angle 〈 〉"
"angle with dot ⦑ ⦒"
"curved angle ⧼ ⧽"
"math square ⟦ ⟧"
"math angle ⟨ ⟩"
"math double angle ⟪ ⟫"
"math flattened parenthesis ⟮ ⟯"
"math white tortoise shell ⟬ ⟭"
"heavy single quotation mark ornament ❛ ❜"
"heavy double turned comma quotation mark ornament ❝ ❞"
"medium parenthesis ornament ❨ ❩"
"medium flattened parenthesis ornament ❪ ❫"
"medium curly ornament ❴ ❵"
"medium pointing angle ornament ❬ ❭"
"heavy pointing angle quotation mark ornament ❮ ❯"
"heavy pointing angle ornament ❰ ❱"
"none "
)))
(let ((completion-ignore-case t))
(list
(completing-read "Replace this:" xbrackets nil t nil nil (car xbrackets))
(completing-read "To:" xbrackets nil t nil nil (car (last xbrackets)))))))
(let (xbeg xend xleft xright xtoL xtoR)
(seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point))))))
(let ((xsFrom (last (split-string FromChars " ") 2))
(xsTo (last (split-string ToChars " ") 2)))
;; (when (< (length xsFrom) 3)
;; (error "cannot find input brackets %s" xsFrom))
;; (when (< (length xsTo) 3)
;; (message "replace blacket is empty string")
;; (setq xsTo (list "" "" "")))
(setq xleft (car xsFrom) xright (car (cdr xsFrom))
xtoL (car xsTo) xtoR (car (cdr xsTo)))
(save-excursion
(save-restriction
(narrow-to-region xbeg xend)
(let ((case-fold-search nil))
(if (string-equal xleft xright)
(let ((xx (regexp-quote xleft)))
(goto-char (point-min))
(while
(re-search-forward
(format "%s\\([^%s]+?\\)%s" xx xx xx)
nil t)
(overlay-put (make-overlay (match-beginning 0) (match-end 0)) 'face 'highlight)
(replace-match (concat xtoL "\\1" xtoR) t)))
(progn
(progn
(goto-char (point-min))
(while (search-forward xleft nil t)
(overlay-put (make-overlay (match-beginning 0) (match-end 0)) 'face 'highlight)
(replace-match xtoL t t)))
(progn
(goto-char (point-min))
(while (search-forward xright nil t)
(overlay-put (make-overlay (match-beginning 0) (match-end 0)) 'face 'highlight)
(replace-match xtoR t t)))))))))))
(defun xah-make-backup ()
"Make a backup copy of current file or dired marked files.
If in dired, backup current file or marked files.
The backup file name is in this format
x.html~2018-05-15_133429~
The last part is hour, minutes, seconds.
Overwrite existing file.
If the current buffer is not associated with a file, nothing's done.
URL `http://xahlee.info/emacs/emacs/elisp_make-backup.html'
Created: 2018-07-07
Version: 2024-04-21"
(interactive)
(let ((xfname buffer-file-name)
(xdateTimeFormat "%Y-%m-%d_%H%M%S"))
(if xfname
(let ((xbackupName
(concat xfname "~" (format-time-string xdateTimeFormat) "~")))
(copy-file xfname xbackupName t)
(message (concat "\nBackup saved at: " xbackupName)))
(if (eq major-mode 'dired-mode)
(progn
(mapc (lambda (xx)
(let ((xbackupName
(concat xx "~" (format-time-string xdateTimeFormat) "~")))
(copy-file xx xbackupName t)))
(dired-get-marked-files))
(revert-buffer))
(user-error "%s: buffer not file nor dired" real-this-command)))))
(defun xah-toggle-letter-case ()
"Toggle the letter case of current word or selection.
Always cycle in this order: Init Caps, ALL CAPS, all lower.
URL `http://xahlee.info/emacs/emacs/emacs_toggle_letter_case.html'
Version: 2020-06-26 2023-11-14"
(interactive)
(let ( (deactivate-mark nil) xp1 xp2)
(if (region-active-p)
(setq xp1 (region-beginning) xp2 (region-end))
(save-excursion
(skip-chars-backward "[:alpha:]")
(setq xp1 (point))
(skip-chars-forward "[:alpha:]")
(setq xp2 (point))))
(when (not (eq last-command this-command))
(put this-command 'state 0))
(cond
((equal 0 (get this-command 'state))
(upcase-initials-region xp1 xp2)
(put this-command 'state 1))
((equal 1 (get this-command 'state))
(upcase-region xp1 xp2)
(put this-command 'state 2))
((equal 2 (get this-command 'state))
(downcase-region xp1 xp2)
(put this-command 'state 0)))))Language:Clojure