(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)

  	       ;; Decorators
  	       (group (group (* space)) "@"))))
      (ve/outline-overview))

                   ;; Decorators
                   (group (group (* space)) "@"))))
          )

    :config
    (setq tcl-indent-level 4
          tcl-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 4
              tcl-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)

    :hook (tcl-mode . yas-minor-mode)
    (tcl-mode . flycheck-mode)
    (tcl-mode . hs-minor-mode)
    )

        :hook (tcl-mode . yas-minor-mode)
        (tcl-mode . flycheck-mode)
        (tcl-mode . hs-minor-mode)
        (tcl-mode . outline-minor-mode)
        )

    "C-z"      '(inferior-tcl         :wk "REPL")
    "l"        '(list-flycheck-errors :wk "diagnostics")

    "sb"       '(mark-whole-buffer :wk "buffer")
    "sf"       '(mark-function :wk "function")

    "sf"       '(mark-function    :wk "function")

    "f"        '(:ignore t :which-key "folding")
    "f>"       '(hs-show-block :wk "show block")
    "f<"       '(hs-hide-block :wk "hide block")
    "ft"       '(hs-toggle-hiding :wk "toggle block visibility")
    "fs"       '(hs-show-all   :wk "show all")
    "fl"       '(hs-hide-level   :wk "hide level")