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: Function: rcd-find-latest-pictures-in-directory Date: Thu, 05 Dec 2024 16:29:40 +0300 Message-ID: Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="39531"; mail-complaints-to="usenet@ciao.gmane.io" To: Help GNU Emacs Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Thu Dec 05 14:30:59 2024 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 1tJBwZ-000A7r-Oq for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 05 Dec 2024 14:30:59 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1tJBvm-00014P-QY; Thu, 05 Dec 2024 08:30:10 -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 1tJBvX-0000w2-9c for help-gnu-emacs@gnu.org; Thu, 05 Dec 2024 08:29:56 -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 1tJBvP-0004Bs-KT for help-gnu-emacs@gnu.org; Thu, 05 Dec 2024 08:29:50 -0500 Original-Received: from localhost ([::ffff:41.75.184.142]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 0000000000082019.000000006751AAC7.0038F897; Thu, 05 Dec 2024 06:29:42 -0700 Received-SPF: pass client-ip=217.170.207.13; envelope-from=support1@rcdrun.com; 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, HEADER_FROM_DIFFERENT_DOMAINS=0.001, RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, RCVD_IN_VALIDITY_SAFE_BLOCKED=0.001, 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:148616 Archived-At: I have just finished this function and find it very interesting: (defun rcd-find-latest-pictures-in-directory (directory &optional count) "Return the latest .webp, .png, .jpg or .jpeg picture in DIRECTORY. Optional COUNT will return only specified number of pictures." (let* ((files (directory-files directory t "\\.\\(webp\\|png\\|jpe?g\\)$" t)) (latest-files (sort files (lambda (a b) (time-less-p (nth 5 (file-attributes b)) (nth 5 (file-attributes a))))))) (cond (count (seq-take latest-files count)) (t latest-files)))) It will be used to quickly fetch latest downloaded picture, sort it somewhere, optimize it for the website, and upload it. It is for workflow optimization. Jean Louis