From a3136c192ab889797e19fef1812076608912fab1 Mon Sep 17 00:00:00 2001 From: Andros Fenollosa Date: Fri, 2 Jun 2023 17:59:21 +0200 Subject: [PATCH] Add first version --- transform-texts-to-formats.el | 41 +++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 transform-texts-to-formats.el diff --git a/transform-texts-to-formats.el b/transform-texts-to-formats.el new file mode 100644 index 0000000..69980e8 --- /dev/null +++ b/transform-texts-to-formats.el @@ -0,0 +1,41 @@ +;;; transform-texts-to-formats.el --- Convert plain text into different formats: camelCase, kebap-case or lisp-case, PascalCase or snake_case. +;; +;; Copyright © 2023 Andros Fenollosa +;; Authors: Andros Fenollosa +;; URL: https://github.com/tanrax/transform-texts-to-formats.el +;; Version: 1.0.0 +;; 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. + +;;; Code: + + +(defun to-format (sentence separator is-first-word-capitalized is-all-words-capitalized) + "Convert SENTENCE to format. +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-ALL-WORDS-CAPITALIZED is a boolean that indicates 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 (when is-all-words-capitalized (mapcar #'capitalize words))) ; Capitalize first letter of each word + (sentence-with-new-separator (mapconcat 'identity words-case separator)) ; Join words with separator + (sentence-with-first-word-capitalized (when is-first-word-capitalized (capitalize sentence-with-new-separator))) ; Capitalize first letter of first word + ) + sentence-with-first-word-capitalized)) + + +(defmacro curried-format (separator is-first-word-capitalized is-all-words-capitalized) + "Curry the function to-format with SEPARATOR, IS-FIRST-WORD-CAPITALIZED and IS-ALL-WORDS-CAPITALIZED." + `(lambda (sentence) (to-format sentence ,separator ,is-first-word-capitalized ,is-all-words-capitalized))) + +;; Define functions +(setq to-camel-case (curried-format nil nil t)) ; camelCase +(setq to-kebab-case (curried-format ?- nil nil)) ; kebab-case +(setq to-pascal-case (curried-format nil t t)) ; PascalCase +(setq to-snake-case (curried-format ?_ nil nil)) ; snake_case + +(message "%s" (funcall to-camel-case "hola que tal")) + +;;; transform-texts-to-formats.el ends here