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

Rename file

Browse Source
This commit is contained in:
Andros Fenollosa 2023-06-02 18:17:35 +02:00
parent c9b381656a
commit 80e0128b42
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
transform-texts-to-formats.el → format-region.el
View File

@ -1,4 +1,4 @@
;;; transform-texts-to-formats.el --- Convert plain text into different formats: camelCase, kebap-case or lisp-case, PascalCase or snake_case. ;;; format-region.el --- Transform region in different formats: camelCase, kebap-case or lisp-case, PascalCase or snake_case.
;; ;;
;; Copyright © 2023 Andros Fenollosa ;; Copyright © 2023 Andros Fenollosa
;; Authors: Andros Fenollosa <andros@fenollosa.email> ;; Authors: Andros Fenollosa <andros@fenollosa.email>
@ -7,7 +7,7 @@
;; SPDX-License-Identifier: GNU General Public License v3.0 or later ;; SPDX-License-Identifier: GNU General Public License v3.0 or later
;;; Commentary: ;;; Commentary:
;; Convert plain text into different formats: camelCase, kebap-case or lisp-case, PascalCase or snake_case. ;; Transform region in different formats: camelCase, kebap-case or lisp-case, PascalCase or snake_case.
;;; Code: ;;; Code:
@ -38,21 +38,21 @@ IS-ALL-WORDS-CAPITALIZED is a boolean that indicates if all words should be capi
;; Interactive functions ;; Interactive functions
(defun format-to-camel-case () (defun format-to-camel-case-region ()
"Convert the selected text to camelCase." "Convert the selected text to camelCase."
(interactive) (interactive)
(let ((text (buffer-substring-no-properties (region-beginning) (region-end)))) (let ((text (buffer-substring-no-properties (region-beginning) (region-end))))
(delete-region (region-beginning) (region-end)) (delete-region (region-beginning) (region-end))
(insert (funcall to-camel-case text)))) (insert (funcall to-camel-case text))))
(defun format-to-kebab-case () (defun format-to-kebab-case-region ()
"Convert the selected text to kebab-case." "Convert the selected text to kebab-case."
(interactive) (interactive)
(let ((text (buffer-substring-no-properties (region-beginning) (region-end)))) (let ((text (buffer-substring-no-properties (region-beginning) (region-end))))
(delete-region (region-beginning) (region-end)) (delete-region (region-beginning) (region-end))
(insert (funcall to-kebab-case text)))) (insert (funcall to-kebab-case text))))
(defun format-to-pascal-case () (defun format-to-pascal-case-region ()
"Convert the selected text to PascalCase." "Convert the selected text to PascalCase."
(interactive) (interactive)
(let ((text (buffer-substring-no-properties (region-beginning) (region-end)))) (let ((text (buffer-substring-no-properties (region-beginning) (region-end))))