QDGAQQPHUSYJ47J7XQIJLYZGYJ5H43MIYJ2GEDRVQ7OTMM2OZIUAC (use-package tcl:mode (("\\.tcl\\'" . tcl-mode)("\\.tcons\\'" . tcl-mode)("\\.svcf\\'" . tcl-mode)("\\.exp\\'" . tcl-mode)):bind(:map tcl-mode-map("C-c C-z" . inferior-tcl)("C-+" . er/expand-region)("C-<return>" . ve/tcl-eval-region-or-line)("C-S-<return>" . tcl-eval-defun)("<tab>" . completion-at-point)("C-c C-t" . nil)
(use-package tcl:mode (("\\.tcl\\'" . tcl-mode)("\\.tcons\\'" . tcl-mode)("\\.svcf\\'" . tcl-mode)("\\.exp\\'" . tcl-mode)):bind(:map tcl-mode-map("C-c C-z" . inferior-tcl)("<tab>" . hs-global-cycle)("<backtab>" . hs-toggle-hiding)("C-<return>" . ve/tcl-eval-region-or-line)("C-S-<return>" . tcl-eval-defun);; ("<tab>" . completion-at-point)("<f3>" . list-flycheck-errors)("C-c C-t" . nil)):init(env-setup "tcl")(defun ve/tcl-eval-buffer ()(interactive)(message "buffer")(tcl-eval-region (point-min) (point-max))(keyboard-quit)
:init(env-setup "tcl")(defun ve/tcl-eval-buffer ()(interactive)(message "buffer")(tcl-eval-region (point-min) (point-max))(keyboard-quit))(defun ve/tcl-eval-region-or-line ()(interactive)(if (region-active-p)(tcl-eval-region (region-beginning) (region-end))(tcl-eval-region (progn(beginning-of-line) (point))(progn(end-of-line) (point))))(keyboard-quit))(defun ve/tcl-mode-customization ()"My customization for `tcl-mode'."(add-to-list 'completion-at-point-functions #'cape-keyword)(add-to-list 'completion-at-point-functions #'cape-dabbrev))(defun ve/outline-tcl ()"Fold only definitions for TCL buffers."(setq outline-regexp(rx (or;; Definitions(group (group (* space)) bow (or "proc" "namespace") eow)
(defun ve/tcl-eval-region-or-line ()(interactive)(if (region-active-p)(tcl-eval-region (region-beginning) (region-end))(tcl-eval-region (progn(beginning-of-line) (point))(progn(end-of-line) (point))))(keyboard-quit))(defun ve/tcl-mode-customization ()"My customization for `tcl-mode'."(add-to-list 'completion-at-point-functions #'cape-keyword)(add-to-list 'completion-at-point-functions #'cape-dabbrev))(defun ve/outline-tcl ()"Fold only definitions for TCL buffers."(setq outline-regexp(rx (or;; Definitions(group (group (* space)) bow (or "proc" "namespace") eow)
:config(setq tcl-indent-level 4tcl-continued-indent-level 8)(setq tcl-application "wish") ;; jimsh tclsh wish(setq flycheck-check-syntax-automatically '(save mode-enabled))(setq tcl-help-directory-list '("/usr/lib/tclx8.6/help"))(add-hook 'tcl-mode-hook #'ve/tcl-mode-customization)(add-hook 'tcl-mode-hook #'electric-pair-mode)(add-hook 'tcl-mode-hook #'electric-indent-mode)
:config(setq tcl-indent-level 4tcl-continued-indent-level 8)(setq tcl-application "tclsh") ;; jimsh tclsh wish(setq flycheck-check-syntax-automatically '(save mode-enabled))(setq tcl-help-directory-list '("/usr/lib/tclx8.6/help"))(add-hook 'tcl-mode-hook #'ve/tcl-mode-customization)(add-hook 'tcl-mode-hook #'ve/outline-tcl)(add-hook 'tcl-mode-hook #'electric-pair-mode)(add-hook 'tcl-mode-hook #'electric-indent-mode)