zzkt/scel
1
0
Fork 0
Code Issues 7 Pull requests Projects Activity Actions

removed duplicate code vs. w3m-filters etc.,

Browse source 
corrected faulty arguments several places: ie. 'file-name in
lambda-list and 'file in code


git-svn-id: https://supercollider.svn.sourceforge.net/svnroot/supercollider/trunk@8943 a380766d-ff14-0410-b294-a243070f3f08
This commit is contained in:
andersvi 2009-03-17 09:29:15 +00:00
parent 89784e1ee8
commit 93812f18a3
1 changed files with 10 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
el/sclang-help.el
View file

@ -91,34 +91,6 @@
'(".*" sclang-help-substitute-for-filters))) '(".*" sclang-help-substitute-for-filters)))
;; dynamically change certain html-tags when displaying in w3m-browser:
(defcustom sclang-help-filters
'(("p\\.p\\([0-9]+\\)" . "#p\\1")
("<p class=\"\\(.*\\)\">\\(.*\\)</p>" . "<div id=\"\\1\">\\2</div>"))
"list of pairs of (regexp . filter) defining html-tags to be replaced by the function sclang-help-substitute-for-filters"
:group 'sclang-interface
:type '(repeat (cons (string :tag "match") (string :tag "replacement"))))
(defun sclang-help-substitute-for-filters (&rest args)
"substitute various tags in SCs html-docs"
(mapcar #'(lambda (filter)
(let ((regexp (car filter))
(to-string (cdr filter)))
(goto-char (point-min))
(while (re-search-forward regexp nil t)
(replace-match to-string nil nil))))
sclang-help-filters))
;; w3m's content-filtering system
(setq w3m-use-filter t)
(eval-after-load "w3m-filter"
'(add-to-list 'w3m-filter-rules
;; run on all files read by w3m...
'(".*" sclang-help-substitute-for-filters)))
(defvar sclang-help-topic-alist nil (defvar sclang-help-topic-alist nil
"Alist mapping help topics to file names.") "Alist mapping help topics to file names.")
@ -155,12 +127,12 @@
(defun sclang-help-buffer-name (topic) (defun sclang-help-buffer-name (topic)
(sclang-make-buffer-name (concat "Help:" topic))) (sclang-make-buffer-name (concat "Help:" topic)))
(defun sclang-rtf-file-p (file-name) (defun sclang-rtf-file-p (file)
(let ((case-fold-search t)) (let ((case-fold-search t))
(string-match ".*\\.rtf$" file))) (string-match ".*\\.rtf$" file)))
;; ========= ADDITION for HTML help files ;; ========= ADDITION for HTML help files
(defun sclang-html-file-p (file-name) (defun sclang-html-file-p (file)
(let ((case-fold-search t)) (let ((case-fold-search t))
(string-match ".*\\.html$" file))) (string-match ".*\\.html$" file)))
@ -169,21 +141,21 @@
; (let ((case-fold-search t)) ; (let ((case-fold-search t))
; (string-match ".*\\.htm$" file))) ; (string-match ".*\\.htm$" file)))
(defun sclang-sc-file-p (file-name) (defun sclang-sc-file-p (file)
(let ((case-fold-search t)) (let ((case-fold-search t))
(string-match ".*\\.sc$" file))) (string-match ".*\\.sc$" file)))
(defun sclang-scd-file-p (file-name) (defun sclang-scd-file-p (file)
(let ((case-fold-search t)) (let ((case-fold-search t))
(string-match ".*\\.scd$" file))) (string-match ".*\\.scd$" file)))
(defun sclang-help-file-p (file-name) (defun sclang-help-file-p (file)
(string-match sclang-help-file-regexp file-name)) (string-match sclang-help-file-regexp file))
(defun sclang-help-topic-name (file-name) (defun sclang-help-topic-name (file)
(if (string-match sclang-help-file-regexp file-name) (if (string-match sclang-help-file-regexp file)
(cons (file-name-nondirectory (replace-match "" nil nil file-name 1)) (cons (file-name-nondirectory (replace-match "" nil nil file 1))
file-name))) file)))
;; ===================================================================== ;; =====================================================================
;; rtf parsing ;; rtf parsing