From: Thien-Thi Nguyen <ttn@surf.glug.org>
Cc: emacs-devel@gnu.org
Subject: Re: Possible change to startup.el
Date: Thu, 31 Mar 2005 00:47:44 +0200 [thread overview]
Message-ID: <E1DGlyS-0003Is-00@surf.glug.org> (raw)
In-Reply-To: message from Richard Stallman on Fri, 25 Mar 2005 01:43:07 -0500
From: Richard Stallman <rms@gnu.org>
Date: Fri, 25 Mar 2005 01:43:07 -0500
We could make that a general rule: every tutorial translation must
start with a sentence that translates "Emacs tutorial".
sorry, i misunderstood this simple sentence and implemented the wrong
thing (gotta slow down sometimes and be more careful). please find
below a revised patch that uses the first sentence of the file as the
text for the splash screen. unfortunately, i prematurely committed
changes to the actual TUTORIAL files due to concerns that translators
might not see the proposed changes. i think it's best that i stick w/
the code and let Marcelo and others handle updates to those files. :-(
thi
_____________________________________________
cvs -f diff -c startup.el
diff -c -r1.340 startup.el
*** startup.el 6 Mar 2005 00:48:45 -0000 1.340
--- startup.el 30 Mar 2005 22:33:59 -0000
***************
*** 1004,1012 ****
using the mouse.\n\n"
:face (variable-pitch :weight bold)
"Important Help menu items:\n"
! :face variable-pitch "\
! Emacs Tutorial\tLearn-by-doing tutorial for using Emacs efficiently
! Emacs FAQ\tFrequently asked questions and answers
Read the Emacs Manual\tView the Emacs manual using Info
\(Non)Warranty\tGNU Emacs comes with "
:face (variable-pitch :slant oblique)
--- 1004,1046 ----
using the mouse.\n\n"
:face (variable-pitch :weight bold)
"Important Help menu items:\n"
! :face variable-pitch
! (lambda ()
! (concat
! (let ((tut (expand-file-name
! (or (get-language-info current-language-environment
! 'tutorial)
! "TUTORIAL")
! data-directory)))
! (with-temp-buffer
! (insert-file-contents tut nil 0 80)
! (search-forward ".")
! (buffer-substring (point-min) (point))))
! "\t"))
! :face (variable-pitch :weight bold)
! (lambda ()
! (if (not data-directory)
! "Learn-by-doing tutorial for using Emacs efficiently."
! (let* ((tut (get-language-info current-language-environment
! 'tutorial))
! (en-prefix (if (or (not tut) (string= "TUTORIAL" tut))
! ""
! "(Emacs Tutorial) "))
! (break (- (length en-prefix)))
! langs s len)
! (dolist (filename (directory-files data-directory))
! (when (string-match "TUTORIAL.\\([a-z][a-z]\\(_[A-Z]+\\)*$\\)"
! filename)
! (push (match-string 1 filename) langs)))
! (setq s (mapconcat 'identity (sort (cons "en" langs) 'string<)
! ", ")
! len (length s))
! (while (and (< (setq break (+ 50 break)) len)
! (setq break (string-match ", " s break)))
! (aset s break ?\n)
! (aset s (1+ break) ?\t))
! (concat en-prefix s "\n"))))
! :face variable-pitch "\
Read the Emacs Manual\tView the Emacs manual using Info
\(Non)Warranty\tGNU Emacs comes with "
:face (variable-pitch :slant oblique)
***************
*** 1069,1082 ****
(defun fancy-splash-insert (&rest args)
"Insert text into the current buffer, with faces.
! Arguments from ARGS should be either strings or pairs `:face FACE',
where FACE is a valid face specification, as it can be used with
`put-text-properties'."
(let ((current-face nil))
(while args
(if (eq (car args) :face)
(setq args (cdr args) current-face (car args))
! (insert (propertize (car args)
'face current-face
'help-echo fancy-splash-help-echo)))
(setq args (cdr args)))))
--- 1103,1120 ----
(defun fancy-splash-insert (&rest args)
"Insert text into the current buffer, with faces.
! Arguments from ARGS should be either strings, functions called
! with no args that return a string, or pairs `:face FACE',
where FACE is a valid face specification, as it can be used with
`put-text-properties'."
(let ((current-face nil))
(while args
(if (eq (car args) :face)
(setq args (cdr args) current-face (car args))
! (insert (propertize (let ((it (car args)))
! (if (functionp it)
! (funcall it)
! it))
'face current-face
'help-echo fancy-splash-help-echo)))
(setq args (cdr args)))))
next reply other threads:[~2005-03-30 22:47 UTC|newest]
Thread overview: 85+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-03-30 22:47 Thien-Thi Nguyen [this message]
2005-03-30 23:38 ` Possible change to startup.el David Kastrup
2005-04-01 4:11 ` Richard Stallman
2005-03-31 1:40 ` Miles Bader
2005-03-31 1:02 ` Marcelo Toledo
2005-03-31 3:20 ` Miles Bader
2005-03-31 2:21 ` Marcelo Toledo
2005-03-31 6:59 ` Juri Linkov
2005-04-01 4:11 ` Richard Stallman
-- strict thread matches above, loose matches on Subject: below --
2005-04-03 10:31 Thien-Thi Nguyen
2005-04-07 6:55 ` Juri Linkov
2005-04-08 3:22 ` Richard Stallman
2005-04-08 6:31 ` Marcelo Toledo
2005-04-08 7:27 ` Kenichi Handa
2005-04-08 18:32 ` Juri Linkov
2005-04-08 18:43 ` Marcelo Toledo
2005-04-10 1:54 ` Richard Stallman
2005-04-08 10:44 ` Eli Zaretskii
2005-04-08 18:32 ` Juri Linkov
2005-04-09 8:00 ` Eli Zaretskii
2005-04-13 23:58 ` David Kastrup
2005-04-14 4:02 ` Eli Zaretskii
2005-04-14 9:46 ` David Kastrup
2005-04-15 8:15 ` Eli Zaretskii
2005-04-14 19:03 ` Richard Stallman
2005-04-14 23:40 ` David Kastrup
2005-04-17 1:49 ` Richard Stallman
2005-04-17 9:31 ` David Kastrup
2005-04-17 19:20 ` Richard Stallman
2005-04-17 19:51 ` David Kastrup
2005-04-10 1:54 ` Richard Stallman
2005-03-31 12:01 Thien-Thi Nguyen
2005-03-31 12:59 ` Kim F. Storm
2005-03-31 13:43 ` David Kastrup
2005-03-31 22:19 ` Kim F. Storm
2005-04-01 4:10 ` Richard Stallman
2005-04-01 4:03 ` Juri Linkov
2005-04-03 5:20 ` Richard Stallman
2005-03-31 11:37 Thien-Thi Nguyen
2005-03-31 12:05 ` Miles Bader
2005-03-31 13:32 ` Thien-Thi Nguyen
2005-03-31 14:29 ` Miles Bader
2005-03-31 16:15 ` Thien-Thi Nguyen
2005-03-31 22:23 ` Miles Bader
2005-04-01 4:10 ` Richard Stallman
2005-03-25 18:07 Thien-Thi Nguyen
2005-03-27 3:52 ` Richard Stallman
2005-03-27 23:15 ` Juri Linkov
2005-03-28 22:53 ` Richard Stallman
2005-03-29 20:19 ` Thien-Thi Nguyen
2005-03-30 4:08 ` Marcelo Toledo
2005-03-30 9:42 ` Thien-Thi Nguyen
2005-03-24 10:49 Thien-Thi Nguyen
2005-03-24 19:05 ` Miles Bader
2005-03-25 6:43 ` Richard Stallman
2005-03-21 18:44 David Kastrup
2005-03-21 20:50 ` Thien-Thi Nguyen
2005-03-21 21:10 ` David Kastrup
2005-03-21 21:25 ` Andreas Schwab
2005-03-21 22:14 ` David Kastrup
2005-03-22 0:03 ` Andreas Schwab
2005-03-22 1:38 ` David Hansen
2005-03-23 18:25 ` James Cloos
2005-03-27 3:53 ` Richard Stallman
2005-03-22 4:55 ` Eli Zaretskii
2005-03-22 6:24 ` Miles Bader
2005-03-22 8:15 ` Kenichi Handa
2005-03-22 8:27 ` Miles Bader
2005-03-22 10:40 ` David Kastrup
2005-03-22 12:44 ` Jason Rumney
2005-03-22 20:31 ` Werner LEMBERG
2005-03-22 11:23 ` Kenichi Handa
2005-03-22 12:33 ` Juri Linkov
2005-03-22 19:32 ` Eli Zaretskii
2005-03-22 10:18 ` David Kastrup
2005-03-22 19:34 ` Eli Zaretskii
2005-03-22 22:24 ` David Kastrup
2005-03-22 20:44 ` Richard Stallman
2005-03-22 22:32 ` Thien-Thi Nguyen
2005-03-23 6:21 ` Richard Stallman
2005-03-23 13:55 ` Juri Linkov
2005-03-23 18:01 ` Werner LEMBERG
2005-03-25 12:51 ` Kenichi Handa
2005-03-23 20:25 ` Richard Stallman
2005-03-22 13:57 ` Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=E1DGlyS-0003Is-00@surf.glug.org \
--to=ttn@surf.glug.org \
--cc=emacs-devel@gnu.org \
--cc=ttn@glug.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).