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>
* Release of 0.47-BETA-2
......
......@@ -526,8 +526,10 @@ Non-nil NOBEEP means don't beep."
(t (lyskom-get-string 'unknown)))
message
when
'(face kom-dashed-lines-face)
'(face kom-text-body-face)))
(when kom-async-highlight-dashed-lines
'(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
(if (not nobeep) (lyskom-beep kom-ding-on-personal-messages sender))
(lyskom-format (lyskom-get-string-sol 'message-from)
......@@ -537,8 +539,10 @@ Non-nil NOBEEP means don't beep."
(t (lyskom-get-string 'unknown)))
message
when
'(face kom-dashed-lines-face)
'(face kom-text-body-face)))
(when kom-async-highlight-dashed-lines
'(face kom-async-dashed-lines-face))
(when kom-async-highlight-text-body
'(face kom-async-text-body-face))))
(t ; Group message
(if (not nobeep) (lyskom-beep kom-ding-on-group-messages recipient))
(lyskom-format (lyskom-get-string-sol 'message-from-to)
......@@ -552,8 +556,10 @@ Non-nil NOBEEP means don't beep."
(recipient recipient)
(t (lyskom-get-string 'unknown)))
when
'(face kom-dashed-lines-face)
'(face kom-text-body-face))))))
(when kom-async-highlight-dashed-lines
'(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."
(lyskom-get-string-sol 'message-sent-to-all))
lyskom-message-string
lyskom-message-recipient
'(face kom-dashed-lines-face)
'(face kom-text-body-face))
(when kom-async-highlight-dashed-lines
'(face kom-async-dashed-lines-face))
(when kom-async-highlight-text-body
'(face kom-async-text-body-face)))
lyskom-pers-no
kom-filter-outgoing-messages))
(lyskom-format-insert-before-prompt
......
......@@ -58,7 +58,7 @@ envcheck:
$(EMACS-BATCH) -l envcheck.el -f lyskom-check-environment
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)
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.")
(kom-highlight-text-body-doc . "\
When this is on, the text body is shown with a different format than
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 . "\
When this is on, an [Add...] button will be shown after the list of
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.")
(kom-highlight-first-line-tag . "Color fist line:")
(kom-highlight-dashed-lines-tag . "Color dashed lines:")
(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:")
)
)
......
......@@ -185,6 +185,8 @@
[kom-highlight-first-line]
[kom-highlight-dashed-lines]
[kom-highlight-text-body]
[kom-async-highlight-dashed-lines]
[kom-async-highlight-text-body]
"\n"
[kom-dashed-lines]
[kom-long-lines]
......@@ -489,6 +491,8 @@ customize buffer but do not save them to the server."
(kom-highlight-first-line (toggle (on off)))
(kom-highlight-dashed-lines (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-write-texts-in-window (open-window))
(kom-list-membership-in-window (open-window))
......
......@@ -3566,6 +3566,12 @@ i servern. Annars sparas det i din .emacs.")
(kom-highlight-text-body-doc . "\
Om detta r pslaget s visas inlggstexter med ett annorlunda utseende
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 . "\
Om detta r pslaget s kommer knappen [Addera...] att visas efter
mottagare och tillggsinformation nr man skriver inlgg.")
......@@ -3741,6 +3747,8 @@ i servern. Annars sparas det i din .emacs.")
(kom-highlight-first-line-tag . "Annorlunda bakgrundsfrg p frsta raden:")
(kom-highlight-dashed-lines-tag . "Annorlunda bakgrundsfrg fre och efter 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:")
)
)
......
......@@ -930,7 +930,9 @@ in lyskom-face-schemes."
(unless (equal (lyskom-color-values (cdr (assq 'expected-background properties)))
(lyskom-color-values background))
(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)
......
......@@ -152,6 +152,22 @@ other than t or nil are reserved for future use."
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
"*If t, list extended status information for all objects in LysKOM.
Extended status information include such information as read FAQs.
......@@ -2677,7 +2693,9 @@ the value of kom-tell-phrases for fun.")
kom-text-face kom-subject-face kom-text-no-face
kom-friends-face kom-morons-face kom-presence-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.")
(defvar kom-face-schemes nil
......@@ -2685,7 +2703,6 @@ the value of kom-tell-phrases for fun.")
(def-kom-var lyskom-face-schemes
'((default
(kom-text-body-face nil nil "#f8f8ff")
(kom-active-face default "blue4" nil)
(kom-url-face default "BlueViolet" nil)
(kom-me-face bold "blue3" "lavender")
......@@ -2701,6 +2718,9 @@ the value of kom-tell-phrases for fun.")
(kom-first-line-face bold nil nil)
(kom-dim-face default "gray" nil)
(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")
)
(bark
......@@ -2715,6 +2735,8 @@ the value of kom-tell-phrases for fun.")
(kom-presence-face default "Gold" nil)
(kom-first-line-face bold nil nil)
(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-dim-face nil "DarkSlateGray")
(kom-friends-face nil "Gold" "Black")
......@@ -2723,7 +2745,6 @@ the value of kom-tell-phrases for fun.")
(property expected-background "black")
)
(black-and-tan
(kom-text-body-face nil nil "#f8f8f0")
(kom-active-face default "#602000" nil)
(kom-url-face default "#800040" nil)
(kom-me-face bold "#602000" "#f0f0e0")
......@@ -2738,11 +2759,13 @@ the value of kom-tell-phrases for fun.")
(kom-warning-face bold "red" nil)
(kom-first-line-face bold nil nil)
(kom-dim-face default "gray" nil)
(kom-text-body-face nil nil "#f8f8f0")
(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")
)
(inverse
(kom-text-body-face nil nil "#080808")
(kom-active-face default "lightblue" nil)
(kom-url-face default "Moccasin" nil)
(kom-me-face bold "gold" "black")
......@@ -2757,11 +2780,16 @@ the value of kom-tell-phrases for fun.")
(kom-warning-face bold "red" nil)
(kom-first-line-face nil nil "black")
(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")
)
(monochrome
(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-active-face default nil nil)
(kom-url-face default nil nil)
......@@ -2780,7 +2808,6 @@ the value of kom-tell-phrases for fun.")
(property expected-background "white")
)
(minimal
(kom-text-body-face nil nil nil)
(kom-active-face default nil nil)
(kom-url-face default nil nil)
(kom-me-face default nil "lavender")
......@@ -2795,11 +2822,13 @@ the value of kom-tell-phrases for fun.")
(kom-warning-face bold nil nil)
(kom-first-line-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)
(property expected-background "white")
)
(highlight
(kom-text-body-face nil nil "#f8f8ff")
(kom-active-face default nil "aliceblue")
(kom-url-face default nil "yellow")
(kom-me-face bold "darkblue" "thistle")
......@@ -2814,6 +2843,9 @@ the value of kom-tell-phrases for fun.")
(kom-warning-face bold "yellow" "red")
(kom-first-line-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)
(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