;;; libxml-doc.el - look up libxml-symbols and start browser on documentation ;; Author: Felix Natter , Geert Kloosterman ;; Created: Jun 21 2000 ;; Keywords: libxml documentation ;; 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 ;; of the License, 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, write to the Free Software ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary / README ;; these functions allow you to browse the libxml documentation ;; (using lynx within emacs by default) ;; ;; ----- Installing ;; 1. add the following to ~/.emacs (adapt path and remove comments !) ;; (autoload 'libxmldoc-lookup-symbol "~/elisp/libxml-doc" ;; "Look up libxml-symbols and start browser on documentation." t) ;; or put this file in load-path and use this: ;; (autoload 'libxmldoc-lookup-symbol "libxml-doc" ;; "Look up libxml-symbols and start browser on documentation." t) ;; ;; 2. adapt libxmldoc-root: ;; i.e. (setq libxmldoc-root "~/libxml2-2.0.0/doc/html") ;; ;; 3. change the filter-regex: by default, cpp-defines, callbacks and ;; html-functions are excluded (C-h v libxmldoc-filter-regexp) ;; ;; 4. consider customizing libxmldoc-browse-url (lynx by default); ;; cannot use Emacs/W3 4.0pre46 because it has problems with the html ;; ;; ----- Using ;; call M-x libxmldoc-lookup-symbol: this will prompt with completion and ;; then open the browser showing the documentation. If the word around the ;; point matches a symbol, that is used instead. You can also call ;; libxmldoc-lookup-symbol noninteractively and pass the symbol. ;; Note: ;; an alternative to libxml-doc is emacs tags: ;; $ cd libxml2-2.3.8 ;; $ make TAGS ;; $ emacs ;; M-. (M-x find-tag) ... or ;; M-x tags-search ... RET M-, M-, ... ;; (for more information: info emacs RET m Tags RET) ;;; ChangeLog: ;; Wed Jun 21 01:07:12 2000: initial release ;; Wed Jun 21 01:45:29 2000: added libxmldoc-lookup-symbol-at-point ;; Wed Jun 21 23:37:58 2000: libxmldoc-lookup-symbol now uses ;; (thing-at-point 'word) if it matches a symbol ;; Thu Jun 22 02:37:46 2000: filtering is only done for completion ;; Thu Jun 22 21:03:41 2000: libxmldoc-browse-url can be customized ;; Thu May 31 2001 (Geert): ;; - Changed the `gnome-xml-' html file prefix into `libxml-'. ;; - Changed the 'word match from thing-at-point into 'symbol. ;; With 'word, identifiers with an underscore (e.g. BAD_CAST) ;; don't get matched. ;; Fri Jun 8 16:29:18 2001, Sat Jun 23 16:19:47 2001: ;; complete rewrite of libxmldoc-lookup-symbol ;; by Felix Natter , Geert Kloosterman : ;; - Now keeps the list of symbols between calls to speed things up. ;; - filtering is only used when no symbol is passed and ;; thing-at-point does not match a symbol and "*" + thing-at-point ;; does not match a symbol (this is used to catch callbacks) and ;; libxmldoc-filter-regexp is non-nil. ;; Sat Jun 23 16:20:34 2001: update the docstrings ;; Sat Jun 23 16:22:54 2001 (Geert Kloosterman ): ;; update README: use autoload instead of load+c-mode-hook ;; Sat Jul 7 19:00:31 2001: fixed a problem with XEmacs: the ;; string-match of XEmacs when used in completing-read used the ;; minibuffer's value of case-fold-search, and not the one in the ;; c-mode buffer that we had set => so there's a new *-string-match-cs ;; (case sensitive) function which binds case-fold-search and runs string-match ;; Wed Sep 1 20:26:29 2004: adapted for libxml2-2.6.9: handle ;; document-relative (#XXX) links ;;; TODO: ;; - use command-execute for libxmldoc-browse-url ;; - keep (match-string 1) in a variable (libxmldoc-get-list-of-symbols) ;; (only if it improves performance) ;; - check the (require ..)-statements ;;; Code: (require 'browse-url) (require 'term) (defvar libxmldoc-root "~/src/libxml2-2.3.8/doc/html" "The root-directory of the libxml2-documentation (~ will be expanded).") (defvar libxmldoc-filter-regexp "^html\\|^\\*\\|^[A-Z_]+" "Symbols that match this regular expression will be excluded when doing completion and no symbol is specified. For example: callbacks: \"^\\\\*\" cpp-defines: \"[A-Z_]+\" xml-functions \"^xml\" html-functions \"^html\" sax-functions \".*SAX\" By default, callbacks, cpp-defines and html* are excluded. Set this to nil if you don't want filtering.") (defvar libxmldoc-browse-url 'browse-url-lynx-emacs "Browser used for browsing documentation. Emacs/W3 4.0pre46 cannot handle the html (and would be too slow), so lynx-emacs is used by default.") (defvar libxmldoc-symbol-history nil "History for looking up libxml-symbols.") (defvar libxmldoc-symbols nil "The list of libxml-symbols.") ;;;; public functions (defun libxmldoc-lookup-symbol(&optional symbol) "Look up xml-symbol." (interactive) ;; setting case-fold-search is now done in libxmldoc-string-match-cs ;; Build up a symbol list if necessary (if (null libxmldoc-symbols) (setq libxmldoc-symbols (libxmldoc-get-list-of-symbols))) (cond (symbol ;; symbol is specified as argument (if (not (assoc symbol libxmldoc-symbols)) (setq symbol nil))) ((assoc (thing-at-point 'symbol) libxmldoc-symbols) (setq symbol (thing-at-point 'symbol))) ;; this is needed to catch callbacks ;; note: this could be rewritten to use (thing-at-point 'word) ((assoc (concat "*" (thing-at-point 'symbol)) libxmldoc-symbols) (setq symbol (concat "*" (thing-at-point 'symbol)))) ) ;; omit "" t) from call to completing-read for the sake of xemacs (setq symbol (completing-read "Libxml: " libxmldoc-symbols (if (or symbol (null libxmldoc-filter-regexp)) nil '(lambda(key,value) (not (libxmldoc-string-match-cs libxmldoc-filter-regexp (car key,value))))) t symbol 'libxmldoc-symbol-history)) ;; start browser (apply libxmldoc-browse-url (list (cdr (assoc symbol libxmldoc-symbols))))) ;; (if (or symbol ;; (null libxmldoc-filter-regexp)) ;; libxmldoc-symbols ;; (mapcar ;; '(lambda(key,value) ;; (if (null (string-match ;; libxmldoc-filter-regexp ;; (car key,value))) ;; key,value)) ;; libxmldoc-symbols)) ;;;; internal (defun libxmldoc-string-match-cs(regexp str) "This is needed because string-match in XEmacs uses the current- buffer's value of case-fold-search (different from GNU Emacs)." (let ((case-fold-search nil)) (string-match regexp str))) (defun libxmldoc-get-list-of-symbols() "Get the list of html-links in the libxml-documentation." (let ((files (directory-files libxmldoc-root t (concat "^" (if (file-exists-p (concat libxmldoc-root "/libxml-parser.html")) "libxml-" "gnome-xml-") ".*\\.html$") t)) (symbols ()) (case-fold-search t) (uri)) (message "collecting libxml-symbols...") (while (car files) (message "processing %s" (car files)) (with-temp-buffer (insert-file-contents (car files)) (goto-char (point-min)) (while (re-search-forward "]*href[ \t\n]*=[ \t\n]*\"\\([^=>]*\\)\"[^>]*>" nil t nil) ;; is it a relative link (#XXX)? (if (char-equal (elt (match-string 1) 0) ?#) (setq uri (concat "file://" (car files) (match-string 1))) (setq uri (concat "file://" (expand-file-name libxmldoc-root) "/" (match-string 1)))) (if (not (re-search-forward "\\([^<]*\\)<" nil t nil)) (error "regexp error while getting libxml-symbols..")) ;; this needs add-to-list because i.e. xmlChar appears often (if (not (string-equal "" (match-string 1))) (add-to-list 'symbols (cons (match-string 1) uri)))) ;; (setq symbols (cons (cons (match-string 1) uri) symbols))) ) (setq files (cdr files))) symbols)) (provide 'libxmldoc) ;;; libxml-doc.el ends here ;;; Local Variables: ;;; indent-tabs-mode: nil ;;; End: