branch: externals/altcaps
commit 87aee2628762f3938bee6791e8b7c5414fe9f6cb
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Simplify altcaps-transform
It probably is the same I had before this last series of tweaks...
---
altcaps.el | 15 ++++++---------
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git a/altcaps.el b/altcaps.el
index 802b649e0e..bdf3684517 100644
--- a/altcaps.el
+++ b/altcaps.el
@@ -135,21 +135,18 @@ Respect the preferred casing for characters in the user
option
(casing nil)
(processed-characters nil))
(dolist (character characters)
- (let ((alpha-p (string-match-p "[[:alpha:]]" character)))
+ (when (string-match-p "[[:alpha:]]" character)
(cond
- ((when-let* (alpha-p
- (force-case (alist-get character
altcaps-force-character-casing nil nil #'equal)))
+ ((when-let* ((force-case (alist-get character
altcaps-force-character-casing nil nil #'equal)))
(setq character (funcall force-case character)
casing force-case)))
- ((and alpha-p (eq casing 'downcase))
+ ((eq casing 'downcase)
(setq character (upcase character)
casing 'upcase))
- (alpha-p
- (setq character (downcase character)
- casing 'downcase))
(t
- (setq casing nil)))
- (push character processed-characters)))
+ (setq character (downcase character)
+ casing 'downcase))))
+ (push character processed-characters))
(apply #'concat (nreverse processed-characters))))
(defun altcaps-replace-region (beginning end string)
