;;; w3m-bookmark.el --- Functions to operate bookmark file of w3m ;; Copyright (C) 2001, 2002 TSUCHIYA Masatoshi ;; Authors: Shun-ichi GOTO , ;; TSUCHIYA Masatoshi ;; Keywords: w3m, WWW, hypermedia ;; This file is a part of emacs-w3m. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, you can either send email to this ;; program's maintainer or write to: The Free Software Foundation, ;; Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA. ;;; Commentary: ;; w3m-bookmark.el is the add-on program of emacs-w3m to operate ;; bookmark file. For more detail about emacs-w3m, see: ;; ;; http://emacs-w3m.namazu.org/ ;;; Code: (require 'w3m-util) (require 'w3m) (defcustom w3m-bookmark-file (expand-file-name "bookmark.html" w3m-profile-directory) "Bookmark file of w3m." :group 'w3m :type 'file) (defcustom w3m-bookmark-file-coding-system 'euc-japan "Coding system for bookmark file." :group 'w3m :type 'coding-system) (eval-and-compile (defconst w3m-bookmark-section-delimiter "\n")) (eval-and-compile (defconst w3m-bookmark-section-format (eval-when-compile (concat "

%s

%s\n" w3m-bookmark-section-delimiter "

\n")))) (defconst w3m-bookmark-initial-format (eval-when-compile (concat "Bookmarks\n" "\n

Bookmarks

\n" w3m-bookmark-section-format "\n\n"))) (defcustom w3m-bookmark-default-section nil "Default section to add new entry." :group 'w3m :type 'string) ;; internal variables (defvar w3m-bookmark-section-history nil) (defvar w3m-bookmark-title-history nil) (defsubst w3m-bookmark-read-file () "Insert contents of bookmark file to this buffer." (when (file-readable-p w3m-bookmark-file) (let ((file-coding-system-for-read w3m-bookmark-file-coding-system) (coding-system-for-read w3m-bookmark-file-coding-system)) (insert-file-contents w3m-bookmark-file)))) (defun w3m-bookmark-sections () "Return collection of registered sections." (let (sections) (with-temp-buffer (w3m-bookmark-read-file) (goto-char (point-min)) (while (search-forward "

" nil t) (push (cons (buffer-substring (point) (and (search-forward "

" nil t) (match-beginning 0))) nil) sections))) (nreverse sections))) (unless w3m-bookmark-default-section (setq w3m-bookmark-default-section (caar (w3m-bookmark-sections)))) (defun w3m-bookmark-write-file (url title section) "Make new bookmark with specified spec, and save it." (with-temp-buffer (w3m-bookmark-read-file) (if (zerop (buffer-size)) ;; New bookmark file. (insert (format w3m-bookmark-initial-format section url title)) (if (search-forward (format "

%s

" section) nil t) (progn (unless (search-forward w3m-bookmark-section-delimiter nil t) (error "Can't find section delimiter: %s" section)) (goto-char (match-beginning 0)) (insert (format "

%s\n" url title))) ;; New section. (unless (search-forward "\n" nil t) (error "%s" "Can't find delimiter of bookmark contents")) (goto-char (match-beginning 0)) (insert (format w3m-bookmark-section-format section url title)))) (let ((file-coding-system w3m-bookmark-file-coding-system) (coding-system-for-write w3m-bookmark-file-coding-system) (mode (and (file-exists-p w3m-bookmark-file) (file-modes w3m-bookmark-file)))) ;; Make backup. (when (file-exists-p w3m-bookmark-file) (rename-file w3m-bookmark-file (make-backup-file-name w3m-bookmark-file) t)) (write-region (point-min) (point-max) w3m-bookmark-file) (when mode (set-file-modes w3m-bookmark-file mode))))) (defun w3m-bookmark-add (url &optional title) "Add URL to bookmark. Optional argument TITLE is title of link." (let ((section (completing-read (if w3m-bookmark-default-section (format "Section (default %s): " w3m-bookmark-default-section) "Section: ") (w3m-bookmark-sections) nil nil nil 'w3m-bookmark-section-history))) (and (string= section "") (setq section w3m-bookmark-default-section)) (if (string-match section "^ *$") (error "You must specify section name")) (setq title (read-string "Title: " title 'w3m-bookmark-title-history)) (if (string-match title "^ *$") (error "You must specify title")) (w3m-bookmark-write-file url (w3m-encode-specials-string title) (w3m-encode-specials-string section)))) ;;;###autoload (defun w3m-bookmark-add-this-url () "Add link under cursor to bookmark." (interactive) (if (null (w3m-anchor)) (message "No anchor") ; nothing to do (let ((url (w3m-anchor)) (title (buffer-substring-no-properties (previous-single-property-change (1+ (point)) 'w3m-href-anchor) (next-single-property-change (point) 'w3m-href-anchor)))) (w3m-bookmark-add url title)) (message "Added"))) ;;;###autoload (defun w3m-bookmark-add-current-url (&optional arg) "Add link of current page to bookmark. With prefix, ask new url to add instead of current page." (interactive "P") (w3m-bookmark-add (if arg (w3m-input-url) w3m-current-url) w3m-current-title) (message "Added")) ;;;###autoload (defun w3m-bookmark-add-current-url-group () "Add link of the group of current urls to the bookmark." (interactive) (w3m-bookmark-add (concat "group:" (mapconcat 'w3m-url-encode-string (mapcar (lambda (buffer) (with-current-buffer buffer w3m-current-url)) (w3m-list-buffers)) "&"))) (message "Added as URL group")) ;;;###autoload (defun w3m-bookmark-view () (interactive) (if (file-readable-p w3m-bookmark-file) (w3m (w3m-expand-file-name-as-url w3m-bookmark-file)))) (provide 'w3m-bookmark) ;;; w3m-bookmark.el ends here