andros/format-region.el
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix some lines are over 80 columns wide

Browse Source
This commit is contained in:
Andros Fenollosa 2023-06-04 22:08:53 +02:00
parent 8daa17bfd0
commit 3e476d7eb3
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
format-region.el
View File

@ -11,11 +11,16 @@
;;; Code: ;;; Code:
(defun format-region-to-format (sentence separator is-first-word-capitalized is-all-words-capitalized) (defun format-region-to-format (sentence
separator
is-first-word-capitalized
is-all-words-capitalized)
"Convert SENTENCE to format. "Convert SENTENCE to format.
SEPARATOR is the character that will separate the words. SEPARATOR is the character that will separate the words.
IS-FIRST-WORD-CAPITALIZED is a boolean that indicates if the first word should be capitalized. IS-FIRST-WORD-CAPITALIZED is a boolean that indicates
IS-ALL-WORDS-CAPITALIZED is a boolean that indicates if all words should be capitalized." if the first word should be capitalized.
IS-ALL-WORDS-CAPITALIZED is a boolean that indicates
if all words should be capitalized."
(let* ((words-lower-case (downcase sentence)) ; To lowercase (let* ((words-lower-case (downcase sentence)) ; To lowercase
(words (split-string words-lower-case " ")) ; Split sentence into words by spaces (words (split-string words-lower-case " ")) ; Split sentence into words by spaces
(words-case (if is-all-words-capitalized (mapcar #'capitalize words) words)) ; Capitalize first letter of each word (words-case (if is-all-words-capitalized (mapcar #'capitalize words) words)) ; Capitalize first letter of each word
@ -50,12 +55,12 @@ IS-ALL-WORDS-CAPITALIZED is a boolean that indicates if all words should be capi
(format-region-selected format-region-to-format-camel-case)) (format-region-selected format-region-to-format-camel-case))
(defun format-region-to-kebab-case () (defun format-region-to-kebab-case ()
"Convert the selected text to kebab-case or lisp-case." "Convert the selected text to `kebab-case' or lisp-case."
(interactive) (interactive)
(format-region-selected format-region-to-format-kebab-case)) (format-region-selected format-region-to-format-kebab-case))
(defun format-region-to-lisp-case () (defun format-region-to-lisp-case ()
"Convert the selected text to kebab-case or lisp-case." "Convert the selected text to `kebab-case' or lisp-case."
(interactive) (interactive)
(format-region-selected format-region-to-format-kebab-case)) (format-region-selected format-region-to-format-kebab-case))