From 80e0128b42ce61032834dbd47eed636230221ed6 Mon Sep 17 00:00:00 2001 From: Andros Fenollosa Date: Fri, 2 Jun 2023 18:17:35 +0200 Subject: [PATCH] Rename file --- transform-texts-to-formats.el => format-region.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) rename transform-texts-to-formats.el => format-region.el (88%) diff --git a/transform-texts-to-formats.el b/format-region.el similarity index 88% rename from transform-texts-to-formats.el rename to format-region.el index fb24f15..82cc271 100644 --- a/transform-texts-to-formats.el +++ b/format-region.el @@ -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 ;; Authors: Andros Fenollosa @@ -7,7 +7,7 @@ ;; SPDX-License-Identifier: GNU General Public License v3.0 or later ;;; 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: @@ -38,21 +38,21 @@ IS-ALL-WORDS-CAPITALIZED is a boolean that indicates if all words should be capi ;; Interactive functions -(defun format-to-camel-case () +(defun format-to-camel-case-region () "Convert the selected text to camelCase." (interactive) (let ((text (buffer-substring-no-properties (region-beginning) (region-end)))) (delete-region (region-beginning) (region-end)) (insert (funcall to-camel-case text)))) -(defun format-to-kebab-case () +(defun format-to-kebab-case-region () "Convert the selected text to kebab-case." (interactive) (let ((text (buffer-substring-no-properties (region-beginning) (region-end)))) (delete-region (region-beginning) (region-end)) (insert (funcall to-kebab-case text)))) -(defun format-to-pascal-case () +(defun format-to-pascal-case-region () "Convert the selected text to PascalCase." (interactive) (let ((text (buffer-substring-no-properties (region-beginning) (region-end))))