From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.help Subject: Re: How to rename files to numbers in Eshell? Date: Sun, 12 Sep 2021 22:03:54 +0300 Message-ID: References: <87tuirckxp.fsf@inka.de> <87ee9u2neh.fsf@inka.de> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="29118"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mutt/2.0.7+183 (3d24855) (2021-05-28) Cc: help-gnu-emacs@gnu.org To: "Felix E. Klee" Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Sun Sep 12 21:06:51 2021 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1mPUoV-0007OA-DN for geh-help-gnu-emacs@m.gmane-mx.org; Sun, 12 Sep 2021 21:06:51 +0200 Original-Received: from localhost ([::1]:46682 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mPUoT-0006Hu-Cl for geh-help-gnu-emacs@m.gmane-mx.org; Sun, 12 Sep 2021 15:06:49 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:36178) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mPUoB-0006Hj-1o for help-gnu-emacs@gnu.org; Sun, 12 Sep 2021 15:06:31 -0400 Original-Received: from stw1.rcdrun.com ([217.170.207.13]:54419) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mPUo8-0001vr-O9 for help-gnu-emacs@gnu.org; Sun, 12 Sep 2021 15:06:30 -0400 Original-Received: from localhost ([::ffff:197.157.0.44]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 0000000000027ED1.00000000613E4F91.00000A93; Sun, 12 Sep 2021 12:05:53 -0700 Mail-Followup-To: "Felix E. Klee" , help-gnu-emacs@gnu.org Content-Disposition: inline In-Reply-To: <87ee9u2neh.fsf@inka.de> Received-SPF: pass client-ip=217.170.207.13; envelope-from=bugs@gnu.support; helo=stw1.rcdrun.com X-Spam_score_int: -3 X-Spam_score: -0.4 X-Spam_bar: / X-Spam_report: (-0.4 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_SORBS_WEB=1.5, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:133013 Archived-At: * Felix E. Klee [2021-09-12 11:46]: > Jean Louis writes: > > (defun renumber-files (&optional files) > > […] > > Thanks for the alternative approach, Jean! > > It’s still quite verbose, though, even involving the creation of a > custom function. > > Renaming files to numbers is actually very easy using Dired’s > `wdired-change-to-wdired-mode`, and then doing regexp replace. The > purpose of my question is to learn a bit about Eshell. Is there any regular expression counter replacement so that each new replacement get a new number? > > 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. > > For organizing imported media files by date, I have a Bash script > `organize_media`: > > https://gist.github.com/feklee/85b5f13e83c796472dda16e31e32b7f3 I don't use Bash any more for that, I use Emacs Lisp. For pictures, I made "sort-images", it is definitely not perfect for everybody, but it serves me to sort those files that come from camera devices or phone to sort them by year, month, date into their corresponding folders. (defun rcd-image-date-match (file) (string-match "[[:digit:]][[:digit:]][[:digit:]][[:digit:]][[:digit:]][[:digit:]][[:digit:]][[:digit:]][_-]" file)) (defun sort-images (&optional prefix) (interactive "P") (let ((files (dired-get-marked-files))) (dolist (file files) (let* ((attributes (file-attributes file)) (file-base (file-name-base file)) (file-ext (file-name-extension file)) (position (rcd-image-date-match file-base)) (modification-time (file-attribute-modification-time attributes)) (year (if current-prefix-arg (format-time-string "%Y" modification-time) (substring file-base position (+ position 4)))) (month (if current-prefix-arg (format-time-string "%m" modification-time) (substring file-base (+ 4 position) (+ position 6)))) (day (if current-prefix-arg (format-time-string "%d" modification-time) (substring file-base (+ 6 position) (+ position 8)))) (dir (concat "/home/data1/protected/Media/Pictures/Pictures/Year-" year "/" month "/" year "-" month "-" day "/")) (destination (concat "/home/data1/protected/Media/Pictures/Pictures/Year-" year "/" month "/" year "-" month "-" day "/" file-base "." file-ext))) (mkdir dir t) (message (concat "Copy file to: " destination)) (if (file-exists-p destination) (if (y-or-n-p (concat "Overwrite: " destination)) (rename-file file destination t)) (rename-file file destination)))) (revert-buffer))) -- Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns In support of Richard M. Stallman https://stallmansupport.org/