[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emacs-wiki-discuss] File extensions Re: Planner and Spotlight (OS X)
From: |
Sacha Chua |
Subject: |
[emacs-wiki-discuss] File extensions Re: Planner and Spotlight (OS X) |
Date: |
Tue, 07 Jun 2005 16:53:19 +0800 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux) |
Chris Parsons <address@hidden> writes:
>> Is it possible to affix a suffix to all my plan pages without killing
>> everything else?
> I've had the same problem under Windows with Google Desktop search -- a
> suffix option would certainly be useful.
Here's a quick hack that works best with at least dev/405. As proof of
concept, I am eating my own dogfood. ;) Seems to work so far.
(defun my-rename-planner-files ()
"Rename all my planner files to .txt if they don't have that extension yet."
(interactive)
(mapcar
(lambda (file)
(unless (string-match "\\.txt$" (cdr file))
(rename-file (cdr file) (concat (cdr file) ".txt"))
(message "%s" (cdr file))))
(planner-file-alist))
(with-planner
(emacs-wiki-refresh-file-alist)))
Call the function above to rename all of your files.
----------------------------------------------------------------
Code to add to your configuration
----------------------------------------------------------------
(setq emacs-wiki-ignored-extensions-regexp "\\.txt")
(defadvice emacs-wiki-find-file (around extension activate)
"Open the Emacs Wiki page WIKI by name.
If COMMAND is non-nil, it is the function used to visit the file.
If DIRECTORY is non-nil, it is the directory in which the Wiki
page will be created if it does not already exist."
(unless (interactive-p)
(setq wiki (cons wiki
(cdr (assoc wiki (emacs-wiki-file-alist))))))
;; At this point, `wiki' is (GIVEN-PAGE FOUND-FILE).
(if (cdr wiki)
(let ((buffer (funcall (or command 'find-file) (cdr wiki))))
(if (= (prefix-numeric-value current-prefix-arg) 16)
(with-current-buffer buffer
(set (make-variable-buffer-local 'emacs-wiki-directories)
(cons (file-name-directory (cdr wiki))
emacs-wiki-directories))
(set (make-variable-buffer-local 'emacs-wiki-file-alist)
nil)))
buffer)
(let* ((dirname (or directory
(emacs-wiki-maybe t)
(car emacs-wiki-directories)))
(filename (expand-file-name (car wiki) dirname)))
(unless (file-exists-p dirname)
(make-directory dirname t))
(funcall (or command 'find-file) (concat filename ".txt")))))
;;; TODO: Make this more general, as right now, (concat filename ".txt")
;;; is a hard-coded hack.
================================================================
Emacs-wiki: more flexible than a yoga instructor
--
Sacha Chua <address@hidden> - open source geekette
http://sacha.free.net.ph/ - PGP Key ID: 0xE7FDF77C
interests: emacs, gnu/linux, personal information management, CS ed
sachac on irc.freenode.net#emacs . YM: sachachua83
Re: [emacs-wiki-discuss] Planner and Spotlight (OS X), Alex Polite, 2005/06/09