From 4dc12a820d994e6daf1e671f6681dd2893f86ea9 Mon Sep 17 00:00:00 2001 From: Andros Fenollosa Date: Mon, 12 Jun 2023 11:55:20 +0200 Subject: [PATCH] Fix line 80 characters --- format-region.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/format-region.el b/format-region.el index cdea66c..4bd20ac 100644 --- a/format-region.el +++ b/format-region.el @@ -7,7 +7,7 @@ ;; SPDX-License-Identifier: GPL-3.0-or-later ;;; Commentary: -;; Transform region in different formats: camelCase, kebab-case or lisp-case, PascalCase and snake_case. +;; Transform region words to: camelCase, lisp-case, PascalCase and snake_case. ;;; Code: @@ -24,7 +24,7 @@ if all words should be capitalized." (let* ((words-lower-case (downcase sentence)) ; To lowercase (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 - (sentence-with-new-separator (mapconcat 'identity words-case separator)) ; Join words with separator + (sentence-with-new-separator (mapconcat #'identity words-case separator)) ; Join words with separator (sentence-with-first-word-capitalized (if is-first-word-capitalized sentence-with-new-separator (concat (downcase (substring sentence-with-new-separator 0 1)) (substring sentence-with-new-separator 1)))) ; Capitalize first letter of first word ) sentence-with-first-word-capitalized))