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: enum.el Date: Sun, 15 Jan 2023 21:52:24 +0300 Message-ID: References: <87fscdmqbo.fsf@dataswamp.org> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="1083"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mutt/2.2.9+54 (af2080d) (2022-11-21) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Sun Jan 15 20:27:52 2023 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 1pH8fW-000Aak-Es for geh-help-gnu-emacs@m.gmane-mx.org; Sun, 15 Jan 2023 20:27:50 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pH8f9-0007wF-Ff; Sun, 15 Jan 2023 14:27:27 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pH8f6-0007vv-Fj for help-gnu-emacs@gnu.org; Sun, 15 Jan 2023 14:27:24 -0500 Original-Received: from stw1.rcdrun.com ([217.170.207.13]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pH8f4-0006H2-I2 for help-gnu-emacs@gnu.org; Sun, 15 Jan 2023 14:27:24 -0500 Original-Received: from localhost ([::ffff:197.239.8.177]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 0000000000055D77.0000000063C4539B.00002552; Sun, 15 Jan 2023 12:27:22 -0700 Mail-Followup-To: help-gnu-emacs@gnu.org Content-Disposition: inline In-Reply-To: <87fscdmqbo.fsf@dataswamp.org> Received-SPF: pass client-ip=217.170.207.13; envelope-from=bugs@gnu.support; helo=stw1.rcdrun.com X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 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-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.help:142252 Archived-At: * Emanuel Berg [2023-01-15 15:42]: > ;;; -*- lexical-binding: t -*- > ;; > ;; this file: > ;; https://dataswamp.org/~incal/emacs-init/enum.el > > (require 'cl-lib) > (require 'subr-x) > > (defun enum (&optional beg end suf) > "Enumerate each line from BEG to END, counting from one. > Use SUF as a suffix to the digits inserted. > BEG defaults to the beginning of the buffer, > END defaults to the end of the buffer, > SUF defaults to \". \"" > (interactive > `(,@(if (use-region-p) > (list (region-beginning) (region-end)) > (list nil nil) ) > ,(when current-prefix-arg > (read-string "suffix: ") ))) > (or beg (setq beg (point-min))) > (or end (setq end (point-max))) > (or suf (setq suf ". ")) > (goto-char beg) > (let*((lines (count-lines beg end)) > (pad-len (length (number-to-string lines))) ) > (cl-loop > for line from 1 to lines > do (goto-char (line-beginning-position)) > (insert > (format "%s%s" > (string-pad (number-to-string line) pad-len nil t) suf) ) > (forward-line) ))) Looks sophisticated. When there is bunch of pictures in Dired, freshly downloaded, then I sometimes need to enumerate such files. (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)))))) -- Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns In support of Richard M. Stallman https://stallmansupport.org/