Thanks for any tip.
| The gnus screenshot at http://en.wikipedia.org/wiki/Gnus
| is awesome! How can I get my gnus to look like that?
|
| Thanks for any tip.
Get rid of the "BlunderBird" in the Screenshot
--
SlackRat - 4Q to Reply
The colours are a matter of customizing faces
For the unicode thread trees I have this in my .gnus
(when window-system
(setq gnus-sum-thread-tree-indent " ")
(setq gnus-sum-thread-tree-root "● ")
(setq gnus-sum-thread-tree-false-root "◯ ")
(setq gnus-sum-thread-tree-single-indent "◎ ")
(setq gnus-sum-thread-tree-leaf-with-other "├─► ")
(setq gnus-sum-thread-tree-vertical "│")
(setq gnus-sum-thread-tree-single-leaf "╰─► "))
hth
Glyn
> rtra <rui...@gmail.com> writes:
>
>> The gnus screenshot at http://en.wikipedia.org/wiki/Gnus
>> is awesome! How can I get my gnus to look like that?
>>
>> Thanks for any tip.
>
> The colours are a matter of customizing faces
>
> For the unicode thread trees I have this in my .gnus
>
> (when window-system
> (setq gnus-sum-thread-tree-indent " ")
> (setq gnus-sum-thread-tree-root "● ")
> (setq gnus-sum-thread-tree-false-root "◯ ")
> (setq gnus-sum-thread-tree-single-indent "◎ ")
> (setq gnus-sum-thread-tree-leaf-with-other "├─? ")
> (setq gnus-sum-thread-tree-vertical "│")
> (setq gnus-sum-thread-tree-single-leaf "╰─? "))
OK, I put this in my .gnus file and I still don't get a thread window
like that. What else do you have to do?
--
% Randy Yates % "...the answer lies within your soul
%% Fuquay-Varina, NC % 'cause no one knows which side
%%% 919-577-9882 % the coin will fall."
%%%% <ya...@ieee.org> % 'Big Wheels', *Out of the Blue*, ELO
http://www.digitalsignallabs.com
> Glyn Millington <wista...@linuxmail.org> writes:
>
>> rtra <rui...@gmail.com> writes:
>>
>>> The gnus screenshot at http://en.wikipedia.org/wiki/Gnus
>>> is awesome! How can I get my gnus to look like that?
>>>
>>> Thanks for any tip.
>>
>> The colours are a matter of customizing faces
>>
>> For the unicode thread trees I have this in my .gnus
>>
>> (when window-system
>> (setq gnus-sum-thread-tree-indent " ")
>> (setq gnus-sum-thread-tree-root "● ")
>> (setq gnus-sum-thread-tree-false-root "◯ ")
>> (setq gnus-sum-thread-tree-single-indent "◎ ")
>> (setq gnus-sum-thread-tree-leaf-with-other "├─? ")
>> (setq gnus-sum-thread-tree-vertical "│")
>> (setq gnus-sum-thread-tree-single-leaf "╰─? "))
>
> OK, I put this in my .gnus file and I still don't get a thread window
> like that. What else do you have to do?
Change also gnus-summary-line-format to include %B (replace %I by %B).
P.S.
When I tested it I had problems with *bold* version of right arrow.
( square instead of bold version - something with font? )
--
[pl>en Andrew] Andrzej Adam Filip : an...@priv.onet.pl : an...@xl.wp.pl
"Well I don't see why I have to make one man miserable when I can make so many
men happy."
-- Ellyn Mustard, about marriage
That's my screen shot. The settings are as follows:
;;; threading
(setq gnus-face-9 'font-lock-warning-face)
(setq gnus-face-10 'shadow)
(defun sdl-gnus-summary-line-format-ascii nil
(interactive)
(setq gnus-summary-line-format
(concat
"%0{%U%R%z%}" "%10{|%}" "%1{%d%}" "%10{|%}"
"%9{%u&@;%}" "%(%-15,15f %)" "%10{|%}" "%4k" "%10{|%}"
"%2u&score;" "%10{|%}" "%10{%B%}" "%s\n"))
(setq
gnus-sum-thread-tree-single-indent "o "
gnus-sum-thread-tree-false-root "x "
gnus-sum-thread-tree-root "* "
gnus-sum-thread-tree-vertical "| "
gnus-sum-thread-tree-leaf-with-other "|-> "
gnus-sum-thread-tree-single-leaf "+-> " ;; "\\" is _one_ char
gnus-sum-thread-tree-indent " ")
(gnus-message 5 "Using ascii tree layout."))
(defun sdl-gnus-summary-line-format-unicode nil
(interactive)
(setq gnus-summary-line-format
(concat
"%0{%U%R%z%}" "%10{│%}" "%1{%d%}" "%10{│%}"
"%9{%u&@;%}" "%(%-15,15f %)" "%10{│%}" "%4k" "%10{│%}"
"%2u&score;" "%10{│%}" "%10{%B%}" "%s\n"))
(setq
gnus-sum-thread-tree-single-indent "◎ "
gnus-sum-thread-tree-false-root " "
gnus-sum-thread-tree-root "┌ "
gnus-sum-thread-tree-vertical "│"
gnus-sum-thread-tree-leaf-with-other "├─>"
gnus-sum-thread-tree-single-leaf "└─>"
gnus-sum-thread-tree-indent " ")
(gnus-message 5 "Using ascii tree layout with unicode chars."))
(sdl-gnus-summary-line-format-unicode)
--
.: Leo :. [ sdl.web AT gmail.com ] .: [ GPG Key: 9283AA3F ] :.
Use the best OS -- http://www.fedoraproject.org/
> Randy Yates <ya...@ieee.org> writes:
>> Glyn Millington <wista...@linuxmail.org> writes:
>>> (when window-system
A test for the ability to display UTF-8 might be more suitable.
[...]
I think we should include some example for nice Unicode arrows and
thelike somewhere.
> P.S.
> When I tested it I had problems with *bold* version of right arrow.
> ( square instead of bold version - something with font? )
Yes.
[ Translated from my posting
<news:v9eje2w...@marauder.physik.uni-ulm.de> in
de.comp.editoren: ]
Instead of %B, you may use %3{%B%} to specify `gnus-face-3' for the
arrows. (Note: `gnus-face-3' is a *variable* and its *value* is a
face.)
(defface my-arrow
'((t :inherit fixed-pitch))
"Face for Unicode arrows.")
(setq gnus-face-3 'my-arrow)
If fixed-pitch doesn't produce correct, unbold arrows, you may use
`M-x customize-face RET my-arrow RET' to specify a different font.
Bye, Reiner.
--
,,,
(o o)
---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/
> ;;; threading
>
> (defun sdl-gnus-summary-line-format-unicode nil
> (interactive)
> (setq gnus-summary-line-format
> (concat
> "%0{%U%R%z%}" "%10{│%}" "%1{%d%}" "%10{│%}"
> "%9{%u&@;%}" "%(%-15,15f %)" "%10{│%}" "%4k" "%10{│%}"
> "%2u&score;" "%10{│%}" "%10{%B%}" "%s\n"))
> ;; ...
Hi!
Thanks for providing this formatting information. Could you please also
post the code that allows %u&@ and %u&score to work in the summary
display?
Thanks again,
/au
--
Austin Frank
http://aufrank.net
GPG Public Key (D7398C2F): http://aufrank.net/personal.asc
I have decided to use ">" as right arrow instead of "utf arrow".
--
[pl>en Andrew] Andrzej Adam Filip : an...@priv.onet.pl : an...@xl.wp.pl
The computer should be doing the hard work. That's what it's paid to do,
after all.
-- Larry Wall in <1997090123...@wall.org>
>> (when window-system
>
> A test for the ability to display UTF-8 might be more
> suitable.
Sorry for my ignorance on fonts manipulation, but could give
hints on how such a test can be written?
Thanks a lot,
Seb
--
Sébastien Vauban
Could you please also post gnus-user-format-function-@ and gnus-user-
format-function-score as it seems that they are needed too?
Thanks very much,
Christos
> Could you please also post gnus-user-format-function-@ and gnus-user-
> format-function-score as it seems that they are needed too?
Have you received anything?
Btw, which coding system should be specified to save .gnus.el with
those definitions?
Cheers,
--
Paulo Jorge Matos - pocm at soton.ac.uk
http://www.personal.soton.ac.uk/pocm
PhD Student @ ECS
University of Southampton, UK
Leo> That's my screen shot. The settings are as follows:
Thanks for sharing your settings, Leo. They are nice.
Leo> ;;; threading (setq gnus-face-9 'font-lock-warning-face) (setq
Leo> gnus-face-10 'shadow) (defun sdl-gnus-summary-line-format-ascii nil
Leo> (interactive) (setq gnus-summary-line-format (concat "%0{%U%R%z%}"
Leo> "%10{|%}" "%1{%d%}" "%10{|%}" "%9{%u&@;%}" "%(%-15,15f %)"
Leo> "%10{|%}" "%4k" "%10{|%}" "%2u&score;" "%10{|%}" "%10{%B%}"
Can you please share the code behind &@ and &score? Your code/settings
do not work without that.
Thank you,
--
Manish
Life is beautiful.*
* Conditions apply.
Hi, I googled around and found the required functions:
(defun gnus-user-format-function-@ (header)
"Display @ for message with attachment in summary line.
You need to add `Content-Type' to `nnmail-extra-headers' and
`gnus-extra-headers', see Info node `(gnus)To From Newsgroups'."
(let ((case-fold-search t)
(ctype (or (cdr (assq 'Content-Type (mail-header-extra header)))
"text/plain"))
indicator)
(when (string-match "^multipart/mixed" ctype)
(setq indicator "@"))
(if indicator
indicator
" ")))
(defalias 'gnus-user-format-function-score 'rs-gnus-summary-line-score)
(defun rs-gnus-summary-line-score (head)
"Return pretty-printed version of article score.
See (info \"(gnus)Group Line Specification\")."
(let ((c (gnus-summary-article-score (mail-header-number head))))
;; (gnus-message 9 "c=%s chars in article %s" c (mail-header-number head))
(cond ((< c -1000) "vv")
((< c -100) " v")
((< c -10) "--")
((< c 0) " -")
((= c 0) " ")
((< c 10) " +")
((< c 100) "++")
((< c 1000) " ^")
(t "^^"))))
Michael