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

Update setq to defvar

Browse Source
This commit is contained in:
Andros Fenollosa 2023-06-04 22:12:31 +02:00
parent 04bf04f772
commit a06b9cb2e7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
format-region.el
View File

@ -35,10 +35,10 @@ if all words should be capitalized."
`(lambda (sentence) (format-region-to-format sentence ,separator ,is-first-word-capitalized ,is-all-words-capitalized)))
;; Define functions
(setq format-region-to-format-camel-case (format-region-curried nil nil t)) ; camelCase
(setq format-region-to-format-kebab-case (format-region-curried "-" nil nil)) ; kebab-case or lisp-case
(setq format-region-to-format-pascal-case (format-region-curried nil t t)) ; PascalCase
(setq format-region-to-format-snake-case (format-region-curried "_" nil nil)) ; snake_case
(defvar format-region-to-format-camel-case (format-region-curried nil nil t)) ; camelCase
(defvar format-region-to-format-kebab-case (format-region-curried "-" nil nil)) ; kebab-case or lisp-case
(defvar format-region-to-format-pascal-case (format-region-curried nil t t)) ; PascalCase
(defvar format-region-to-format-snake-case (format-region-curried "_" nil nil)) ; snake_case
(defun format-region-selected (fn-format)
"Format the selected region with FN-FORMAT."