[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Adding `#' at each new line with text until the end of the file
From: |
Merciadri Luca |
Subject: |
Adding `#' at each new line with text until the end of the file |
Date: |
Wed, 08 Dec 2010 15:08:37 -0000 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux) |
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hi,
I have some personally-defined function:
==
(defun psig ()
"Insert the signature for a personal posting on a newsgroup, including a
saying."
(interactive)
(goto-char (point-max))
(or (= (char-after (- (point) 1)) ?\n)
(newline 1))
(insert "-- \n")
(let ((saying ""))
(save-window-excursion
(find-file "~/Sayings")
(goto-char (point-min))
(search-forward "#")
(delete-char -1)
(setq fill-prefix nil)
(mark-paragraph)
(setq saying (buffer-substring (region-beginning) (region-end)))
(exchange-point-and-mark)
(if (eobp) (goto-char (1+ (point-min))))
;(insert "#")
(save-buffer))
(insert saying)
))
==
The file ~/Sayings contains sayings, and, at the beginning, each line
with some saying was beginning with a #.
So, my sayings' file looked like:
==
#saying1
#saying2
#...
#sayingn
==
Nice, but my psig() function takes the `#' to tell me that the given
saying has already been used. As it looks for the following `#', it
takes the first line with `#' beginning it, that is, the first saying
which has not been already used before.
The problem is that, as I do not have *a lot* of sayings, I would like
Gnus to modify the sayings' file so it looks like at its beginning,
that is, with a `#' beginning each saying.
I tried
==
(defun fildi ()
(find-file "/~Sayings")
(goto-char (point-min))
; go to the first saying, and do the following until the end of the
; file is reached, for each line with some text on it:
(insert "#")
(save-buffer))
==
But I don't know how to translate my two lines of comments into real
ELisp code. Any idea about how I could achieve this?
Thanks.
- --
Merciadri Luca
See http://www.student.montefiore.ulg.ac.be/~merciadri/
- --
Act today only, tomorrow is too late.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
Comment: Processed by Mailcrypt 3.5.8 <http://mailcrypt.sourceforge.net/>
iEYEARECAAYFAkvxaTQACgkQM0LLzLt8MhzYBQCgoZsPqIFxOkVJjMnpdh41rUMw
0AMAoKILCLVRtsastH6moo0tjpbqU7Gg
=XnME
-----END PGP SIGNATURE-----
- Adding `#' at each new line with text until the end of the file,
Merciadri Luca <=
- Re: Adding `#' at each new line with text until the end of the file, Pascal J. Bourguignon, 2010/12/08
- Re: Adding `#' at each new line with text until the end of the file, Merciadri Luca, 2010/12/08
- Message not available
- Re: Adding `#' at each new line with text until the end of the file, Merciadri Luca, 2010/12/08
- Re: Adding `#' at each new line with text until the end of the file, Pascal J. Bourguignon, 2010/12/08
- Re: Adding `#' at each new line with text until the end of the file, Merciadri Luca, 2010/12/08
- Re: Adding `#' at each new line with text until the end of the file, Pascal J. Bourguignon, 2010/12/08
- Re: Adding `#' at each new line with text until the end of the file, Merciadri Luca, 2010/12/08
- Re: Adding `#' at each new line with text until the end of the file, Pascal J. Bourguignon, 2010/12/08
- Re: Adding `#' at each new line with text until the end of the file, Merciadri Luca, 2010/12/08
- Re: Adding `#' at each new line with text until the end of the file, Andreas Politz, 2010/12/08