all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Alexander Shukaev <haroogan@gmail.com>
To: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: help-gnu-emacs <help-gnu-emacs@gnu.org>
Subject: Re: Minibuffer tray to display current time and date
Date: Tue, 12 May 2015 13:34:20 +0200	[thread overview]
Message-ID: <CAKu-7WzBGGiJqoT7AQ4NYzUuZp6gfeNvYawfggSBfbP7S1ak9Q@mail.gmail.com> (raw)
In-Reply-To: <jwv8ud1c1u7.fsf-monnier+gmane.emacs.help@gnu.org>

On Wed, May 6, 2015 at 2:49 PM, Stefan Monnier <monnier@iro.umontreal.ca>
wrote:

> >                                          `((space :align-to
> >                                                   (- right
> >                                                      (length ,string)))))
>
> If you look at the documentation for the display property, and more
> specifically for the `space' specifications, you'll see that the HPOS
> element can be of the form:
>
>        EXPR ::= NUM | (NUM) | UNIT | ELEM | POS | IMAGE | FORM
>        NUM  ::= INTEGER | FLOAT | SYMBOL
>        UNIT ::= in | mm | cm | width | height
>        ELEM ::= left-fringe | right-fringe | left-margin | right-margin
>              |  scroll-bar | text
>        POS  ::= left | center | right
>        FORM ::= (NUM . EXPR) | (OP EXPR ...)
>        OP   ::= + | -
>
> So, as you can see, there is no "(length EXP)" form in there.So you need
> to use
>
>    ,(length string)
>
> instead of
>
>    (length ,string)
>
>
> -- Stefan
>

​
Thanks for this remark, Stefan.  I've modified the code and it looks
​now ​
as follows:

  (setq-default minibuffer-line-format
                `((:eval
                   (let ((string (concat
                                  (propertize (format-time-string
"%Y.%m.%d")
                                              'face
                                              'minibuffer-line-date)
                                  " "
                                  (propertize (format-time-string "%A")
                                              'face
                                              'minibuffer-line-weekday)
                                  " "
                                  (propertize (format-time-string "%R")
                                              'face
                                              'minibuffer-line-time))))
                     (concat (propertize " "
                                         'display
                                         `((space :align-to
                                                  (- right
                                                     right-fringe
                                                     ,(length string)))))
                             string)))))

It is aligned correctly now, but the faces are still not propagated, or
rather only the first one is (the default one from `display' alignment).  I
feel like I don't understand something fundamental about `eval:' or maybe
there is a bug here?  I'd be grateful if you could explain this problem.
Thank you.

Regards,
Alexander


  reply	other threads:[~2015-05-12 11:34 UTC|newest]

Thread overview: 37+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2015-04-22 16:07 Minibuffer tray to display current time and date Alexander Shukaev
2015-04-22 16:11 ` Eli Zaretskii
2015-04-22 16:17   ` Alexander Shukaev
2015-04-22 16:57     ` Michael Heerdegen
2015-04-22 17:05 ` Stefan Monnier
     [not found] ` <mailman.1379.1429722347.904.help-gnu-emacs@gnu.org>
2015-04-23  0:59   ` Emanuel Berg
2015-04-23 15:15     ` Jorge A. Alfaro-Murillo
     [not found]     ` <mailman.1461.1429802140.904.help-gnu-emacs@gnu.org>
2015-04-23 15:43       ` Emanuel Berg
2015-04-23 18:11         ` Jorge A. Alfaro-Murillo
     [not found]         ` <mailman.1474.1429812715.904.help-gnu-emacs@gnu.org>
2015-04-23 22:46           ` Emanuel Berg
2015-04-24 14:13             ` tomas
2015-04-24 14:41               ` Eli Zaretskii
2015-04-24 14:57                 ` Jorge A. Alfaro-Murillo
2015-04-24 16:48                   ` Eli Zaretskii
2015-04-24 20:18                     ` Jorge A. Alfaro-Murillo
     [not found]                     ` <mailman.1562.1429906736.904.help-gnu-emacs@gnu.org>
2015-04-25  1:11                       ` Dan Espen
2015-04-26  2:38                         ` Jorge A. Alfaro-Murillo
2015-04-26 14:48                           ` Eli Zaretskii
2015-04-26 15:52                             ` tomas
2015-04-26 16:05                               ` Eli Zaretskii
2015-04-27  0:36                             ` Stefan Monnier
2015-04-28 17:27                               ` Alexander Shukaev
2015-04-28 17:30                                 ` Eli Zaretskii
2015-04-28 17:32                                   ` Alexander Shukaev
2015-04-28 17:55                                     ` Eli Zaretskii
2015-04-29  0:53                                 ` Stefan Monnier
     [not found]                               ` <mailman.1824.1430242034.904.help-gnu-emacs@gnu.org>
2015-04-28 17:58                                 ` Emanuel Berg
2015-04-29  0:55                                   ` Stefan Monnier
2015-05-01  4:49                                     ` Alexander Shukaev
2015-05-01  4:54                                       ` Alexander Shukaev
2015-05-06 10:31                                         ` Alexander Shukaev
2015-05-06 12:49                                       ` Stefan Monnier
2015-05-12 11:34                                         ` Alexander Shukaev [this message]
2015-05-14 19:44                                           ` Stefan Monnier
2015-06-25 19:18                                             ` Alexander Shukaev
     [not found]                                         ` <mailman.2858.1431430470.904.help-gnu-emacs@gnu.org>
2015-05-12 17:24                                           ` Emanuel Berg
     [not found]                 ` <mailman.1537.1429888188.904.help-gnu-emacs@gnu.org>
2015-04-25  1:16                   ` Emanuel Berg

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

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=CAKu-7WzBGGiJqoT7AQ4NYzUuZp6gfeNvYawfggSBfbP7S1ak9Q@mail.gmail.com \
    --to=haroogan@gmail.com \
    --cc=help-gnu-emacs@gnu.org \
    --cc=monnier@iro.umontreal.ca \
    /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 external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.