emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/kotlin-mode ed5bb641a9 073/162: makes tab-width configurab


From: ELPA Syncer
Subject: [nongnu] elpa/kotlin-mode ed5bb641a9 073/162: makes tab-width configurable
Date: Sat, 29 Jan 2022 08:25:24 -0500 (EST)

branch: elpa/kotlin-mode
commit ed5bb641a967df6464b5c43a688d8fc3febe13c1
Author: Gregg Hernandez <gregg@lucidchart.com>
Commit: Gregg Hernandez <gregg@lucidchart.com>

    makes tab-width configurable
---
 kotlin-mode.el | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/kotlin-mode.el b/kotlin-mode.el
index f2012bcb2a..44784cf845 100644
--- a/kotlin-mode.el
+++ b/kotlin-mode.el
@@ -27,6 +27,16 @@
 
 (require 'rx)
 
+(defgroup kotlin nil
+  "A Kotlin major mode."
+  :group 'languages)
+
+(defcustom kotlin-tab-width default-tab-width
+  "The tab width to use for indentation."
+  :type 'integer
+  :group 'kotlin-mode
+  :safe 'integerp)
+
 (defvar kotlin-mode-map
   (let ((map (make-keymap)))
     (define-key map (kbd "<tab>") 'c-indent-line-or-region)
@@ -221,14 +231,14 @@
       (cond ((looking-at "^[ \t]*}")
              (save-excursion
                (forward-line -1)
-               (setq cur-indent (- (current-indentation) default-tab-width)))
+               (setq cur-indent (- (current-indentation) kotlin-tab-width)))
              (if (< cur-indent 0)
                  (setq cur-indent 0)))
 
             ((looking-at "^[ \t]*)")
              (save-excursion
                (forward-line -1)
-               (setq cur-indent (- (current-indentation) (* 2 
default-tab-width))))
+               (setq cur-indent (- (current-indentation) (* 2 
kotlin-tab-width))))
              (if (< cur-indent 0)
                  (setq cur-indent 0)))
 
@@ -237,7 +247,7 @@
                (while not-indented
                  (forward-line -1)
                  (cond ((looking-at ".*{[ \t]*$") ; 4.)
-                        (setq cur-indent (+ (current-indentation) 
default-tab-width))
+                        (setq cur-indent (+ (current-indentation) 
kotlin-tab-width))
                         (setq not-indented nil))
 
                        ((looking-at "^[ \t]*}") ; 3.)
@@ -245,11 +255,11 @@
                         (setq not-indented nil))
 
                        ((looking-at ".*{.*->[ \t]*$")
-                        (setq cur-indent (+ (current-indentation) 
default-tab-width))
+                        (setq cur-indent (+ (current-indentation) 
kotlin-tab-width))
                         (setq not-indented nil))
 
                        ((looking-at ".*([ \t]*$")
-                        (setq cur-indent (+ (current-indentation) (* 2 
default-tab-width)))
+                        (setq cur-indent (+ (current-indentation) (* 2 
kotlin-tab-width)))
                         (setq not-indented nil))
 
                        ((looking-at "^[ \t]*).*$")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]