gortium/krl-mode
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added ajustable indentation

Browse Source
This commit is contained in:
Thierry Pouplier
2025-09-18 17:13:19 -04:00
parent 76876287c7
commit 0bf9667e3a
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
krl-mode.el
View File

@@ -4,6 +4,8 @@
(define-key map "\C-j" 'newline-and-indent) (define-key map "\C-j" 'newline-and-indent)
map) map)
"Keymap for KRL major mode") "Keymap for KRL major mode")
(defvar krl-indent-offset 2
"Indentation step for nested KRL blocks.")
(add-to-list 'auto-mode-alist '("\\.src\\'" . krl-mode)) (add-to-list 'auto-mode-alist '("\\.src\\'" . krl-mode))
(add-to-list 'auto-mode-alist '("\\.dat\\'" . krl-mode)) (add-to-list 'auto-mode-alist '("\\.dat\\'" . krl-mode))
@@ -267,13 +269,13 @@
(setq ind 0)) (setq ind 0))
((looking-at krl-indent-regex-toplevel-block-open) ((looking-at krl-indent-regex-toplevel-block-open)
;(message "found tlb open") ;(message "found tlb open")
(setq ind (+ 2 (current-indentation)))) (setq ind (+ krl-indent-offset (current-indentation))))
((looking-at krl-indent-regex-nested-block-close) ((looking-at krl-indent-regex-nested-block-close)
;(message "found nb close") ;(message "found nb close")
(setq ind (current-indentation))) (setq ind (current-indentation)))
((looking-at krl-indent-regex-nested-block-open) ((looking-at krl-indent-regex-nested-block-open)
;(message "found nb open") ;(message "found nb open")
(setq ind (+ 2 (current-indentation)))) (setq ind (+ krl-indent-offset (current-indentation))))
(t (t
;(message "found other") ;(message "found other")
) )