Indent first line of each paragraph of file in one hit

Indent first line of each paragraph of file in one hit

[Rodolfo Medina]

Hi to all Emacs users.

Suppose you have a large file, in which the first line of each paragraph is not
indented; and want it to be with one single command for the whole file.  Is
that possible, and how?

Thanks for any help,

Rodolfo

Re: Indent first line of each paragraph of file in one hit

[Andreas Röhler]

On 24.11.2016 21:18, Rodolfo Medina wrote:
> Hi to all Emacs users.
>
> Suppose you have a large file, in which the first line of each paragraph is not
> indented; and want it to be with one single command for the whole file.  Is
> that possible, and how?
>
> Thanks for any help,
>
> Rodolfo
>

Don't see a library ready to it. But yes, it would be possible to fill 
the first line, then proceed with the remaining paragraph, jump to the 
next. A keybord-macro might do it already.

Indent first line of each paragraph of file in one hit

[Rodolfo Medina]

Hi to all Emacs users.

Suppose you have a large file, in which the first line of each paragraph is not
indented; and want it to be with one single command for the whole file.  Is
that possible, and how?

Thanks for any help,

Rodolfo

Re: Indent first line of each paragraph of file in one hit

[Rodolfo Medina]

Rodolfo Medina <rodolfo.medina@gmail.com> writes:

> Suppose you have a large file, in which the first line of each paragraph is
> not indented; and want it to be with one single command for the whole file.
> Is that possible, and how?


Sorry for multiple posting, I thought my message had not been delivered to the
list because of technical problems.

Rodolfo

Re: Indent first line of each paragraph of file in one hit

[Konstantin Shakhnov]

On Thu, Nov 24, 2016 at 03:35:12PM +0000, Rodolfo Medina wrote:
> Suppose you have a large file, in which the first line of each paragraph is not
> indented; and want it to be with one single command for the whole file.  Is
> that possible, and how?

I'm not great lisp master, but this dirty sketches works (just replace
">>>>" to what you need at the beginning of line):

;; Variant 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun my-indent-first-line1 ()
  "Indent the first line of each paragraph"
  (interactive)
  (goto-char (point-min))
  (while (not (= (point) (point-max)))
    (forward-paragraph)
    (next-line)
    (insert ">>>>")
    (fill-paragraph)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(fill-paragraph) - is optional, delete it if you don't want refill
paragraph after inserting

;; Variant 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun my-indent-first-line2 ()
  "Indent the first line of each paragraph"
  (interactive)
  (replace-regexp "\n\n" "\n\n>>>>" nil (point-min) (point-max)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Re: Indent first line of each paragraph of file in one hit

[Rodolfo Medina]

Konstantin Shakhnov <kastian@mail.ru> writes:

> On Thu, Nov 24, 2016 at 03:35:12PM +0000, Rodolfo Medina wrote:
>> Suppose you have a large file, in which the first line of each paragraph is
>> not indented; and want it to be with one single command for the whole file.
>> Is that possible, and how?
>
> I'm not great lisp master, but this dirty sketches works (just replace
> ">>>>" to what you need at the beginning of line):
>
> ;; Variant 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> (defun my-indent-first-line1 ()
>   "Indent the first line of each paragraph"
>   (interactive)
>   (goto-char (point-min))
>   (while (not (= (point) (point-max)))
>     (forward-paragraph)
>     (next-line)
>     (insert ">>>>")
>     (fill-paragraph)))
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (fill-paragraph) - is optional, delete it if you don't want refill
> paragraph after inserting
>
> ;; Variant 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> (defun my-indent-first-line2 ()
>   "Indent the first line of each paragraph"
>   (interactive)
>   (replace-regexp "\n\n" "\n\n>>>>" nil (point-min) (point-max)))
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


Thanks, it seems to work fine.  But please now suppose that I want that command
to act only upon the paragraph where the cursor is now and not on the rest of
the document.

Thanks,

Rodolfo

Re: Indent first line of each paragraph of file in one hit

[Rodolfo Medina]

Rodolfo Medina <rodolfo.medina@gmail.com> writes:

> Konstantin Shakhnov <kastian@mail.ru> writes:
>
>> On Thu, Nov 24, 2016 at 03:35:12PM +0000, Rodolfo Medina wrote:
>>> Suppose you have a large file, in which the first line of each paragraph is
>>> not indented; and want it to be with one single command for the whole file.
>>> Is that possible, and how?
>>
>> I'm not great lisp master, but this dirty sketches works (just replace
>> ">>>>" to what you need at the beginning of line):
>>
>> ;; Variant 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>> (defun my-indent-first-line1 ()
>>   "Indent the first line of each paragraph"
>>   (interactive)
>>   (goto-char (point-min))
>>   (while (not (= (point) (point-max)))
>>     (forward-paragraph)
>>     (next-line)
>>     (insert ">>>>")
>>     (fill-paragraph)))
>> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>>
>> (fill-paragraph) - is optional, delete it if you don't want refill
>> paragraph after inserting
>>
>> ;; Variant 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>> (defun my-indent-first-line2 ()
>>   "Indent the first line of each paragraph"
>>   (interactive)
>>   (replace-regexp "\n\n" "\n\n>>>>" nil (point-min) (point-max)))
>> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
>
> Thanks, it seems to work fine.  But please now suppose that I want that
> command to act only upon the paragraph where the cursor is now and not on the
> rest of the document.

This seems to work:

(defun my-indent-first-line1 ()
  "Indent the first line of each paragraph"
  (interactive)
    (backward-paragraph)
    (next-line)
    (insert "        ")
    (fill-paragraph)
    )


Rodolfo

Re: Indent first line of each paragraph of file in one hit

[Konstantin Shakhnov]

On Fri, Nov 25, 2016 at 11:52:55AM +0000, Rodolfo Medina wrote:
> This seems to work:
>
> (defun my-indent-first-line1 ()
>   "Indent the first line of each paragraph"
>   (interactive)
>     (backward-paragraph)
>     (next-line)
>     (insert "        ")
>     (fill-paragraph)
>     )


Yes, I've just made something similar. But there is a trap - if your
file doesn't starts with '\n' you'll get wrong indentation of the
first paraghaph
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
The Shire at this time had hardly any 'government'. Families for the
>>>>>most part managed their own affairs. Growing food and eating it
occupied most of their time. In other matters they were, as a rule,
....
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Re: Indent first line of each paragraph of file in one hit

[Rodolfo Medina]

Konstantin Shakhnov <kastian@mail.ru> writes:

> On Fri, Nov 25, 2016 at 11:52:55AM +0000, Rodolfo Medina wrote:
>> This seems to work:
>>
>> (defun my-indent-first-line1 ()
>>   "Indent the first line of each paragraph"
>>   (interactive)
>>     (backward-paragraph)
>>     (next-line)
>>     (insert "        ")
>>     (fill-paragraph)
>>     )
>
>
> Yes, I've just made something similar. But there is a trap - if your
> file doesn't starts with '\n' you'll get wrong indentation of the
> first paraghaph


Yes, I see.  No way to avoid that?

Rodolfo

Re: Indent first line of each paragraph of file in one hit

[Konstantin Shakhnov]

On Fri, Nov 25, 2016 at 12:20:45PM +0000, Rodolfo Medina wrote:
> Konstantin Shakhnov <kastian@mail.ru> writes:
> > Yes, I've just made something similar. But there is a trap - if your
> > file doesn't starts with '\n' you'll get wrong indentation of the
> > first paraghaph
> Yes, I see.  No way to avoid that?

(defun my-indent-first-line ()
  "Indent the first line of current paragraph"
  (interactive)
  (backward-paragraph)
  (if (= (line-beginning-position) (line-end-position)) ; if line not empty
      (next-line))
  (insert ">>>>")
  (fill-paragraph))

Not very nice, but seems working.