Use tab key to indent both region AND line?

Use tab key to indent both region AND line?

[mopi]

Hi

I'm feeling a little lost when it comes to indentation and Emacs.

If there is a region marked I want the tab key to indent the region.
Shift-tab would preferably unindent the region. But if there is no
region marked I want tab to indent the current line. This is the
default behaviour in e.g Visual Studio and Ultraedit so I'm sure there
is someone out there who has some code snippets to share.

Thanks in advance.

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

[Denis Bueno]

On 20 Apr 2007 05:10:40 -0700, mopi <52hands@gmail.com> wrote:
> If there is a region marked I want the tab key to indent the region.
> Shift-tab would preferably unindent the region. But if there is no

This is perhaps a good idea. However, C-M-\ is a workaround which will
indent when a region is selected

-Denis

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

[Livin Stephen Sharma]

and
C-c C-q will "Indent the current top-level declaration or macro  
syntactically."
  (i.e. indent current function).

On 20-Apr-07, at 18:15 , Denis Bueno wrote:

> On 20 Apr 2007 05:10:40 -0700, mopi <52hands@gmail.com> wrote:
>> If there is a region marked I want the tab key to indent the region.
>> Shift-tab would preferably unindent the region. But if there is no
>
> This is perhaps a good idea. However, C-M-\ is a workaround which will
> indent when a region is selected
>
> -Denis
>
>
> _______________________________________________
> help-gnu-emacs mailing list
> help-gnu-emacs@gnu.org
> http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

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

[weber]

On 20 abr, 10:58, Livin Stephen Sharma <livin.step...@gmail.com>
wrote:
> and
> C-c C-q will "Indent the current top-level declaration or macro
> syntactically."
>   (i.e. indent current function).
>
> On 20-Apr-07, at 18:15 , Denis Bueno wrote:
>
> > On 20 Apr 2007 05:10:40 -0700, mopi <52ha...@gmail.com> wrote:
> >> If there is a region marked I want the tab key to indent the region.
> >> Shift-tab would preferably unindent the region. But if there is no
>
> > This is perhaps a good idea. However, C-M-\ is a workaround which will
> > indent when a region is selected
>
> > -Denis
>
> > _______________________________________________
> > help-gnu-emacs mailing list
> > help-gnu-em...@gnu.org
> >http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

What do you mean to indent a region? Let emacs indent it or insert a
tab in the beginning of each selected line ?

In the first case, this should get you started:

(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

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

[Lennart Borgman (gmail)]

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

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

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

[mopi]

On Apr 20, 7:16 pm, "Lennart Borgman (gmail)"
<lennart.borg...@gmail.com> wrote:
> And here is something that can be used:
>
> ;; From an idea by weber <hug...@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))


Thank you very much!
I changed it slightly to use indent-rigidly:

(defun indent-line-or-region ()
   "indent line or region"
   (interactive)
   (if mark-active ;; there is a region selected
       (indent-rigidly (region-beginning) (region-end) 4)
     (indent-according-to-mode))) ;; indent line

Is there a way to make it keep the region? Now after I press tab the
region is lost so I can't repeat the indentation without reselecting
the region.

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

[mopi]

Wohoo!

I found this little thing in easymacs.el that does exactly what I
want.


(defun easymacs-rigidly-indent-line-or-region ()
  (interactive)
  (if mark-active
(increase-left-margin (region-beginning) (region-end) nil)
    (increase-left-margin (point-at-bol) (point-at-eol) nil))
  (setq deactivate-mark nil))

(defun easymacs-rigidly-unindent-line-or-region ()
  (interactive)
  (if mark-active
(decrease-left-margin (region-beginning) (region-end) nil)
    (decrease-left-margin (point-at-bol) (point-at-eol) nil))
  (setq deactivate-mark nil))

(global-set-key [tab]       'easymacs-rigidly-indent-line-or-region)
(global-set-key [S-tab]       'easymacs-rigidly-unindent-line-or-
region)

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

[weber]

On Apr 20, 4:07 pm, mopi <52ha...@gmail.com> wrote:
> Wohoo!
>
> I found this little thing in easymacs.el that does exactly what I
> want.
>
> (defun easymacs-rigidly-indent-line-or-region ()
>   (interactive)
>   (if mark-active
> (increase-left-margin (region-beginning) (region-end) nil)
>     (increase-left-margin (point-at-bol) (point-at-eol) nil))
>   (setq deactivate-mark nil))
>
> (defun easymacs-rigidly-unindent-line-or-region ()
>   (interactive)
>   (if mark-active
> (decrease-left-margin (region-beginning) (region-end) nil)
>     (decrease-left-margin (point-at-bol) (point-at-eol) nil))
>   (setq deactivate-mark nil))
>
> (global-set-key [tab]       'easymacs-rigidly-indent-line-or-region)
> (global-set-key [S-tab]       'easymacs-rigidly-unindent-line-or-
> region)

Hummm I want that also :)