Re: Use tab key to indent both region AND line?

[Lennart Borgman (gmail)]

Lennart Borgman (gmail) wrote:
> weber wrote:
>
> > (defun indent-line-or-region ()
> >   "indent line or region"
> >   (interactive)
> >   (if mark-active   ;; there is a region selected
> >       (indent-region)
> >       (indent-according-to-mode))) ;; indent line
> >
> > Just bind it to tab.
> >
> > Hope i could help you,
> > -weber
>
>
> And here is something that can be used:
>
> ;; From an idea by weber <hugows@gmail.com>
> (defun indent-line-or-region ()
>   "indent line or region"
>   (interactive)
>   (if mark-active ;; there is a region selected
>       (indent-region (region-beginning) (region-end))
>     (indent-according-to-mode))) ;; indent line
>
> (define-minor-mode indent-line-mode
>   "Use TAB to indent line and region."
>   :global t
>   :keymap '(([tab] . indent-line-or-region)))
> (when indent-line-mode (indent-line-mode 1))


And here is something that can actually be used ;-)

After using the above for some minutes I realized that you do not want 
to indent in all buffers. Here is a heuristic solution to that problem:

;; From an idea by weber <hugows@gmail.com>
(defun indent-line-or-region ()
  "indent line or region"
  (interactive)
  ;; Do a wild guess if we should indent or not ...
  (let* ((indent-line-mode)
         (t-bound (key-binding [?\t]))
         (do-indent)
        )
    (if (not
         (save-match-data
           (string-match "indent" (symbol-name t-bound))))
        (call-interactively t-bound t)
      (if mark-active ;; there is a region selected
          (indent-region (region-beginning) (region-end))
        (indent-according-to-mode))))) ;; indent line

(define-minor-mode indent-line-mode
  "Use TAB to indent line and region."
  :global t
  :keymap '(([?\t] . indent-line-or-region)))
(when indent-line-mode (indent-line-mode 1))