From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric Abrahamsen Subject: function for cleaning org-attach directories Date: Thu, 16 Jul 2015 16:57:30 +0800 Message-ID: <877fq0o4xx.fsf@ericabrahamsen.net> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:36574) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZFez7-0005Tb-3h for emacs-orgmode@gnu.org; Thu, 16 Jul 2015 04:57:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZFez3-0002hz-Tb for emacs-orgmode@gnu.org; Thu, 16 Jul 2015 04:57:41 -0400 Received: from plane.gmane.org ([80.91.229.3]:38993) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZFez3-0002hi-NV for emacs-orgmode@gnu.org; Thu, 16 Jul 2015 04:57:37 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1ZFez2-0005nE-4S for emacs-orgmode@gnu.org; Thu, 16 Jul 2015 10:57:36 +0200 Received: from 114.250.121.94 ([114.250.121.94]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 16 Jul 2015 10:57:36 +0200 Received: from eric by 114.250.121.94 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 16 Jul 2015 10:57:36 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org I use org-attach a lot, and if you're not careful you can get a "data/" directory of many gigabytes. Not a problem, until you want to rsync it and it takes all day... I wrote this to clean my attach directories. I'm not sure how portable it is (and I'm really not pleased with the (concat attach-dir "/" d "/" d+)), but I'm posting it to see if it's useful to anyone. Comments/improvements welcome! If the final product is desirable, I can work it up as a patch. Eric (defun org-attach-clean-dirs (&optional attach-dir clean-archived) (interactive) (let ((attach-dir (if attach-dir (file-name-as-directory attach-dir) (concat (file-name-as-directory org-directory) org-attach-directory))) (valid-dir-re "\\`[0-9a-z-]+\\'") (org-id-search-archives (if clean-archived nil org-id-search-archives))) (dolist (d (directory-files attach-dir nil valid-dir-re)) (dolist (d+ (directory-files (concat attach-dir d) nil valid-dir-re)) (let ((id (format "%s%s" d d+)) (full-path (concat attach-dir "/" d "/" d+))) (unless (org-id-find id) (shell-command (format "rm -fr %s" full-path))))))))