Mercurial > emacs
changeset 72085:eeafd2670b7f
(tumme-write-tags): Add.
| author | Mathias Dahl <mathias.dahl@gmail.com> |
|---|---|
| date | Mon, 24 Jul 2006 16:09:17 +0000 |
| parents | 002ee31c5102 |
| children | 2d3129f3f8a0 |
| files | lisp/tumme.el |
| diffstat | 1 files changed, 22 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tumme.el Mon Jul 24 10:53:10 2006 +0000 +++ b/lisp/tumme.el Mon Jul 24 16:09:17 2006 +0000 @@ -895,6 +895,28 @@ (save-buffer) (kill-buffer buf)))) +(defun tumme-write-tags (file-tags) + "Write file tags to database. +Write each file and tag in FILE-TAGS to the database. FILE-TAGS +is an alist in the following form: + ((FILE . TAG) ... )" + (let (end file tag) + (with-temp-file tumme-db-file + (insert-file-contents tumme-db-file) + (dolist (elt file-tags) + (setq file (car elt) + tag (cdr elt)) + (goto-char (point-min)) + (if (search-forward-regexp (format "^%s.*$" file) nil t) + (progn + (setq end (point)) + (beginning-of-line) + (when (not (search-forward (format ";%s" tag) end t)) + (end-of-line) + (insert (format ";%s" tag)))) + (goto-char (point-max)) + (insert (format "\n%s;%s" file tag))))))) + (defun tumme-remove-tag (files tag) "For all FILES, remove TAG from the image database." (save-excursion