From: Jean Louis <bugs@gnu.support>
To: "Felix E. Klee" <felix.klee@inka.de>
Cc: help-gnu-emacs@gnu.org
Subject: Re: How to rename files to numbers in Eshell?
Date: Sat, 11 Sep 2021 16:40:28 +0300 [thread overview]
Message-ID: <YTyxzGcazkwh67pQ@protected.localdomain> (raw)
In-Reply-To: <87tuirckxp.fsf@inka.de>
* Felix E. Klee <felix.klee@inka.de> [2021-09-11 16:16]:
> Consider a list of files:
>
> $ ls -1 *.jpg
> IMG_20210909_0003.jpg
> IMG_20210909_0004.jpg
> IMG_20210909_0005.jpg
> IMG_20210909_0006.jpg
> IMG_20210909_0007.jpg
> …
>
> I want to rename these files to `1.jpg`, `2.jpg`, …, and I know how to
> do it with Dired. However, this time I want to do it with Eshell.
>
> My own attempt, works, but I think there should be an easier way:
>
> $ listify *.jpg
> $ setq my-files $$
> $ setq my-numbers $(number-sequence 1 (length my-files))
> $ setq my-pairs $(mapcar* 'cons my-files my-numbers)
> $ for pair in $my-pairs { setq a (car pair); setq b (cdr pair);
> mv $a "$b".jpg }
This may serve as starting point:
(defun renumber-files (&optional files)
"This function works within Dired or Directory Editor in GNU
Emacs. It will rename bunch of files and renumber them
automatically by date and number of the file. It is useful when
you are renaming less important images or bunch of files with
irrelevant file names."
(interactive)
(let* ((files (or files (dired-get-marked-files)))
(count 1))
(dolist (file files)
(let* ((extension (file-name-extension file))
(filename (format "%s-%06.f.%s" (format-time-string "%F") count extension)))
(rename-file file filename)
(setq count (+ count 1))))))
Then in eshell:
$ renumber-files *
I have chosen to renumber it by date, you can customize it
yourself. It is handy when I am downloading many pictures or videos,
then I know at what date they were downloaded. Of course in that case
I don't mind of file names significance, that is why I am renumbering
them.
--
Jean
Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns
In support of Richard M. Stallman
https://stallmansupport.org/
next prev parent reply other threads:[~2021-09-11 13:40 UTC|newest]
Thread overview: 38+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-09-11 13:15 How to rename files to numbers in Eshell? Felix E. Klee
2021-09-11 13:40 ` Jean Louis [this message]
2021-09-12 8:44 ` Felix E. Klee
2021-09-12 19:03 ` Jean Louis
2021-09-13 9:28 ` Jean Louis
2021-09-13 11:52 ` tomas
2021-09-14 7:42 ` Felix E. Klee
2021-09-14 9:17 ` Jean Louis
2021-09-14 9:32 ` tomas
2021-09-14 11:11 ` Felix E. Klee
2021-09-14 13:37 ` Jean Louis
2021-09-14 15:48 ` Felix E. Klee
2021-09-16 22:37 ` Michael Heerdegen
2021-09-16 22:47 ` Michael Heerdegen
2021-09-17 7:27 ` Felix E. Klee
2021-09-24 7:21 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-09-25 13:43 ` Jean Louis
2021-09-26 2:50 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-09-30 6:38 ` Felix E. Klee
2021-09-30 7:37 ` Jean Louis
2021-09-30 7:50 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-09-30 13:17 ` Felix E. Klee
2021-09-30 15:34 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-09-30 21:42 ` Jean Louis
2021-10-01 0:09 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-10-01 20:51 ` Jean Louis
2021-10-01 21:34 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-10-02 7:53 ` Lack of integration in Emacs - it was " Jean Louis
2021-10-03 8:16 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-10-03 9:27 ` Jean Louis
2021-10-04 3:29 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-10-04 10:15 ` Jean Louis
2021-10-04 11:22 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-09-22 14:46 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-09-22 14:27 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-09-16 12:15 ` Felix E. Klee
2021-09-16 15:11 ` Nick Dokos
2021-09-16 16:07 ` Felix E. Klee
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=YTyxzGcazkwh67pQ@protected.localdomain \
--to=bugs@gnu.support \
--cc=felix.klee@inka.de \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.