Commit d6856f19 authored by David Byers's avatar David Byers
Browse files

Include lisp variable names in the customize buffer.

Detailed changes:
> 2003-01-09  David Byers  <david.byers@swipnet.se>
>
> 	* option-edit.el (lyskom-create-widget): Insert the variable name
> 	in the buffer, after the help toggle. This is to make the buffer
> 	searchable for the actual variable names.
>
> 	* lyskom-rest.el (lyskom-format-format): Added format-letter % so
> 	the sequence %% works.
>
11c20
< 	* faqs.el: Fixed some invalid variable references in the new
---
> 	* faqs.el: Fixed some invalid vxariable references in the new
parent 44e37a77
2003-01-09 David Byers <david.byers@swipnet.se>
* option-edit.el (lyskom-create-widget): Insert the variable name
in the buffer, after the help toggle. This is to make the buffer
searchable for the actual variable names.
* lyskom-rest.el (lyskom-format-format): Added format-letter % so
the sequence %% works.
2003-01-08 David Byers <david.byers@swipnet.se>
* filter.el (kom-super-jump): Fixed problem with prefix arg.
......@@ -8,7 +17,7 @@
* commands1.el: Fixed some invalid variable references in the new
docstrings.
* faqs.el: Fixed some invalid variable references in the new
* faqs.el: Fixed some invalid vxariable references in the new
docstrings.
2003-01-08 David Byers <davby@ida.liu.se>
......
......@@ -31,6 +31,31 @@
;;;; Generate documentation data for inclusion in the user manual
;;;;
;;; TO DO
;;;
;;; Read templates from a file, so we don't hard-code the
;;; format here.
;;;
;;; Specify output file on the command line.
;;;
;;; Specify lyskom.elc on the command line.
;;;
;;; Read a list of external references from a file. Ideally we'd read
;;; and parse the actual XML, but that is probably too much work. We
;;; need to map references like lyskom-read-text-no-prefix-arg to the
;;; actual ID to link to. Specify this file on the command line too.
;;;
;;; Do variable documentation.
;;;
;;; Write or find a stylesheed that doesn't suck. Mainly paragraph
;;; spacing is way too big, and the period after section numbers is
;;; just plain wrong. Maybe this can be fixed by setting parameters to
;;; the DSSSL processor -- see
;;; /usr/share/sgml/docbook/stylesheet/dsssl/modular/print/dbparam.dsl
;;; for all available parameters. %para-sep% is interesting.
;;;
(require 'cl)
......
......@@ -1186,7 +1186,7 @@ Args: FORMAT-STRING &rest ARGS"
(defvar lyskom-format-format
"%\\(=\\)?\\(-?[0-9]+\\)?\\(#\\([0-9]+\\)\\)?\\(_\\)?\\(:\\)?\\(&\\)?\\([][$@MmPpnrtsdoxcCSDF?]\\)"
"%\\(=\\)?\\(-?[0-9]+\\)?\\(#\\([0-9]+\\)\\)?\\(_\\)?\\(:\\)?\\(&\\)?\\([][$@MmPpnrtsdoxcCSDF%?]\\)"
"regexp matching format string parts.")
(defun lyskom-insert-string (atom)
......
......@@ -344,7 +344,7 @@ customize buffer but do not save them to the server."
(symbol-value (elt e 0)))
var-list)))))
lyskom-customize-buffer-format)
(let* ((actual-save-options-init-file
(or (and (boundp 'save-options-init-file)
save-options-init-file)
......@@ -860,11 +860,15 @@ customize buffer but do not save them to the server."
':lyskom-storage-widget storage-widget
)
(cdr spec))))
(let ((widget (apply 'widget-create spec)))
(condition-case nil
(progn
(if (string= "" (lyskom-custom-string doc-sym))
(widget-insert "\n")
(progn (widget-insert (lyskom-format " %#1@(%#2s)"
`(face ,kom-dim-face)
(symbol-name variable)))
(widget-insert "\n"))
(widget-insert " ")
(widget-create 'lyskom-widget-help
':value (lyskom-default-value 'kom-customize-format)
......@@ -884,7 +888,9 @@ customize buffer but do not save them to the server."
""
(lyskom-custom-string 'show-doc)
"?"))
':format "%[[%T]%]\n%D")))
':format (lyskom-format "%%[[%%T]%%] %[%#1@(%#2s)%]\n%%D"
`(face ,kom-dim-face)
(symbol-name variable)))))
(error (widget-insert "\n")))
widget)))
......
......@@ -4020,7 +4020,7 @@ i servern. Annars sparas det i din .emacs.")
(kom-remote-controllers-tag . "Tilltna fjrrstyrare:")
(kom-customize-format-tag . "Visa hjlptexterna fr instllningar:")
(kom-default-language-tag . "Sprk: ")
(kom-default-language-tag . "Sprk:")
(kom-ispell-dictionary-tag . "Ordlista:")
(kom-show-namedays-tag . "Visa dagens namn:")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment