Commit 9acfc925 authored by David Byers's avatar David Byers
Browse files

Settings for fontification.

Detailed changes:
> 	Make fontification turn-offable:
> 	* option-edit.el (lyskom-customize-buffer-format): Added
> 	kom-text-properties and kom-fontify-text.
> 	(lyskom-custom-variables): Same here.
>
> 	* vars.el.in (kom-fontify-text): New variable.
> 	(kom-text-properties): Make server-stored by default.
>
parent f19296c5
2004-02-29 David Byers <byers@lysator.liu.se> 2004-02-29 David Byers <byers@lysator.liu.se>
Make fontification turn-offable:
* option-edit.el (lyskom-customize-buffer-format): Added
kom-text-properties and kom-fontify-text.
(lyskom-custom-variables): Same here.
* vars.el.in (kom-fontify-text): New variable.
(kom-text-properties): Make server-stored by default.
Better fontification code: Better fontification code:
* lyskom-rest.el: (lyskom-format-plaintext-fonts-body): New macro. * lyskom-rest.el: (lyskom-format-plaintext-fonts-body): New macro.
For internal use only. For internal use only.
......
...@@ -4188,6 +4188,14 @@ up menus.") ...@@ -4188,6 +4188,14 @@ up menus.")
If this setting is on, the commands \"List new conferences\" and If this setting is on, the commands \"List new conferences\" and
\"List new users\" will automatically mark new conferences and \"List new users\" will automatically mark new conferences and
users as known.") users as known.")
(kom-text-properties-doc . "\
If this setting is on, the client will display different types of
things using different fonts and colors. For example, text numbers
and other clickable things will be displayed using a special color.")
(kom-fontify-text-doc . "\
If this setting is on, words and phrases that are delimited by
special characters will be shown in bold or italics. For example,
words delimited by asterisks will be shown bold.")
;; ;;
;; Tags for variables ;; Tags for variables
...@@ -4397,6 +4405,8 @@ up menus.") ...@@ -4397,6 +4405,8 @@ up menus.")
(kom-highlight-conferences-tag . "Display of names::") (kom-highlight-conferences-tag . "Display of names::")
(kom-netscape-variant-tag . "Where Netscape/Mozilla opens URLs:") (kom-netscape-variant-tag . "Where Netscape/Mozilla opens URLs:")
(kom-auto-confirm-new-conferences-tag . "Always mark new conferences as known:") (kom-auto-confirm-new-conferences-tag . "Always mark new conferences as known:")
(kom-text-properties-tag . "Use fonts and colors:")
(kom-fontify-text-tag . "Bold and italic fonts in texts:")
) )
) )
......
...@@ -2203,7 +2203,8 @@ Deferred insertions are not supported." ...@@ -2203,7 +2203,8 @@ Deferred insertions are not supported."
(setq start (1- (match-end 0))))))) (setq start (1- (match-end 0)))))))
(defun lyskom-format-plaintext-fonts (text) (defun lyskom-format-plaintext-fonts (text)
(lyskom-format-plaintext-fonts-body)) (when kom-fontify-text
(lyskom-format-plaintext-fonts-body)))
(defun lyskom-signal-reformatted-text (how) (defun lyskom-signal-reformatted-text (how)
......
...@@ -215,6 +215,8 @@ ...@@ -215,6 +215,8 @@
[kom-show-imported-importer] [kom-show-imported-importer]
[kom-show-imported-external-recipients] [kom-show-imported-external-recipients]
[kom-show-imported-envelope-sender] [kom-show-imported-envelope-sender]
[kom-text-properties]
[kom-fontify-text]
[kom-smileys] [kom-smileys]
[kom-w3-simplify-body] [kom-w3-simplify-body]
[kom-format-html-authors] [kom-format-html-authors]
...@@ -902,6 +904,8 @@ All key bindings: ...@@ -902,6 +904,8 @@ All key bindings:
(const (new-window-netscape new-window)) (const (new-window-netscape new-window))
(const (new-tab-netscape new-tab))))) (const (new-tab-netscape new-tab)))))
(kom-auto-confirm-new-conferences (toggle (yes no))) (kom-auto-confirm-new-conferences (toggle (yes no)))
(kom-text-properties (toggle (yes no)))
(kom-fontify-text (toggle (yes no)))
)) ))
(defvar lyskom-widget-functions (defvar lyskom-widget-functions
......
...@@ -4311,6 +4311,14 @@ ta fram menyer.") ...@@ -4311,6 +4311,14 @@ ta fram menyer.")
Om den hr instllningen r pslagen s kommer kommandona \"Lista Om den hr instllningen r pslagen s kommer kommandona \"Lista
nya mten\" och \"Lista nya personer\" automatiskt markera nya nya mten\" och \"Lista nya personer\" automatiskt markera nya
mten och personer som knda.") mten och personer som knda.")
(kom-text-properties-doc . "\
Om den hr instllningen r p s kommer klienten att anvnda olika
typsnitt och frger till olika saker. Till exempel kommer textnummer
och annat man kan klicka p att visas med en avvikande frg.")
(kom-fontify-text-doc . "\
Om den hr instllningen r p s kommer fet och kursiv stil att
anvndas i inlggstext. Till exempel s kommer ord och fraser
omgivna av understrykningstecken att visas med kursiv text.")
;; ;;
;; Tags for variables ;; Tags for variables
...@@ -4519,6 +4527,8 @@ ta fram menyer.") ...@@ -4519,6 +4527,8 @@ ta fram menyer.")
(kom-highlight-conferences-tag . "Frglggning av namn:") (kom-highlight-conferences-tag . "Frglggning av namn:")
(kom-netscape-variant-tag . "Var ska Netscape/Mozilla ppna URLer:") (kom-netscape-variant-tag . "Var ska Netscape/Mozilla ppna URLer:")
(kom-auto-confirm-new-conferences-tag . "Markera alltid nya mten och personer som knda:") (kom-auto-confirm-new-conferences-tag . "Markera alltid nya mten och personer som knda:")
(kom-text-properties-tag . "Anvnd typsnitt och frger:")
(kom-fontify-text-tag . "Visa fetstil och kursiv text i inlgg:")
) )
) )
......
...@@ -2072,7 +2072,18 @@ When set to `t', the client will freely use text properties, like ...@@ -2072,7 +2072,18 @@ When set to `t', the client will freely use text properties, like
fonts. When set to `nil', the client will not use text properties. fonts. When set to `nil', the client will not use text properties.
This will disable all font usage and clickable stuff. This will disable all font usage and clickable stuff.
Values other than `t' and `nil' are reserved for future use.") Values other than `t' and `nil' are reserved for future use."
server)
(def-kom-var kom-fontify-text t
"**Controls whether plaintext messages are fontified.
When set to `t', the client will make words and phrases delimited by
asterisks bold, and words and phrases delimited by underscore italic.
Other similar features may be added in the future.
Values other than `t' or `nil' are reserved for future use."
server)
(def-kom-var kom-use-button-hints t (def-kom-var kom-use-button-hints t
......
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