[nXML-mode related]Q: How was modeline-process handled in XEmacs(was Re: Is there a working nxml-mode in XEmacs?)
7:12 a.m.
hi all,
first, status report for the porting work progress.
I've done some dirty work on porting the font-lock related code to
XEmacs, and it looks like I successed. nXML-mode's font-lock code do
not relay on font-lock-keywords, and it's fully self contained. So the
work is much easier than we thought of, I wrote some wrapper function
s(details please find out from
http://hg.linuxfire.com.cn/nxml-mode-fktpp/rev/d9127044a849 ) for exist
#'nxml-fontify-* and It just works. ;)
second, same as the mail-subject said.
How is 'modeline-process get processed when redisplay(forced) modeline?
nxml-mode used to setup a 'mode-line-process with a list:
(setq mode-line-process '(rng-validate-mode (:eval
(rng-compute-mode-line-string))))
which will update modeline major-mode status string whenever modeline
got redraw. But it seemd that it is not the case of XEmacs, I've also
tried the same way by the following code:
(setq modeline-process
`(rng-validate-mode ,(rng-compute-mode-line-string))))
The result is ... only the *FIRST* *TIME* value returned by #'
rng-compute-modeline-line-string get displayed in the modeline,
modeline never changed at following #'redraw-modeline call.
So, the question is... How is 'modeline-process get handled in XEmacs?
It's contents(list) just get evaluated once upon changeing the
'modeline-process? or will be evaluated whenever modeline get redraw? Is
there a way to emulated FSF behavior?
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
8:07 a.m.
It's me FKtPp ;) writes:
(setq modeline-process
`(rng-validate-mode ,(rng-compute-mode-line-string))))
This code will evaluate `(rng-compute-mode-line-string)' at setq
time. What does that evaluate to?
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
10:14 a.m.
Stephen J. Turnbull wrote:
It's me FKtPp ;) writes:
> (setq modeline-process
> `(rng-validate-mode ,(rng-compute-mode-line-string))))
This code will evaluate `(rng-compute-mode-line-string)' at setq
time. What does that evaluate to?
well it well be depends on the validation status of the buffer:
string: " Valided xx%" if in progress;
a list with first element is a extent: " Invalid"(with help-echo
messages and a keymap which can find the first invalid error point by
button1 click) if invalid;
string: " Valid" if valid already.
here's the actual code:
(defconst rng-invalid-indicator
(let* ((rng-modeline-process-string " Invalid")
(rng-modeline-process-extent (make-extent 2 8
rng-modeline-process-string))
(rng-modeline-process-map (make-keymap)))
(define-key rng-modeline-process-map [(button1)] 'rng-mouse-first-error)
(set-extent-properties rng-modeline-process-extent `(help-echo
"mouse-1: go to first error"
keymap ,rng-modeline-process-map))
(list rng-modeline-process-extent rng-modeline-process-string))
"Invalid modeline indicator for XEmacs nxml-mode")
(defun rng-compute-mode-line-string ()
(cond (rng-validate-timer
(concat " Validated:"
(number-to-string
;; Use floor rather than round because we want
;; to show 99% rather than 100% for changes near
;; the end.
(floor (if (eq (buffer-size) 0)
0.0
(/ (* (- rng-validate-up-to-date-end 1) 100.0)
(buffer-size)))))
"%%"))
((> rng-error-count 0)
; (concat " "
; (propertize "Invalid"
; 'help-echo "mouse-1: go to first error"
; 'local-map (make-mode-line-mouse-map
; 'mouse-1
; 'rng-mouse-first-error)))
rng-invalid-indicator)
(t " Valid")))
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
12:01 p.m.
It's me FKtPp ;) wrote:
Stephen J. Turnbull wrote:
> It's me FKtPp ;) writes:
>
> > (setq modeline-process
> > `(rng-validate-mode ,(rng-compute-mode-line-string))))
>
> This code will evaluate `(rng-compute-mode-line-string)' at setq
> time. What does that evaluate to?
>
>
well it well be depends on the validation status of the buffer:
string: " Valided xx%" if in progress;
a list with first element is a extent: " Invalid"(with help-echo
messages and a keymap which can find the first invalid error point by
button1 click) if invalid;
string: " Valid" if valid already.
Here goes the work around, I find out that setq modeline-process to
above value(whenever modeline was requested to be redraw by nxml) can
roughly emulate the FSF `:eval' though the percentage indicator will not
be very up to dated.
I've made this change to exist code... Sorry for my dirty work around,
but it's better than nothing.
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
5888
days inactive
5889
days old
3 comments
2 participants
participants (2)
-
FKtPp -
Stephen J. Turnbull