Re: [PATCH] emacs: wash: make word-wrap bound message width

[notmuch-archives.git] / 7c / 0ae93f652767c50ca32e1956da60419f02c43c

Return-Path: <daniel.schoepe@googlemail.com>\r
X-Original-To: notmuch@notmuchmail.org\r
Delivered-To: notmuch@notmuchmail.org\r
Received: from localhost (localhost [127.0.0.1])\r
        by olra.theworths.org (Postfix) with ESMTP id 272F8429E25\r
        for <notmuch@notmuchmail.org>; Wed,  6 Jul 2011 05:41:23 -0700 (PDT)\r
X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
X-Spam-Flag: NO\r
X-Spam-Score: -0.789\r
X-Spam-Level: \r
X-Spam-Status: No, score=-0.789 tagged_above=-999 required=5\r
        tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1,\r
        FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7, T_MIME_NO_TEXT=0.01]\r
        autolearn=disabled\r
Received: from olra.theworths.org ([127.0.0.1])\r
        by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
        with ESMTP id TSLxMfLMUHNb for <notmuch@notmuchmail.org>;\r
        Wed,  6 Jul 2011 05:41:22 -0700 (PDT)\r
Received: from mail-fx0-f46.google.com (mail-fx0-f46.google.com\r
        [209.85.161.46]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
        (No client certificate requested)\r
        by olra.theworths.org (Postfix) with ESMTPS id 99F5F431FB6\r
        for <notmuch@notmuchmail.org>; Wed,  6 Jul 2011 05:41:21 -0700 (PDT)\r
Received: by fxh19 with SMTP id 19so44674fxh.19\r
        for <notmuch@notmuchmail.org>; Wed, 06 Jul 2011 05:41:20 -0700 (PDT)\r
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;\r
        d=googlemail.com; s=gamma;\r
        h=from:to:subject:in-reply-to:references:user-agent:date:message-id\r
        :mime-version:content-type;\r
        bh=Q0aVt5KE5y6qfe3CGCybGlnLLw6kMTF7CsX3LFEBz/4=;\r
        b=LNccTmnzESHy1DXF1nMDl5m3vCbDgnlOxQ3tK4mKtBGr8Ac0TiFtI4VESEy2p9wVxn\r
        W+oIxJoNNR1acaA50CkHX11AbeSd6oOFWYE5ftTaS6zO6bt8rkUIFZVVOQIsJ2rKmC9L\r
        phsabWY7f1xqnQ2HHKZrg3KrHEeLXCeBhHT6k=\r
Received: by 10.223.76.212 with SMTP id d20mr13111271fak.5.1309956079824;\r
        Wed, 06 Jul 2011 05:41:19 -0700 (PDT)\r
Received: from localhost (s0744.dyn.hrz.tu-darmstadt.de [130.83.106.232])\r
        by mx.google.com with ESMTPS id b13sm5996244fab.12.2011.07.06.05.41.17\r
        (version=TLSv1/SSLv3 cipher=OTHER);\r
        Wed, 06 Jul 2011 05:41:18 -0700 (PDT)\r
From: Daniel Schoepe <daniel.schoepe@googlemail.com>\r
To: Michal Sojka <sojkam1@fel.cvut.cz>, notmuch@notmuchmail.org\r
Subject: Re: [PATCH v3 1/2] emacs: User-defined sections in notmuch-hello\r
In-Reply-To: <87fwmjabii.fsf@steelpick.2x.cz>\r
References: <1309379221-5617-1-git-send-email-daniel.schoepe@googlemail.com>\r
        <1309883030-28899-1-git-send-email-daniel.schoepe@googlemail.com>\r
        <1309883030-28899-2-git-send-email-daniel.schoepe@googlemail.com>\r
        <87fwmjabii.fsf@steelpick.2x.cz>\r
User-Agent: Notmuch/0.5-321-g7d7ebd8 (http://notmuchmail.org) Emacs/23.3.1\r
        (i486-pc-linux-gnu)\r
Date: Wed, 06 Jul 2011 14:41:09 +0200\r
Message-ID: <87oc17r38a.fsf@tredergarh.home.box>\r
MIME-Version: 1.0\r
Content-Type: multipart/signed; boundary="=-=-=";\r
        micalg=pgp-sha1; protocol="application/pgp-signature"\r
X-BeenThere: notmuch@notmuchmail.org\r
X-Mailman-Version: 2.1.13\r
Precedence: list\r
List-Id: "Use and development of the notmuch mail system."\r
        <notmuch.notmuchmail.org>\r
List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
        <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
List-Post: <mailto:notmuch@notmuchmail.org>\r
List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
        <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
X-List-Received-Date: Wed, 06 Jul 2011 12:41:23 -0000\r
\r
--=-=-=\r
Content-Transfer-Encoding: quoted-printable\r
\r
On Wed, 06 Jul 2011 13:34:13 +0200, Michal Sojka <sojkam1@fel.cvut.cz> wrot=\r
e:\r
> > -(defcustom notmuch-hello-tag-list-make-query nil\r
> > -  "Function or string to generate queries for the all tags list.\r
>=20\r
> I'm not sure it is a good thing to remove customizations that are\r
> included in a released version. Some users may configure it and their\r
> configuration disappear when they install a new version. Is there a way\r
> to migrate this settings to a new, section-based one?\r
\r
Agreed, I think I only removed it because at the time I first\r
implemented user-defined sections, my patch, which introduced\r
notmuch-hello-tag-list-make-query, hadn't been applied yet.\r
\r
> This is IMHO still hard to understand only from looking at the\r
> customization widget. Ideally, I'd like to see somewhere a paragraph\r
> like this: "This displays a list of all tags, optionally hiding some of\r
> them. It is also possible to filter the list of messages matching each\r
> tag by an additional filter query. Similarly, the count of messages\r
> displayed next to the buttons can be generated by applying another\r
> filter to the tag query."\r
>=20\r
> Actually, when reading the above paragraph, it still seems a way too\r
> complex. What about the following: I do not think it has sense to list\r
> custom tags with zero counts - I think everybody would use\r
> :hide-empty-tags all the time. Then, the result of listing all tags with\r
> 'notmuch search-tags', filtering them with 'filter' and throwing away\r
> empty tags, would be the same as running 'notmuch search-tags filter'\r
> and then finding the counts by 'notmuch count tag:TAG and filter'. One\r
> of the advantage of this approach is that it would probably be faster to\r
> generate the section, because you won't query the counts of all tags if\r
> your filter matches only a few of them.\r
>=20\r
> Additionally, as I didn't read carefully your previous discussions about\r
> the additional filter for counts, I do not see much use for it. If you\r
> only want to see which tags has unread messages, you can simply add a\r
> new section with (:make-query "tag:unread") and you would get what you\r
> want. You can also disable all-tags sections.\r
>=20\r
> So my proposal is to forget about different queries for filters and\r
> counts and having here only the following options: filter, hide-tags and\r
> hide-if-empty.\r
>=20\r
> Then, the documentation would be simple: "This section displays buttons\r
> for all tags of messages matching a FILTER. Optionally, some of these\r
> tags may be hidden."\r
>=20\r
> Is there a use case, which is not covered by this?\r
\r
I'm not sure, I can imagine someone wanting to have an overview of all\r
his tags, whether there are, e.g., unread messages or not. If we decide\r
to keep this functionality, it should be inverted though, i.e. one has\r
to explicitly specify :show-empty-searches to get them.\r
\r
About the counts: I introduced this because Austin Clements says he\r
finds it useful in his comment here:\r
\r
id:"BANLkTi=3D729DWai4q57iBSfz1wDhBXsmndQ@mail.gmail.com"\r
\r
Also, I think/hope that we can just improve the documentation\r
sufficiently without sacrificing flexibility.\r
\r
>=20\r
> > +  :type\r
> > +  (let ((opts\r
> > +    '((:title (string :tag "Title for this section"))\r
> > +      (:make-query (string :tag "Filter for each tag"))\r
> > +      (:make-count (string :tag "Different query to generate counts"))\r
> > +      (:hide-tags (repeat :tag "Tags that will be hidden" string))\r
>=20\r
> I can imagine, that :hide-tags could also be a (list of) regexp(es).\r
>=20\r
> > +      (:initially-hidden (boolean :tag "Hide this on startup?"))\r
>=20\r
> This is IMHO not needed here, as you always has to enable this section\r
> manually.\r
\r
A user might still want to have the section collapsed when starting the\r
notmuch UI and only have it shown when he needs it. (I use that for a\r
section that displays unread counts for each tag).\r
\r
>=20\r
> > +            (:hide-empty-tags\r
>=20\r
> Rename to :hide-empty-queries.\r
>=20\r
> > +             (boolean :tag "Hide tags with no matching messages"))\r
>=20\r
> Hide queries...\r
\r
Right, thanks.\r
\r
>=20\r
> > +            (:hide-if-empty (boolean :tag "Hide if empty"))))))\r
> > +\r
> > +(defcustom notmuch-hello-sections\r
> > +  (list #'notmuch-hello-insert-header\r
> > +   #'notmuch-hello-insert-saved-searches\r
> > +   #'notmuch-hello-insert-search\r
> > +   #'notmuch-hello-insert-recent-searches\r
> > +   #'notmuch-hello-insert-alltags\r
> > +   #'notmuch-hello-insert-footer)\r
> > +  "Sections for notmuch-hello.\r
> > +\r
> > +Each entry of this list should be a function of no arguments that\r
> > +should return if notmuch-hello-target is produced as part of its\r
>=20\r
> What is notmuch-hello-target? I guess I know what it is from reading the\r
> code, but if I didn't read the code, this mentioning it here would be of\r
> little value for me. Perhaps make the notmuch-hello-target clickable and\r
> document it below.\r
\r
Yes, you're right, this needs more documentation.\r
\r
>=20\r
> > +output and nil otherwise. For convenience an element can also be\r
> > +a list of the form (FUNC ARG1 ARG2 .. ARGN) in which case FUNC\r
> > +will be applied to the rest of the list.\r
> > +\r
> > +The functions will be run to construct the content of the\r
> > +notmuch-hello buffer in the order they appear in this list."\r
> > +  :group 'notmuch\r
> > +  :type=20\r
> > +  '(repeat\r
> > +    (choice (function-item notmuch-hello-insert-header)\r
> > +       (function-item notmuch-hello-insert-saved-searches)\r
> > +       (function-item notmuch-hello-insert-search)\r
> > +       (function-item notmuch-hello-insert-recent-searches)\r
> > +       (function-item notmuch-hello-insert-alltags)\r
> > +       (function-item notmuch-hello-insert-footer)\r
> > +       (function-item notmuch-hello-insert-inbox)\r
> > +       notmuch-hello-tags-section\r
> > +       notmuch-hello-query-section\r
> > +       (function :tag "Custom function"))))\r
> > +\r
> > +;; only defined to avoid compilation warnings about free variables\r
> > +(defvar notmuch-hello-target nil)\r
>=20\r
> Add the documentation as discussed above. Additionally, it seems that\r
> having only the label in this variable is not enough, since the same\r
> label can appear in multiple sections. Perhaps, we need both the title\r
> of the section and the label here.\r
\r
What do you mean by label? "Custom function"? If yes, that element will\r
have the actual function name in the input element next to it anyway.\r
\r
> > +  ;;(setq buffer-read-only t)\r
>=20\r
> Don't we want to get rid of this line?\r
\r
I guess so, it was there before my patch though.\r
\r
>=20\r
> > +  )\r
> > +\r
> > +(defun notmuch-hello-generate-tag-alist (&optional hide-tags filter-qu=\r
ery filter-count)\r
> >    "Return an alist from tags to queries to display in the all-tags sec=\r
tion."\r
> >    (notmuch-remove-if-not\r
> > -   #'cdr\r
> > +   #'identity\r
> >     (mapcar (lambda (tag)\r
> > -        (cons tag\r
> > -              (cond\r
> > -               ((functionp notmuch-hello-tag-list-make-query)\r
> > -                (concat "tag:" tag " and ("\r
> > -                        (funcall notmuch-hello-tag-list-make-query tag) ")"))\r
> > -               ((stringp notmuch-hello-tag-list-make-query)\r
> > -                (concat "tag:" tag " and ("\r
> > -                        notmuch-hello-tag-list-make-query ")"))\r
> > -               (t (concat "tag:" tag)))))\r
> > +        (let ((query (notmuch-hello-filtered-query (concat "tag:" tag)\r
> > +                                                   filter-query)))\r
> > +          (when query\r
> > +            (if filter-count\r
> > +                (list tag (notmuch-hello-filtered-query tag filter-query)\r
> > +                      (notmuch-hello-filtered-query (concat "tag:" tag)\r
> > +                                                    filter-count))\r
> > +              (cons tag (notmuch-hello-filtered-query\r
> > +                         (concat "tag:" tag) filter-query))))))\r
> >        (notmuch-remove-if-not\r
> >         (lambda (tag)\r
> > -         (not (member tag notmuch-hello-hide-tags)))\r
> > +         (not (member tag hide-tags)))\r
> >         (process-lines notmuch-command "search-tags")))))\r
> >=20=20\r
> > +(defun notmuch-hello-insert-header ()\r
> > +  "Insert the default notmuch-hello header."\r
> > +  (when notmuch-show-logo\r
> > +    (let ((image notmuch-hello-logo))\r
> > +      ;; The notmuch logo uses transparency. That can display poorly\r
> > +      ;; when inserting the image into an emacs buffer (black logo on\r
> > +      ;; a black background), so force the background colour of the\r
> > +      ;; image. We use a face to represent the colour so that\r
> > +      ;; `defface' can be used to declare the different possible\r
> > +      ;; colours, which depend on whether the frame has a light or\r
> > +      ;; dark background.\r
> > +      (setq image (cons 'image\r
> > +                   (append (cdr image)\r
> > +                           (list :background (face-background 'notmuch-hello-logo-background)=\r
))))\r
> > +      (insert-image image))\r
> > +    (widget-insert "  "))\r
> > +\r
> > +  (widget-insert "Welcome to ")\r
> > +  ;; Hack the display of the links used.\r
> > +  (let ((widget-link-prefix "")\r
> > +   (widget-link-suffix ""))\r
> > +    (widget-create 'link\r
> > +              :notify (lambda (&rest ignore)\r
> > +                        (browse-url notmuch-hello-url))\r
> > +              :help-echo "Visit the notmuch website."\r
> > +              "notmuch")\r
> > +    (widget-insert ". ")\r
> > +    (widget-insert "You have ")\r
> > +    (widget-create 'link\r
> > +              :notify (lambda (&rest ignore)\r
> > +                        (notmuch-hello-update))\r
> > +              :help-echo "Refresh"\r
> > +              (notmuch-hello-nice-number\r
> > +               (string-to-number (car (process-lines notmuch-command "count")))=\r
))\r
> > +    (widget-insert " messages.")))\r
>=20\r
> Perhaps you want to end this (and also all other) section with an empty\r
> line so that the order of sections doesn't matter. I use sections in\r
> this order: header, inbox, saved-searches and there is no space between\r
> header and inbox and two spaces between inbox and saved-searches.\r
\r
My thinking was to have no section end with a newline and insert a\r
newline between each section when building the notmuch-hello buffer, to\r
prevent forgotten trailing newlines when defining a new section.\r
\r
> I might be useful to include here a link to the customization of this\r
> page. Maybe, it would be useful to have notmuch-hello subgroup in\r
> customization interface and link to this group. But creation of the\r
> subgroup should be definitely in a separate patch.\r
\r
Yes definitely. Pieter Praet recently sent a patch reorganizing the\r
customization options into subgroups, so I'll change it once that patch\r
has been applied.\r
\r
Cheers,\r
Daniel\r
\r
--=-=-=\r
Content-Type: application/pgp-signature\r
\r
-----BEGIN PGP SIGNATURE-----\r
Version: GnuPG v1.4.11 (GNU/Linux)\r
\r
iQIcBAEBAgAGBQJOFFflAAoJEIaTAtce+Z+J4zgQAIVBNWufY2dbYvTsWLUexJBf\r
ATbk3NfNvme2VnpNnTSRsrWLUuXzEbgqch0j08NDqdK1eh89NGOgbHhRSuRSqKAu\r
sIFEO2fIDfS9iPl+MxpBZJS3F6tSUnjIiD8JIerAM590rCufRsglfRPOwyX2cdhY\r
xPhVLYIN+9hStdEGtNl4NHiEMzDvdsYPqU+tSgSpA6t9kZXFRw8qg6s87+W+1m9s\r
o0nL16mM6UyYRABrTEpIeZA4NmKzZDoJkc8N3+nMvJ8w7I3wYjaf+8cf20+uJf6S\r
X707vktct6vgJ6U3QEapzXYqUBKKyRcgfZZg5Ui5689SZpf3/FQ8Kjx064IYxWQJ\r
M/ixMExRLtIeezE2nRJc/XNtOxnEe9x0K4emTuX+xCN49g4XARw4OJbG3IJfFZcN\r
r4qDl3SLs++q/y3liEVx2CMyacDR67cHN8S6FcmgXFM+uxZST+YJruR3/+QUEc9T\r
YFbcggGmhX6iSDN5UF31hVK9MS5ehRJiOVbKiCzgCgn7ARv88hlxMNSPQA8OeAMW\r
bF5of3tAm2Ec5d1RmJe0vsNXOi+he+GJZJ3a9rhTxNKDWHtaHNAyluukaOAzSH1D\r
DUYyocVz2mkcX6Gu/rsfVzoTk8tTY96XZz+aiRkpTD1bSpLzfrdkJRLNpP1F2Jmm\r
duzLXx5JyZv+cL212f3x\r
=bYeE\r
-----END PGP SIGNATURE-----\r
--=-=-=--\r