The file editlabel.pl is a fully working X-Label editor callable from mutt.
My muttrc file contains the following lines to permit editing
labels using the macro commands y, YE, YM, YA, YR, YS, YC and YL to
edit, edit, invoke a menu, append, remove, show, clean and list labels
respectively from the index page of mutt. Labels are space separated.
The command <ctrl-y> allows limiting displayed messages to those with
a given label using the ~y mutt pattern. More complex patterns may be
specified with the powerful l (limit) command of mutt. I will upload
some documentation later (2011-11-16). This project is inspired/copied
from a similar one developed by Alberto Bertogly,
http://blitiri.com.ar/p/other/mutt-labels/.
# Add to your .muttrc file to allow X-Label edition:
set my_editor="$editor"
macro index y "<enter-command>set editor=\"~/bin/editlabel.pl edit\"\n\
<tag-prefix><edit><next-undeleted>\
<enter-command>set editor=\"$my_editor\"\n" "Edit labels"
macro index YE "<enter-command>set editor=\"~/bin/editlabel.pl edit\"\n\
<tag-prefix><edit><next-undeleted>\
<enter-command>set editor=\"$my_editor\"\n" "Edit labels"
macro index YM "<enter-command>set editor=\"~/bin/editlabel.pl menu\"\n\
<tag-prefix><edit><next-undeleted>\
<enter-command>set editor=\"$my_editor\"\n" "Loop over label menu"
macro index YA "<enter-command>set editor=\"~/bin/editlabel.pl append\"\n\
<tag-prefix><edit><next-undeleted>\
<enter-command>set editor=\"$my_editor\"\n" "Append labels"
macro index YR "<enter-command>set editor=\"~/bin/editlabel.pl remove\"\n\
<tag-prefix><edit><next-undeleted>\
<enter-command>set editor=\"$my_editor\"\n" "Remove labels"
macro index YS "<enter-command>set editor=\"~/bin/editlabel.pl show\"\n\
<tag-prefix><edit>\
<enter-command>set editor=\"$my_editor\"\n" "Show labels"
macro index YC "<enter-command>set editor=\"~/bin/editlabel.pl clean\"\n\
<tag-prefix><edit><next-undeleted>\
<enter-command>set editor=\"$my_editor\"\n" "Clean labels"
macro index YL "<enter-command>set editor=\"~/bin/editlabel.pl list\"\n\
<tag-prefix><edit>\
<enter-command>set editor=\"$my_editor\"\n" "List labels"
macro index \Cy "<limit>~y " "Limit view to label"
# show labels in index
#set index_format="%4C %Z %{%b %d} %-15.15L %?M?(#%03M)&(%4l)? %?y?(%.20Y) ?%s"
set index_format="%4C %Z %{%b %d} %-15.15L %?M?(#%03M))? %?y?(%.20Y) ?%s"
#display labels in messages
unignore X-Label:
