Commit 2e23470d authored by David Byers's avatar David Byers
Browse files

Added faces and settings for highlighting asynchronous messages.

Made highlighting of asynchronous messages optional.
parent 292a6418
2002-06-03 David Byers <david.byers@swipnet.se>
* commands2.el (lyskom-send-message): Use new faces for dashed
lines and message bodies.
* vars.el.in (kom-async-highlight-dashed-lines): New variable.
(kom-async-highlight-text-body): New variable.
(lyskom-face-schemes): Added kom-async-dashed-lines-face and
kom-async-text-body-face to all schemes.
(lyskom-faces): Added kom-async-dashed-lines-face and
kom-async-text-body-face.
* utilities.el (lyskom-set-face-scheme): Set up faces for async
messages.
* distribution-Makefile.in (lyskom-@@CLIENTVERSION@@.elc): Load
help-compile.el when compiling.
2002-06-02 David Byers <david.byers@swipnet.se> 2002-06-02 David Byers <david.byers@swipnet.se>
* Release of 0.47-BETA-2 * Release of 0.47-BETA-2
......
...@@ -526,8 +526,10 @@ Non-nil NOBEEP means don't beep." ...@@ -526,8 +526,10 @@ Non-nil NOBEEP means don't beep."
(t (lyskom-get-string 'unknown))) (t (lyskom-get-string 'unknown)))
message message
when when
'(face kom-dashed-lines-face) (when kom-async-highlight-dashed-lines
'(face kom-text-body-face))) '(face kom-async-dashed-lines-face))
(when kom-async-highlight-text-body
'(face kom-async-text-body-face))))
((= (conf-stat->conf-no recipient) lyskom-pers-no) ; Private ((= (conf-stat->conf-no recipient) lyskom-pers-no) ; Private
(if (not nobeep) (lyskom-beep kom-ding-on-personal-messages sender)) (if (not nobeep) (lyskom-beep kom-ding-on-personal-messages sender))
(lyskom-format (lyskom-get-string-sol 'message-from) (lyskom-format (lyskom-get-string-sol 'message-from)
...@@ -537,8 +539,10 @@ Non-nil NOBEEP means don't beep." ...@@ -537,8 +539,10 @@ Non-nil NOBEEP means don't beep."
(t (lyskom-get-string 'unknown))) (t (lyskom-get-string 'unknown)))
message message
when when
'(face kom-dashed-lines-face) (when kom-async-highlight-dashed-lines
'(face kom-text-body-face))) '(face kom-async-dashed-lines-face))
(when kom-async-highlight-text-body
'(face kom-async-text-body-face))))
(t ; Group message (t ; Group message
(if (not nobeep) (lyskom-beep kom-ding-on-group-messages recipient)) (if (not nobeep) (lyskom-beep kom-ding-on-group-messages recipient))
(lyskom-format (lyskom-get-string-sol 'message-from-to) (lyskom-format (lyskom-get-string-sol 'message-from-to)
...@@ -552,8 +556,10 @@ Non-nil NOBEEP means don't beep." ...@@ -552,8 +556,10 @@ Non-nil NOBEEP means don't beep."
(recipient recipient) (recipient recipient)
(t (lyskom-get-string 'unknown))) (t (lyskom-get-string 'unknown)))
when when
'(face kom-dashed-lines-face) (when kom-async-highlight-dashed-lines
'(face kom-text-body-face)))))) '(face kom-async-dashed-lines-face))
(when kom-async-highlight-text-body
'(face kom-async-text-body-face)))))))
......
...@@ -644,8 +644,10 @@ send. If DONTSHOW is non-nil, don't display the sent message." ...@@ -644,8 +644,10 @@ send. If DONTSHOW is non-nil, don't display the sent message."
(lyskom-get-string-sol 'message-sent-to-all)) (lyskom-get-string-sol 'message-sent-to-all))
lyskom-message-string lyskom-message-string
lyskom-message-recipient lyskom-message-recipient
'(face kom-dashed-lines-face) (when kom-async-highlight-dashed-lines
'(face kom-text-body-face)) '(face kom-async-dashed-lines-face))
(when kom-async-highlight-text-body
'(face kom-async-text-body-face)))
lyskom-pers-no lyskom-pers-no
kom-filter-outgoing-messages)) kom-filter-outgoing-messages))
(lyskom-format-insert-before-prompt (lyskom-format-insert-before-prompt
......
...@@ -58,7 +58,7 @@ envcheck: ...@@ -58,7 +58,7 @@ envcheck:
$(EMACS-BATCH) -l envcheck.el -f lyskom-check-environment $(EMACS-BATCH) -l envcheck.el -f lyskom-check-environment
lyskom-@@CLIENTVERSION@@.elc: lyskom-@@CLIENTVERSION@@.el lyskom-@@CLIENTVERSION@@.elc: lyskom-@@CLIENTVERSION@@.el
$(EMACS-BATCH) -l lpath.el -f batch-byte-compile lyskom-@@CLIENTVERSION@@.el $(EMACS-BATCH) -l lpath.el -l help-compile.el -f batch-byte-compile lyskom-@@CLIENTVERSION@@.el
lyskom-@@CLIENTVERSION@@.el: $(HEADER) $(LANGUAGE-EL) $(SOURCES) lyskom-@@CLIENTVERSION@@.el: $(HEADER) $(LANGUAGE-EL) $(SOURCES)
cat $(HEADER) $(LANGUAGE-EL) $(SOURCES) >lyskom-@@CLIENTVERSION@@.el cat $(HEADER) $(LANGUAGE-EL) $(SOURCES) >lyskom-@@CLIENTVERSION@@.el
......
...@@ -3506,6 +3506,12 @@ be saved in the server. Otherwise it will be saved in your .emacs.") ...@@ -3506,6 +3506,12 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-highlight-text-body-doc . "\ (kom-highlight-text-body-doc . "\
When this is on, the text body is shown with a different format than When this is on, the text body is shown with a different format than
normal text.") normal text.")
(kom-async-highlight-dashed-lines-doc . "\
When this is on, the lines before and after personal, group- and alarm
messages are shown with a different format than normal text.")
(kom-async-highlight-text-body-doc . "\
When this is on, the body of personal, group- and alarm messages are
shown with a different format than normal text.")
(kom-edit-hide-add-button-doc . "\ (kom-edit-hide-add-button-doc . "\
When this is on, an [Add...] button will be shown after the list of When this is on, an [Add...] button will be shown after the list of
recipients and auxiliary information when writing a new text.") recipients and auxiliary information when writing a new text.")
...@@ -3681,6 +3687,8 @@ be saved in the server. Otherwise it will be saved in your .emacs.") ...@@ -3681,6 +3687,8 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-highlight-first-line-tag . "Color fist line:") (kom-highlight-first-line-tag . "Color fist line:")
(kom-highlight-dashed-lines-tag . "Color dashed lines:") (kom-highlight-dashed-lines-tag . "Color dashed lines:")
(kom-highlight-text-body-tag . "Color text backgrounds:") (kom-highlight-text-body-tag . "Color text backgrounds:")
(kom-async-highlight-dashed-lines-tag . "Color dashed lines around messages:")
(kom-async-highlight-text-body-tag . "Color message backgrounds:")
(kom-edit-hide-add-button-tag . "Show add button when writing texts:") (kom-edit-hide-add-button-tag . "Show add button when writing texts:")
) )
) )
......
...@@ -185,6 +185,8 @@ ...@@ -185,6 +185,8 @@
[kom-highlight-first-line] [kom-highlight-first-line]
[kom-highlight-dashed-lines] [kom-highlight-dashed-lines]
[kom-highlight-text-body] [kom-highlight-text-body]
[kom-async-highlight-dashed-lines]
[kom-async-highlight-text-body]
"\n" "\n"
[kom-dashed-lines] [kom-dashed-lines]
[kom-long-lines] [kom-long-lines]
...@@ -489,6 +491,8 @@ customize buffer but do not save them to the server." ...@@ -489,6 +491,8 @@ customize buffer but do not save them to the server."
(kom-highlight-first-line (toggle (on off))) (kom-highlight-first-line (toggle (on off)))
(kom-highlight-dashed-lines (toggle (on off))) (kom-highlight-dashed-lines (toggle (on off)))
(kom-highlight-text-body (toggle (on off))) (kom-highlight-text-body (toggle (on off)))
(kom-async-highlight-dashed-lines (toggle (on off)))
(kom-async-highlight-text-body (toggle (on off)))
(kom-personal-messages-in-window (open-window)) (kom-personal-messages-in-window (open-window))
(kom-write-texts-in-window (open-window)) (kom-write-texts-in-window (open-window))
(kom-list-membership-in-window (open-window)) (kom-list-membership-in-window (open-window))
......
...@@ -3566,6 +3566,12 @@ i servern. Annars sparas det i din .emacs.") ...@@ -3566,6 +3566,12 @@ i servern. Annars sparas det i din .emacs.")
(kom-highlight-text-body-doc . "\ (kom-highlight-text-body-doc . "\
Om detta r pslaget s visas inlggstexter med ett annorlunda utseende Om detta r pslaget s visas inlggstexter med ett annorlunda utseende
n normal text.") n normal text.")
(kom-async-highlight-dashed-lines-doc . "\
Om detta r pslaget s visas raderna fre och efter personliga, grupp-
och alarmmeddelanden med ett annorlunda utseende n normal text.")
(kom-async-highlight-text-body-doc . "\
Om detta r pslaget s visas personliga, grupp- och alarmmeddelanden
med ett annorlunda utseende n normal text.")
(kom-edit-hide-add-button-doc . "\ (kom-edit-hide-add-button-doc . "\
Om detta r pslaget s kommer knappen [Addera...] att visas efter Om detta r pslaget s kommer knappen [Addera...] att visas efter
mottagare och tillggsinformation nr man skriver inlgg.") mottagare och tillggsinformation nr man skriver inlgg.")
...@@ -3741,6 +3747,8 @@ i servern. Annars sparas det i din .emacs.") ...@@ -3741,6 +3747,8 @@ i servern. Annars sparas det i din .emacs.")
(kom-highlight-first-line-tag . "Annorlunda bakgrundsfrg p frsta raden:") (kom-highlight-first-line-tag . "Annorlunda bakgrundsfrg p frsta raden:")
(kom-highlight-dashed-lines-tag . "Annorlunda bakgrundsfrg fre och efter inlggstexten:") (kom-highlight-dashed-lines-tag . "Annorlunda bakgrundsfrg fre och efter inlggstexten:")
(kom-highlight-text-body-tag . "Annorlunda bakgrundsfrg p inlggstexten:") (kom-highlight-text-body-tag . "Annorlunda bakgrundsfrg p inlggstexten:")
(kom-async-highlight-dashed-lines-tag . "Annorlunda bakgrundsfrg fre och efter meddelanden:")
(kom-async-highlight-text-body-tag . "Annorlunda bakgrundsfrg p meddelanden:")
(kom-edit-hide-add-button-tag . "Visa Addera-knappen nr man skriver inlgg:") (kom-edit-hide-add-button-tag . "Visa Addera-knappen nr man skriver inlgg:")
) )
) )
......
...@@ -930,7 +930,9 @@ in lyskom-face-schemes." ...@@ -930,7 +930,9 @@ in lyskom-face-schemes."
(unless (equal (lyskom-color-values (cdr (assq 'expected-background properties))) (unless (equal (lyskom-color-values (cdr (assq 'expected-background properties)))
(lyskom-color-values background)) (lyskom-color-values background))
(copy-face 'lyskom-strong-highlight-face 'kom-dashed-lines-face) (copy-face 'lyskom-strong-highlight-face 'kom-dashed-lines-face)
(copy-face 'lyskom-weak-highlight-face 'kom-text-body-face)))))) (copy-face 'lyskom-weak-highlight-face 'kom-text-body-face)
(copy-face 'lyskom-strong-highlight-face 'kom-async-dashed-lines-face)
(copy-face 'lyskom-weak-highlight-face 'kom-async-text-body-face))))))
(defun lyskom-face-resource (face-name attr type) (defun lyskom-face-resource (face-name attr type)
......
...@@ -152,6 +152,22 @@ other than t or nil are reserved for future use." ...@@ -152,6 +152,22 @@ other than t or nil are reserved for future use."
server server
) )
(def-kom-var kom-async-highlight-text-body t
"*If t, overlay kom-text-body-face on asynchronous messages in LysKOM.
When this is enabled, an overlay or extent will be created that may
override certain aspects of the underlying text's formatting. Values
other than t or nil are reserved for future use."
server
)
(def-kom-var kom-async-highlight-dashed-lines t
"*If t, overlay kom-dashed-lines-face on the lines surrounding messages.
When this is enabled, an overlay or extent will be created that may
override certain aspects of the underlying text's formatting. Values
other than t or nil are reserved for future use."
server
)
(def-kom-var kom-extended-status-information t (def-kom-var kom-extended-status-information t
"*If t, list extended status information for all objects in LysKOM. "*If t, list extended status information for all objects in LysKOM.
Extended status information include such information as read FAQs. Extended status information include such information as read FAQs.
...@@ -2677,7 +2693,9 @@ the value of kom-tell-phrases for fun.") ...@@ -2677,7 +2693,9 @@ the value of kom-tell-phrases for fun.")
kom-text-face kom-subject-face kom-text-no-face kom-text-face kom-subject-face kom-text-no-face
kom-friends-face kom-morons-face kom-presence-face kom-friends-face kom-morons-face kom-presence-face
kom-first-line-face kom-warning-face kom-mark-face kom-first-line-face kom-warning-face kom-mark-face
kom-text-body-face kom-dashed-lines-face kom-dim-face) kom-text-body-face kom-dashed-lines-face
kom-async-text-body-face kom-async-dashed-lines-face
kom-dim-face)
"This is a list of the faces that LysKOM uses.") "This is a list of the faces that LysKOM uses.")
(defvar kom-face-schemes nil (defvar kom-face-schemes nil
...@@ -2685,7 +2703,6 @@ the value of kom-tell-phrases for fun.") ...@@ -2685,7 +2703,6 @@ the value of kom-tell-phrases for fun.")
(def-kom-var lyskom-face-schemes (def-kom-var lyskom-face-schemes
'((default '((default
(kom-text-body-face nil nil "#f8f8ff")
(kom-active-face default "blue4" nil) (kom-active-face default "blue4" nil)
(kom-url-face default "BlueViolet" nil) (kom-url-face default "BlueViolet" nil)
(kom-me-face bold "blue3" "lavender") (kom-me-face bold "blue3" "lavender")
...@@ -2701,6 +2718,9 @@ the value of kom-tell-phrases for fun.") ...@@ -2701,6 +2718,9 @@ the value of kom-tell-phrases for fun.")
(kom-first-line-face bold nil nil) (kom-first-line-face bold nil nil)
(kom-dim-face default "gray" nil) (kom-dim-face default "gray" nil)
(kom-dashed-lines-face nil nil "#e8e8ff") (kom-dashed-lines-face nil nil "#e8e8ff")
(kom-text-body-face nil nil "#f8f8ff")
(kom-async-dashed-lines-face nil nil "#ffe8e8")
(kom-async-text-body-face nil nil "#fff8f8")
(property expected-background "white") (property expected-background "white")
) )
(bark (bark
...@@ -2715,6 +2735,8 @@ the value of kom-tell-phrases for fun.") ...@@ -2715,6 +2735,8 @@ the value of kom-tell-phrases for fun.")
(kom-presence-face default "Gold" nil) (kom-presence-face default "Gold" nil)
(kom-first-line-face bold nil nil) (kom-first-line-face bold nil nil)
(kom-dashed-lines-face nil nil "#0a0a0a") (kom-dashed-lines-face nil nil "#0a0a0a")
(kom-async-text-body-face nil nil "#181818")
(kom-async-dashed-lines-face nil nil "#0a0a0a")
(kom-text-body-face nil nil "#181818") (kom-text-body-face nil nil "#181818")
(kom-dim-face nil "DarkSlateGray") (kom-dim-face nil "DarkSlateGray")
(kom-friends-face nil "Gold" "Black") (kom-friends-face nil "Gold" "Black")
...@@ -2723,7 +2745,6 @@ the value of kom-tell-phrases for fun.") ...@@ -2723,7 +2745,6 @@ the value of kom-tell-phrases for fun.")
(property expected-background "black") (property expected-background "black")
) )
(black-and-tan (black-and-tan
(kom-text-body-face nil nil "#f8f8f0")
(kom-active-face default "#602000" nil) (kom-active-face default "#602000" nil)
(kom-url-face default "#800040" nil) (kom-url-face default "#800040" nil)
(kom-me-face bold "#602000" "#f0f0e0") (kom-me-face bold "#602000" "#f0f0e0")
...@@ -2738,11 +2759,13 @@ the value of kom-tell-phrases for fun.") ...@@ -2738,11 +2759,13 @@ the value of kom-tell-phrases for fun.")
(kom-warning-face bold "red" nil) (kom-warning-face bold "red" nil)
(kom-first-line-face bold nil nil) (kom-first-line-face bold nil nil)
(kom-dim-face default "gray" nil) (kom-dim-face default "gray" nil)
(kom-text-body-face nil nil "#f8f8f0")
(kom-dashed-lines-face nil nil "#f0f0e0") (kom-dashed-lines-face nil nil "#f0f0e0")
(kom-async-text-body-face nil nil "#f8f8f0")
(kom-async-dashed-lines-face nil nil "#f0f0e0")
(property expected-background "white") (property expected-background "white")
) )
(inverse (inverse
(kom-text-body-face nil nil "#080808")
(kom-active-face default "lightblue" nil) (kom-active-face default "lightblue" nil)
(kom-url-face default "Moccasin" nil) (kom-url-face default "Moccasin" nil)
(kom-me-face bold "gold" "black") (kom-me-face bold "gold" "black")
...@@ -2757,11 +2780,16 @@ the value of kom-tell-phrases for fun.") ...@@ -2757,11 +2780,16 @@ the value of kom-tell-phrases for fun.")
(kom-warning-face bold "red" nil) (kom-warning-face bold "red" nil)
(kom-first-line-face nil nil "black") (kom-first-line-face nil nil "black")
(kom-dim-face default "gray" nil) (kom-dim-face default "gray" nil)
(kom-dashed-lines-face nil nil black) (kom-dashed-lines-face nil nil "#101010")
(kom-text-body-face nil nil "#080808")
(kom-async-dashed-lines-face nil nil "#101030")
(kom-async-text-body-face nil nil "#000020")
(property expected-background "black") (property expected-background "black")
) )
(monochrome (monochrome
(kom-text-body-face nil nil nil) (kom-text-body-face nil nil nil)
(kom-async-dashed-lines-face nil nil nil)
(kom-async-text-body-face nil nil nil)
(kom-dashed-lines-face nil nil nil) (kom-dashed-lines-face nil nil nil)
(kom-active-face default nil nil) (kom-active-face default nil nil)
(kom-url-face default nil nil) (kom-url-face default nil nil)
...@@ -2780,7 +2808,6 @@ the value of kom-tell-phrases for fun.") ...@@ -2780,7 +2808,6 @@ the value of kom-tell-phrases for fun.")
(property expected-background "white") (property expected-background "white")
) )
(minimal (minimal
(kom-text-body-face nil nil nil)
(kom-active-face default nil nil) (kom-active-face default nil nil)
(kom-url-face default nil nil) (kom-url-face default nil nil)
(kom-me-face default nil "lavender") (kom-me-face default nil "lavender")
...@@ -2795,11 +2822,13 @@ the value of kom-tell-phrases for fun.") ...@@ -2795,11 +2822,13 @@ the value of kom-tell-phrases for fun.")
(kom-warning-face bold nil nil) (kom-warning-face bold nil nil)
(kom-first-line-face nil nil nil) (kom-first-line-face nil nil nil)
(kom-dashed-lines-face nil nil nil) (kom-dashed-lines-face nil nil nil)
(kom-text-body-face nil nil nil)
(kom-async-dashed-lines-face nil nil nil)
(kom-async-text-body-face nil nil nil)
(kom-dim-face default nil nil) (kom-dim-face default nil nil)
(property expected-background "white") (property expected-background "white")
) )
(highlight (highlight
(kom-text-body-face nil nil "#f8f8ff")
(kom-active-face default nil "aliceblue") (kom-active-face default nil "aliceblue")
(kom-url-face default nil "yellow") (kom-url-face default nil "yellow")
(kom-me-face bold "darkblue" "thistle") (kom-me-face bold "darkblue" "thistle")
...@@ -2814,6 +2843,9 @@ the value of kom-tell-phrases for fun.") ...@@ -2814,6 +2843,9 @@ the value of kom-tell-phrases for fun.")
(kom-warning-face bold "yellow" "red") (kom-warning-face bold "yellow" "red")
(kom-first-line-face nil nil "lavender") (kom-first-line-face nil nil "lavender")
(kom-dashed-lines-face nil nil "lavender") (kom-dashed-lines-face nil nil "lavender")
(kom-text-body-face nil nil "#f8f8ff")
(kom-async-dashed-lines-face nil nil "lavender")
(kom-async-text-body-face nil nil "#f8f8ff")
(kom-dim-face default "gray" nil) (kom-dim-face default "gray" nil)
(property expected-background "white") (property expected-background "white")
)) ))
......
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