From 997803343abcee4cb37a15e3ed8b462c85b64642 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 18 Aug 2011 10:14:50 +0200 Subject: EMACS: Remove mutt settings --- .emacs.d/elisp/muttrc-mode.el | 1638 ----------------------------------------- .emacs.d/init.el | 2 - 2 files changed, 1640 deletions(-) delete mode 100644 .emacs.d/elisp/muttrc-mode.el (limited to '.emacs.d') diff --git a/.emacs.d/elisp/muttrc-mode.el b/.emacs.d/elisp/muttrc-mode.el deleted file mode 100644 index b3bdd2c..0000000 --- a/.emacs.d/elisp/muttrc-mode.el +++ /dev/null @@ -1,1638 +0,0 @@ -;;; muttrc-mode.el --- Major mode to edit muttrc under Emacs - -;;; Copyright (C) 2000, 2001, 2002 Laurent Pelecq -;;; Copyright (C) 2009 Kumar Appaiah -;;; -;;; Authors: Laurent Pelecq -;;; Kumar Appaiah - -;;; This program is free software; you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 2, or (at your option) -;;; any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with this program; if not, write to the Free Software -;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - -;;; Supported Emacs: -;;; ================ -;;; This mode has only been tested on Emacs 21.2. If you -;;; encounter problems with older versions or with Xemacs, let me -;;; know. - -;;; Installation: -;;; ============= -;;; Add this lines to your .emacs: -;;; (autoload 'muttrc-mode "muttrc-mode.el" -;;; "Major mode to edit muttrc files" t) -;;; (setq auto-mode-alist -;;; (append '(("muttrc\\'" . muttrc-mode)) -;;; auto-mode-alist)) -;;; Be sure this file is in a directory that appears in the load-path. -;;; -;;; You mail want to use this mode for other files like the mail -;;; aliases file. In that case just add the following lines at the end -;;; of these files: -;;; ### Local Variables: *** -;;; ### mode: muttrc *** -;;; ### End: *** - -;;; Customization: -;;; ============== -;;; Execute: M-x configure-group RET muttrc RET -;;; -;;; By default, help on command/variable is displayed automatically -;;; while executing a command to modify them. Disable this feature if -;;; you have problems with. - -;;; Description: -;;; ============ -;;; This mode first goal is to provide syntax highlighting with -;;; font-lock. The basic fontification appears on strings, comments, -;;; command names and variables. Additional fontification for commands -;;; arguments can be enabled through the customization buffer. -;;; -;;; Main commands are: -;;; C-x c -- muttrc-insert-command -;;; C-x s -- muttrc-set-variable -;;; C-x S -- muttrc-unset-variable -;;; -;;; Type C-h m for all key bindings. - -;;; BUGS: -;;; ===== -;;; - Multiline commands are not properly handled and can lead to -;;; unexpected result. - - - -;;; Code: - -;;; ------------------------------------------------------------ -;;; Requirement -;;; ------------------------------------------------------------ - -(require 'man) - -(defconst muttrc-mode-version "$Revision: 1.2 $") - -;;; ------------------------------------------------------------ -;;; Configurable stuff -;;; ------------------------------------------------------------ - -(defgroup muttrc nil - "Muttrc editing commands for Emacs." - :group 'files - :prefix "muttrc-") - -(defcustom muttrc-manual-path "/usr/share/doc/mutt/manual.txt.gz" - "Path to the Mutt manual." - :type 'string - :group 'muttrc) - -(defcustom muttrc-display-help t - "Display help for each command/variable modification if set." - :type 'boolean - :group 'muttrc) - -(defcustom muttrc-folder-abbrev ?+ - "Character used to refer to the folder directory." - :type '(choice (const :tag "+" ?+) - (const :tag "=" ?=)) - :group 'muttrc) - -(defcustom muttrc-argument-faces-alist - '((alias . bold) - (address . default) - (face . default) - (color . default) - (command . default) - (path . default) - (function . default) - (header . default) - (hook . default) - (key . default) - (map . default) - (mimetype . default) - (object . default) - (regexp . default) - (sequence . default) - (string . default) - (hook-type . default)) - "List of faces for the Muttrc command arguments. Standard faces are -symbols like 'bold, 'underline, ... Muttrc files must be revisited in -order for the modifications to take effect." - :type '(repeat (cons symbol symbol)) - :group 'muttrc) - -;;; ------------------------------------------------------------ -;;; For backward compatibility -;;; ------------------------------------------------------------ - -(or (functionp 'match-string-no-properties) - (defalias 'match-string-no-properties 'match-string)) - -;;; ------------------------------------------------------------ -;;; Mutt variables and commands -;;; ------------------------------------------------------------ - -(defconst muttrc-arg-handler-alist - '((alias muttrc-get-word "Alias") - (boolean muttrc-get-boolean "Enable") - (number muttrc-get-number "Number") - (address muttrc-get-string "Address") - (face muttrc-get-from-list "Face" muttrc-face-alist t) - (color muttrc-get-from-list "Color" muttrc-color-alist) - (command muttrc-get-command "Command") - (statement muttrc-get-statement "Command") - (assignment muttrc-get-assignment "Variable" t) - (variable muttrc-get-assignment "Variable" nil) - (path muttrc-get-path "Path") - (function muttrc-get-from-list "Function" muttrc-mutt-function-alist) - (header muttrc-get-from-list "Header name" muttrc-header-alist) - (hook-type muttrc-get-from-list "Hook" muttrc-hook-alist t) - (key muttrc-get-string "Key") - (map muttrc-get-from-list "Map" muttrc-map-alist t) - (mimetype muttrc-get-from-list "MIME type" muttrc-mimetype-alist) - (object muttrc-get-from-list "Object" muttrc-object-alist) - (regexp muttrc-get-string "Regular expression") - (sequence muttrc-get-string "Sequence") - (string muttrc-get-string "String") - (alias-sort-order muttrc-get-from-list "Sort order" - muttrc-alias-sort-order-alist) - (aux-sort-order muttrc-get-from-list "Sort order" - muttrc-aux-sort-order-alist) - (browser-sort-order muttrc-get-from-list "Sort order" - muttrc-browser-sort-order-alist) - (pgp-sort-order muttrc-get-from-list "Sort order" - muttrc-pgp-sort-order-alist) - (quadoption muttrc-get-from-list "Option" muttrc-quadoption-alist) - (sort-order muttrc-get-from-list "Sort order" - muttrc-sort-order-alist)) - "List of handler for each type of argument. The format is: -\(ARG-TYPE FACE HANDLER PROMPT HANDLER-ARGS\). -The PROMPT can be overwritten by in command description.") - -(defconst muttrc-face-alist - '(("none" . 1) ("bold" . 2) ("underline" . 3) - ("reverse" . 4) ("standout". 5))) - -(defconst muttrc-color-alist - '(("default" . 0) - ("black" . 1) ("blue" . 2) ("cyan" . 3) ("green" . 4) - ("magenta" . 5) ("red" . 6) ("white" . 7) ("yellow" . 8) - ("brightdefault" . 9) - ("brightblack" . 10) ("brightblue" . 11) ("brightcyan" . 12) - ("brightgreen" . 13) ("brightmagenta" . 14) ("brightred" . 15) - ("brightwhite" . 16) ("brightyellow" . 17))) - -(defconst muttrc-object-alist - '(("attachment" . 0) - ("body" . 1) - ("bold" . 2) - ("error" . 3) - ("hdrdefault" . 4) - ("header" . 5) - ("index" . 6) - ("indicator" . 7) - ("markers" . 8) - ("message" . 9) - ("normal" . 10) - ("quoted" . 11) - ("search" . 12) - ("signature" . 13) - ("status" . 14) - ("tilde" . 15) - ("tree" . 16) - ("underline" . 17)) - "Mutt object on which color apply.") - -(defconst muttrc-header-alist - '(("content-transfer-encoding" . 0) - ("content-type" . 1) - ("date" . 2) - ("from" . 3) - ("message-id" . 4) - ("mime-version" . 5) - ("organization" . 6) - ("received" . 7) - ("reply-to" . 8) - ("resent-from" . 9) - ("subject" . 10) - ("to" . 11) - ("x-accept-language" . 12) - ("x-mailer" . 13) - ("x-mimetrack" . 14) - ("x-sender" . 15))) - -(defconst muttrc-hook-alist - '(("folder-hook" . 0) ("send-hook" . 1) ("save-hook" . 2) - ("mbox-hook" . 3) ("fcc-hook" . 4) ("fcc-save-hook" . 5) - ("message-hook" . 5) ("charset-hook" . 6) ("iconv-hook" . 7) - ("account-hook" . 8) ("append-hook" . 9) ("close-hook" . 10) - ("crypt-hook" . 11) ("send2-hook" . 12) ("reply-hook" . 13) - ("open-hook" . 14))) - -(defconst muttrc-map-alist - '(("alias" . 0) ("attach" . 1) ("browser" . 2) ("compose" . 3) - ("editor" . 4) ("generic" . 5) ("index" . 6) ("pager" . 7) - ("pgp" . 8) ("postpone" . 9) ("query" . 10))) - -(defconst muttrc-mimetype-alist - '(("application/andrew-inset" "ez") - ("application/excel" "xls") - ("application/fractals" "fif") - ("application/java-archive" "jar") - ("application/mac-binhex40" "hqx") - ("application/msword" "doc" "dot") - ("application/octet-stream" "exe" "bin") - ("application/oda" "oda") - ("application/pdf" "pdf") - ("application/pdf") - ("application/pgp" "pgp") - ("application/postscript" "ai" "eps" "ps" "PS") - ("application/pre-encrypted" "enc") - ("application/rtf" "rtf") - ("application/vnd.lotus-wordpro" "lwp" "sam") - ("application/vnd.ms-access" "mdb" "mda" "mde") - ("application/vnd.ms-excel" "xls") - ("application/vnd.ms-powerpoint" "ppt" "pot" "ppa" "pps" "pwz") - ("application/vnd.ms-schedule" "scd" "sch" "sc2") - ("application/wordperfect5.1" "wpd" "wp6") - ("application/x-arj-compressed" "arj") - ("application/x-bcpio" "bcpio") - ("application/x-chess-pgn" "pgn") - ("application/x-cpio" "cpio") - ("application/x-csh" "csh") - ("application/x-debian-package" "deb") - ("application/x-dvi" "dvi") - ("application/x-fortezza-ckl" "ckl") - ("application/x-gtar" "gtar") - ("application/x-gunzip" "gz") - ("application/x-hdf" "hdf") - ("application/x-javascript" "js" "mocha") - ("application/x-javascript-config" "jsc") - ("application/x-latex" "latex") - ("application/x-mif" "mif") - ("application/x-msdos-program" "com" "exe" "bat") - ("application/x-netcdf" "cdf" "nc") - ("application/x-ns-proxy-autoconfig" "pac") - ("application/x-ns-proxy-autoconfig") - ("application/x-perl" "pl" "pm") - ("application/x-pkcs7-crl" "crl") - ("application/x-pkcs7-mime" "p7m" "p7c") - ("application/x-pkcs7-signature" "p7s") - ("application/x-rar-compressed" "rar") - ("application/x-sh" "sh") - ("application/x-shar" "shar") - ("application/x-stuffit" "sit") - ("application/x-sv4cpio" "sv4cpio") - ("application/x-sv4crc" "sv4crc") - ("application/x-tar" "tar") - ("application/x-tar-gz" "tgz" "tar.gz") - ("application/x-tcl" "tcl") - ("application/x-tex" "tex") - ("application/x-texinfo" "texi" "texinfo") - ("application/x-troff" "t" "tr" "roff") - ("application/x-troff-man" "man") - ("application/x-troff-me" "me") - ("application/x-troff-ms" "ms") - ("application/x-ustar" "ustar") - ("application/x-wais-source" "src") - ("application/x-zip-compressed" "zip") - ("audio/basic" "au" "snd") - ("audio/basic" "snd") - ("audio/midi" "mid" "midi") - ("audio/ulaw" "au") - ("audio/x-aiff" "aif" "aifc" "aiff") - ("audio/x-aiff" "aif" "aiff" "aifc") - ("audio/x-wav" "wav") - ("image/gif" "gif") - ("image/ief" "ief") - ("image/jpeg" "jpe" "jpeg" "jpg") - ("image/png" "png") - ("image/tiff" "tif" "tiff") - ("image/tiff") - ("image/x-MS-bmp" "bmp") - ("image/x-cmu-raster" "ras") - ("image/x-photo-cd" "pcd") - ("image/x-portable-anymap" "pnm") - ("image/x-portable-bitmap" "pbm") - ("image/x-portable-graymap" "pgm") - ("image/x-portable-pixmap" "ppm") - ("image/x-rgb" "rgb") - ("image/x-xbitmap" "xbm") - ("image/x-xpixmap" "xpm") - ("image/x-xwindowdump" "xwd") - ("text/html" "html" "htm" "shtml") - ("text/plain" "txt" "text") - ("text/richtext" "rtx") - ("text/tab-separated-values" "tsv") - ("text/x-setext" "etx") - ("text/x-vcard" "vcf") - ("text/x-vcard") - ("video/dl" "dl") - ("video/fli" "fli") - ("video/gl" "gl") - ("video/mpeg" "mpeg" "mpg" "mpe" "mpv" "vbs" "mpegv") - ("video/quicktime" "qt" "mov" "moov") - ("video/x-msvideo" "avi") - ("video/x-sgi-movie" "movie") - ("x-world/x-vrml" "vrm" "vrml" "wrl"))) - -(defconst muttrc-command-alist - '( - ("folder-hook" ((string) (statement)) nil nil) - ("alias" ((alias) (address)) t nil) - ("unalias" ((alias) (address)) t nil) - ("alternative_order" ((mimetype)) t nil) - ("auto_view" ((mimetype)) t nil) - ("bind" ((map) (key) (function)) nil t) - ("color" ((object) - (color "Foreground") - (color "Background") - (regexp)) nil t) - ("charset-hook" ((string "Alias") - (string "Charset")) nil nil) - ("fcc-hook" ((regexp) (path)) nil nil) - ("fcc-save-hook" ((regexp) (path)) nil nil) - ("folder-hook" ((regexp) (statement)) nil nil) - ("ignore" ((header)) t nil) - ("iconv-hook" ((string "Charset") - (string "Local charset")) nil nil) - ("unignore" ((header)) t nil) - ("hdr_order" ((header)) t nil) - ("unhdr_order" ((header)) t nil) - ("lists" ((address)) t nil) - ("unlists" ((address)) t nil) - ("macro" ((map) (key) (sequence) - (string "Description")) nil t) - ("mailboxes" ((path)) t nil) - ("mono" ((object) (face) (regexp)) nil t) - ("mbox-hook" ((regexp) (path)) nil nil) - ("message-hook" ((regexp) (statement)) nil nil) - ("my_hdr" ((string "Header")) nil nil) - ("unmy_hdr" ((header)) t nil) - ("push" ((string)) nil nil) - ("pgp-hook" ((regexp) - (string "Keyid")) nil nil) - ("save-hook" ((regexp) (path)) nil nil) - ("score" ((regexp) - (number "Value")) nil nil) - ("unscore" ((regexp)) t nil) - ("send-hook" ((regexp) (statement)) nil nil) - ("source" ((path)) nil nil) - ("subscribe" ((address)) t nil) - ("unsubscribe" ((address)) t nil) - ("unhook" ((hook-type)) nil nil) - ("alternates" ((regexp)) nil nil) - ("unalternates" ((regexp)) nil nil)) - "List of muttrc commands with their arguments. Format is: -COMMAND '\(ARG1 ARG2 ...\) REPEAT OPTIONAL -REPEAT and OPTIONAL apply to the last argument. -ARGn is the list of arguments for muttrc-call-arg-handler. Each args -is a list \(ARGTYPE \[ARGNAME\]\).") - -(defconst muttrc-statement-alist - (append - '(("set" ((assignment)) t nil) - ("unset" ((variable)) t nil)) - muttrc-command-alist) - "Additional muttrc commands with their arguments that are handled -differently. See muttrc-command-alist") - - -(defconst muttrc-variables-alist - '(("abort_nosubject" quadoption "ask-yes") - ("abort_unmodified" quadoption "yes") - ("alias_file" path "~/.muttrc") - ("alias_format" string "%4n %2f %t %-10a %r") - ("allow_8bit" boolean t) - ("allow_ansi" boolean nil) - ("arrow_cursor" boolean nil) - ("ascii_chars" boolean nil) - ("askbcc" boolean nil) - ("askcc" boolean nil) - ("assumed_charset" string "us-ascii") - ("attach_format" string "%u%D%I %t%4n %T%.40d%> [%.7m/%.10M, %.6e%?C?, %C?, %s] ") - ("attach_sep" string "\\n") - ("attach_split" boolean t) - ("attribution" string "On %d, %n wrote:") - ("autoedit" boolean nil) - ("auto_tag" boolean nil) - ("beep" boolean t) - ("beep_new" boolean nil) - ("bounce" quadoption "ask-yes") - ("bounce_delivered" boolean t) - ("braille_friendly" boolean nil) - ("charset" string "") - ("check_new" boolean t) - ("collapse_unread" boolean t) - ("uncollapse_jump" boolean nil) - ("compose_format" string "-- Mutt: Compose [Approx. msg size: %l Atts: %a]%>-") - ("config_charset" string "") - ("confirmappend" boolean t) - ("confirmcreate" boolean t) - ("connect_timeout" number 30) - ("content_type" string "text/plain") - ("copy" quadoption "yes") - ("crypt_use_gpgme" boolean nil) - ("crypt_autopgp" boolean t) - ("crypt_autosmime" boolean t) - ("date_format" string "!%a, %b %d, %Y at %I:%M:%S%p %Z") - ("default_hook" string "~f %s !~P | (~P ~C %s)") - ("delete" quadoption "ask-yes") - ("delete_untag" boolean t) - ("digest_collapse" boolean t) - ("display_filter" path "") - ("dotlock_program" path "/usr/bin/mutt_dotlock") - ("dsn_notify" string "") - ("dsn_return" string "") - ("duplicate_threads" boolean t) - ("edit_headers" boolean nil) - ("editor" path "") - ("encode_from" boolean nil) - ("envelope_from_address" e-mail "") - ("escape" string "~") - ("fast_reply" boolean nil) - ("fcc_attach" boolean t) - ("fcc_clear" boolean nil) - ("file_charset" string "") - ("folder" path "~/Mail") - ("folder_format" string "%2C %t %N %F %2l %-8.8u %-8.8g %8s %d %f") - ("followup_to" boolean t) - ("force_name" boolean nil) - ("forward_decode" boolean t) - ("forward_edit" quadoption "yes") - ("forward_format" string "[%a: %s]") - ("forward_quote" boolean nil) - ("from" e-mail "") - ("gecos_mask" regular "^[^,]*") - ("hdrs" boolean t) - ("header" boolean nil) - ("help" boolean t) - ("hidden_host" boolean nil) - ("hide_limited" boolean nil) - ("hide_missing" boolean t) - ("hide_thread_subject" boolean t) - ("hide_top_limited" boolean nil) - ("hide_top_missing" boolean t) - ("history" number 10) - ("honor_followup_to" quadoption "yes") - ("hostname" string "") - ("ignore_list_reply_to" boolean nil) - ("imap_authenticators" string "") - ("imap_check_subscribed" boolean nil) - ("imap_delim_chars" string "/.") - ("imap_headers" string "") - ("imap_home_namespace" string "") - ("imap_idle" boolean nil) - ("imap_keepalive" number 900) - ("imap_list_subscribed" boolean nil) - ("imap_login" string "") - ("imap_pass" string "") - ("imap_passive" boolean t) - ("imap_peek" boolean t) - ("imap_servernoise" boolean t) - ("imap_user" string "") - ("implicit_autoview" boolean nil) - ("include" quadoption "ask-yes") - ("include_onlyfirst" boolean nil) - ("indent_string" string "> ") - ("index_format" string "%4C %Z %{%b %d} %-15.15L (%?l?%4l&%4c?) %s") - ("hdr_format" string "%4C %Z %{%b %d} %-15.15L (%?l?%4l&%4c?) %s") - ("ispell" path "ispell") - ("keep_flagged" boolean nil) - ("locale" string "C") - ("mail_check" number 5) - ("mailcap_path" string "") - ("mailcap_sanitize" boolean t) - ("maildir_mtime" boolean nil) - ("header_cache" path "") - ("maildir_header_cache_verify" boolean t) - ("header_cache_pagesize" string "16384") - ("maildir_trash" boolean nil) - ("mark_old" boolean t) - ("markers" boolean t) - ("mask" regular "!^\.[^.]") - ("mbox" path "~/mbox") - ("mbox_type" folder mbox) - ("metoo" boolean nil) - ("menu_context" number 0) - ("menu_move_off" boolean t) - ("menu_scroll" boolean nil) - ("meta_key" boolean nil) - ("mh_purge" boolean nil) - ("mh_seq_flagged" string "flagged") - ("mh_seq_replied" string "replied") - ("mh_seq_unseen" string "unseen") - ("mime_forward" quadoption "no") - ("mime_forward_decode" boolean nil) - ("mime_forward_rest" quadoption "yes") - ("pgp_mime_signature_filename" string "signature.asc") - ("pgp_mime_signature_description" string "Digital signature") - ("mix_entry_format" string "%4n %c %-16s %a") - ("mixmaster" path "mixmaster") - ("move" quadoption "ask-no") - ("message_cachedir" path "") - ("message_format" string "%s") - ("narrow_tree" boolean nil) - ("net_inc" number 10) - ("pager" path "builtin") - ("pager_context" number 0) - ("pager_format" string "-%Z- %C/%m: %-20.20n %s") - ("pager_index_lines" number 0) - ("pager_stop" boolean nil) - ("crypt_autosign" boolean nil) - ("crypt_autoencrypt" boolean nil) - ("pgp_ignore_subkeys" boolean t) - ("crypt_replyencrypt" boolean t) - ("crypt_replysign" boolean nil) - ("crypt_replysignencrypted" boolean nil) - ("crypt_timestamp" boolean t) - ("pgp_use_gpg_agent" boolean nil) - ("crypt_verify_sig" quadoption "yes") - ("pgp_verify_sig" quadoption "yes") - ("smime_is_default" boolean nil) - ("smime_ask_cert_label" boolean t) - ("smime_decrypt_use_default_key" boolean t) - ("pgp_entry_format" string "%4n %t%f %4l/0x%k %-4a %2c %u") - ("pgp_good_sign" regular "") - ("pgp_check_exit" boolean t) - ("pgp_long_ids" boolean nil) - ("pgp_retainable_sigs" boolean nil) - ("pgp_autoinline" boolean nil) - ("pgp_replyinline" boolean nil) - ("pgp_show_unusable" boolean t) - ("pgp_sign_as" string "") - ("pgp_strict_enc" boolean t) - ("pgp_timeout" number 300) - ("pgp_sort_keys" sort address) - ("pgp_mime_auto" quadoption "ask-yes") - ("pgp_auto_decode" boolean nil) - ("pgp_decode_command" string "") - ("pgp_getkeys_command" string "") - ("pgp_verify_command" string "") - ("pgp_decrypt_command" string "") - ("pgp_clearsign_command" string "") - ("pgp_sign_command" string "") - ("pgp_encrypt_sign_command" string "") - ("pgp_encrypt_only_command" string "") - ("pgp_import_command" string "") - ("pgp_export_command" string "") - ("pgp_verify_key_command" string "") - ("pgp_list_secring_command" string "") - ("pgp_list_pubring_command" string "") - ("forward_decrypt" boolean t) - ("smime_timeout" number 300) - ("smime_encrypt_with" string "") - ("smime_keys" path "") - ("smime_ca_location" path "") - ("smime_certificates" path "") - ("smime_decrypt_command" string "") - ("smime_verify_command" string "") - ("smime_verify_opaque_command" string "") - ("smime_sign_command" string "") - ("smime_sign_opaque_command" string "") - ("smime_encrypt_command" string "") - ("smime_pk7out_command" string "") - ("smime_get_cert_command" string "") - ("smime_get_signer_cert_command" string "") - ("smime_import_cert_command" string "") - ("smime_get_cert_email_command" string "") - ("smime_default_key" string "") - ("ssl_force_tls" boolean nil) - ("ssl_starttls" quadoption "yes") - ("certificate_file" path "~/.mutt_certificates") - ("ssl_use_sslv3" boolean t) - ("ssl_use_tlsv1" boolean t) - ("ssl_min_dh_prime_bits" number 0) - ("ssl_ca_certificates_file" path "") - ("pipe_split" boolean nil) - ("pipe_decode" boolean nil) - ("pipe_sep" string "\\n") - ("pop_authenticators" string "") - ("pop_auth_try_all" boolean t) - ("pop_checkinterval" number 60) - ("pop_delete" quadoption "ask-no") - ("pop_host" string "") - ("pop_last" boolean nil) - ("pop_reconnect" quadoption "ask-yes") - ("pop_user" string "") - ("pop_pass" string "") - ("post_indent_string" string "") - ("postpone" quadoption "ask-yes") - ("postponed" path "~/postponed") - ("preconnect" string "") - ("print" quadoption "ask-no") - ("print_command" path "lpr") - ("print_decode" boolean t) - ("print_split" boolean nil) - ("prompt_after" boolean t) - ("query_command" path "") - ("quit" quadoption "yes") - ("quote_regexp" regular "^([ \t]*[|>:}#])+") - ("read_inc" number 10) - ("read_only" boolean nil) - ("realname" string "") - ("recall" quadoption "ask-yes") - ("record" path "~/sent") - ("reply_regexp" regular "^(re([\[0-9\]+])*|aw):[ \t]*") - ("reply_self" boolean nil) - ("reply_to" quadoption "ask-yes") - ("resolve" boolean t) - ("reverse_alias" boolean nil) - ("reverse_name" boolean nil) - ("reverse_realname" boolean t) - ("rfc2047_parameters" boolean nil) - ("save_address" boolean nil) - ("save_empty" boolean t) - ("save_name" boolean nil) - ("score" boolean t) - ("score_threshold_delete" number -1) - ("score_threshold_flag" number 9999) - ("score_threshold_read" number -1) - ("send_charset" string "us-ascii:iso-8859-1:utf-8") - ("sendmail" path "/usr/sbin/sendmail -oem -oi") - ("sendmail_wait" number 0) - ("shell" path "") - ("sig_dashes" boolean t) - ("sig_on_top" boolean nil) - ("signature" path "~/.signature") - ("simple_search" string "~f %s | ~s %s") - ("smart_wrap" boolean t) - ("smileys" regular "(>From )|(:[-^]?[][)(><}{|/DP])") - ("sleep_time" number 1) - ("sort" sort date) - ("sort_alias" sort alias) - ("sort_aux" sort date) - ("sort_browser" sort alpha) - ("sort_re" boolean t) - ("spam_separator" string ",") - ("spoolfile" path "") - ("status_chars" string "-*%A") - ("status_format" string "-%r-Mutt: %f [Msgs:%?M?%M/?%m%?n? New:%n?%?o? Old:%o?%?d? Del:%d?%?F? Flag:%F?%?t? Tag:%t?%?p? Post:%p?%?b? Inc:%b?%?l? %l?]---(%s/%S)-%>-(%P)---") - ("status_on_top" boolean nil) - ("strict_mime" boolean t) - ("strict_threads" boolean nil) - ("suspend" boolean t) - ("text_flowed" boolean nil) - ("thread_received" boolean nil) - ("thorough_search" boolean nil) - ("tilde" boolean nil) - ("timeout" number 600) - ("tmpdir" path "") - ("to_chars" string " +TCFL") - ("tunnel" string "") - ("use_8bitmime" boolean nil) - ("use_domain" boolean t) - ("use_envelope_from" boolean nil) - ("use_from" boolean t) - ("use_idn" boolean t) - ("use_ipv6" boolean t) - ("user_agent" boolean t) - ("visual" path "") - ("wait_key" boolean t) - ("weed" boolean t) - ("wrap_search" boolean t) - ("wrapmargin" number 0) - ("write_inc" number 10) - ("write_bcc" boolean t) - ("xterm_icon" string "M%?n?AIL&ail?") - ("xterm_set_titles" boolean nil) - ("xterm_title" string "Mutt with %?m?%m messages&no messages?%?n? [%n NEW]?")) - "List of muttrc variables. Format is: -VARIABLE TYPE DEFAULT" - ) - -(defconst muttrc-mutt-function-alist - '(("attach-file" . 0) - ("attach-key" . 1) - ("attach-message" . 2) - ("backspace" . 3) - ("backward-char" . 4) - ("bol" . 5) - ("bottom-page" . 6) - ("bounce-message" . 7) - ("buffy-cycle" . 8) - ("change-dir" . 9) - ("change-folder" . 10) - ("change-folder-readonly" . 11) - ("check-new" . 12) - ("clear-flag" . 13) - ("complete" . 14) - ("complete-query" . 15) - ("copy-file" . 16) - ("copy-message" . 17) - ("create-alias" . 18) - ("current-bottom" . 19) - ("current-middle" . 20) - ("current-top" . 21) - ("decode-copy" . 22) - ("decode-save" . 23) - ("delete-char" . 24) - ("delete-entry" . 25) - ("delete-message" . 26) - ("delete-pattern" . 27) - ("delete-subthread" . 28) - ("delete-thread" . 29) - ("detach-file" . 30) - ("display-address" . 31) - ("display-message" . 32) - ("display-toggle-weed" . 33) - ("edit" . 34) - ("edit-bcc" . 35) - ("edit-cc" . 36) - ("edit-description" . 37) - ("edit-encoding" . 38) - ("edit-fcc" . 39) - ("edit-file" . 40) - ("edit-from" . 41) - ("edit-headers" . 42) - ("edit-message" . 43) - ("edit-mime" . 44) - ("edit-reply-to" . 45) - ("edit-subject" . 46) - ("edit-to" . 47) - ("edit-type" . 48) - ("enter-command" . 49) - ("enter-mask" . 50) - ("eol" . 51) - ("exit" . 52) - ("extract-keys" . 53) - ("fetch-mail" . 54) - ("filter-entry" . 55) - ("first-entry" . 56) - ("flag-message" . 57) - ("forget-passphrase" . 58) - ("forward-char" . 59) - ("forward-message" . 60) - ("group-reply" . 61) - ("half-down" . 62) - ("half-up" . 63) - ("help" . 64) - ("history-down" . 65) - ("history-up" . 66) - ("ispell" . 67) - ("jump" . 68) - ("kill-eol" . 69) - ("kill-line" . 70) - ("kill-word" . 71) - ("last-entry" . 72) - ("limit" . 73) - ("list-reply" . 74) - ("mail" . 75) - ("mail-key" . 76) - ("mark-as-new" . 77) - ("middle-page" . 78) - ("new-mime" . 79) - ("next-entry" . 80) - ("next-line" . 81) - ("next-new" . 82) - ("next-page" . 83) - ("next-subthread" . 84) - ("next-thread" . 85) - ("next-undeleted" . 86) - ("next-unread" . 87) - ("parent-message" . 88) - ("pgp-menu" . 89) - ("pipe-entry" . 90) - ("pipe-message" . 91) - ("postpone-message" . 92) - ("previous-entry" . 93) - ("previous-line" . 94) - ("previous-new" . 95) - ("previous-page" . 96) - ("previous-subthread" . 97) - ("previous-thread" . 98) - ("previous-undeleted" . 99) - ("previous-unread" . 100) - ("print-entry" . 101) - ("print-message" . 102) - ("query" . 103) - ("query-append" . 104) - ("quit" . 105) - ("quote-char" . 106) - ("read-subthread" . 107) - ("read-thread" . 108) - ("recall-message" . 109) - ("redraw-screen" . 110) - ("refresh" . 111) - ("rename-file" . 112) - ("reply" . 113) - ("save-entry" . 114) - ("save-message" . 115) - ("search" . 116) - ("search-next" . 117) - ("search-opposite" . 118) - ("search-reverse" . 119) - ("search-toggle" . 120) - ("select-entry" . 121) - ("select-new" . 122) - ("send-message" . 123) - ("set-flag" . 124) - ("shell-escape" . 125) - ("show-limit" . 126) - ("show-version" . 127) - ("skip-quoted" . 128) - ("sort" . 129) - ("sort-mailbox" . 130) - ("sort-reverse" . 131) - ("subscribe" . 132) - ("sync-mailbox" . 133) - ("tag-entry" . 134) - ("tag-message" . 135) - ("tag-pattern" . 136) - ("tag-prefix" . 137) - ("tag-thread" . 138) - ("toggle-mailboxes" . 139) - ("toggle-new" . 140) - ("toggle-quoted" . 141) - ("toggle-subscribed" . 142) - ("toggle-unlink" . 143) - ("toggle-write" . 144) - ("top" . 145) - ("top-page" . 146) - ("undelete-entry" . 147) - ("undelete-message" . 148) - ("undelete-pattern" . 149) - ("undelete-subthread" . 150) - ("undelete-thread" . 151) - ("unsubscribe" . 152) - ("untag-pattern" . 153) - ("verify-key" . 154) - ("view-attach" . 155) - ("view-attachments" . 156) - ("view-file" . 157) - ("view-mailcap" . 158) - ("view-name" . 159) - ("view-text" . 160) - ("write-fcc" . 161)) - "List of Mutt command (not muttrc!)") - -(defconst muttrc-alias-sort-order-alist - '(("address" . 0) ("alias" . 1) ("unsorted" . 2))) - -(defconst muttrc-aux-sort-order-alist - '(("date-sent" . 0) ("reverse-date-sent" . 1) ("last-date-sent" . 2) - ("date-received" . 3) ("reverse-date-received" . 4) - ("last-date-received" . 5) - ("from" . 6) ("reverse-from" . 7) ("last-from" . 8) - ("mailbox-order" . 9) ("reverse-mailbox-order" . 10) - ("last-mailbox-order" . 11) - ("score" . 12) ("reverse-score" . 13) ("last-score" . 14) - ("size" . 15) ("reverse-size" . 16) ("last-size" . 17) - ("subject" . 18) ("reverse-subject" . 19) ("last-subject" . 20) - ("threads" . 21) ("reverse-threads" . 22) ("last-threads" . 23) - ("to" . 24) ("reverse-to" . 25) ("last-to" . 26))) - -(defconst muttrc-browser-sort-order-alist - '(("alpha" . 0) ("date" . 1) ("size" . 2) ("unsorted" . 3))) - -(defconst muttrc-pgp-sort-order-alist - '(("address" . 0) ("date" . 1) ("keyid" . 2) - ("reverse-address" . 3) ("reverse-date" . 4) - ("reverse-keyid" . 5) ("reverse-trust" . 6) - ("trust" . 7))) - -(defconst muttrc-quadoption-alist - '(("yes" .0) ("no" .1) ("ask-yes" .2) ("ask-no" .3))) - -(defconst muttrc-sort-order-alist - '(("date-sent" . 0) ("reverse-date-sent" . 1) - ("date-received" . 2) ("reverse-date-received" . 3) - ("from" . 4) ("reverse-from" . 5) - ("mailbox-order" . 6) ("reverse-mailbox-order" . 7) - ("score" . 8) ("reverse-score" . 9) - ("size" . 10) ("reverse-size" . 11) - ("subject" . 12) ("reverse-subject" . 13) - ("threads" . 14) ("reverse-threads" . 15) - ("to" . 16) ("reverse-to" . 17))) - -;;; ------------------------------------------------------------ -;;; Font-lock definitions -;;; ------------------------------------------------------------ - -(defun muttrc-string-regexp (quote-char) - (let ((c (char-to-string quote-char))) - (format "%s\\([^\n%s]\\|[\\].\\)*%s" c c c))) - -(defvar muttrc-generic-arg-regexp - (concat "\\(" - (muttrc-string-regexp ?\") - "\\|" - "'\\([^']*\\)'" - "\\|" - (muttrc-string-regexp ?\`) - "\\|" - "\\([^\n\t \"'`#;\\]\\|[\\].\\)+" - "\\)")) - -(defvar muttrc-generic-arg-sequence-regexp - (concat "\\(\\s-*" muttrc-generic-arg-regexp "+\\)*")) - -(defvar muttrc-non-command-keyword-regexp - "\\(^\\|;\\)\\s-*\\<\\(set\\|unset\\|toggle\\|reset\\)\\>") - -(defvar muttrc-variable-regexp - (concat "\\<\\(\\(no\\|inv\\)?\\(" - (mapconcat 'car muttrc-variables-alist "\\|") - "\\)\\)\\>")) - -(defvar muttrc-assignement-regexp - (concat muttrc-variable-regexp - "\\s-*\\(=\\s-*" muttrc-generic-arg-regexp "\\)?")) - -(defun muttrc-search-command-forward (command &optional limit) - (let ((cmd-desc (assoc command muttrc-command-alist))) - (if cmd-desc - (let ((cmd-match-data '()) - (cmd-args (cadr cmd-desc)) - (origin (point)) - beg-0 end-0) - (catch 'done - (while (and (not cmd-match-data) - (re-search-forward - (concat "\\(;\\|^\\)\\s-*\\(" command "\\)") - limit t)) - (let ((beg (nth 4 (match-data))) - (end (nth 5 (match-data)))) - (setq beg-0 beg) - (setq cmd-match-data (list beg end))) - (let ((args cmd-args)) - (while args - (let ((arg-type (caar args)) - (arg-re (if (null (cdr args)) - muttrc-generic-arg-sequence-regexp - muttrc-generic-arg-regexp))) - (skip-syntax-forward "-") - (if (looking-at arg-re) - (let ((beg (nth 0 (match-data))) - (end (nth 1 (match-data)))) - (goto-char end) - (setq cmd-match-data (append cmd-match-data - (list beg end))) - (setq end-0 end) - (setq args (cdr args))) - (progn - (setq args nil) - (setq cmd-match-data nil))))) - (when cmd-match-data - (set-match-data (cons beg-0 - (cons end-0 - cmd-match-data))) - (throw 'done t)))) - (goto-char origin) - nil))))) - - -(defun muttrc-font-lock-keywords () - (let ((command-alist muttrc-command-alist) - keywords) - (while command-alist - (let* ((cmd (caar command-alist)) - (args (cadr (car command-alist))) - (regexp (eval ; Simulate a closure - (list - 'lambda '(&optional limit) - (list 'muttrc-search-command-forward cmd 'limit)))) - (hilighters '((1 font-lock-keyword-face))) - (n 2)) - (while args - (let ((arg-type (caar args)) - (last-arg-p (null (cdr args)))) - (setq hilighters - (append hilighters - (let ((face - (or (cdr-safe - (assoc arg-type - muttrc-argument-faces-alist)) - 'default))) - (list (append (list n (list 'quote face)) - (if last-arg-p '(nil t)))))))) - (setq n (1+ n)) - (setq args (cdr args))) - (setq keywords (append keywords (list (cons regexp hilighters)))) - (setq command-alist (cdr command-alist)))) - (append keywords - (list - (list muttrc-non-command-keyword-regexp 2 - font-lock-keyword-face) - (list muttrc-assignement-regexp 1 - font-lock-variable-name-face))) - )) - -;;; ------------------------------------------------------------ -;;; Mode specific customization -;;; ------------------------------------------------------------ - -(defconst muttrc-mode-map nil - "The keymap that is used in Muttrc mode.") -(if (null muttrc-mode-map) - (setq muttrc-mode-map - (let ((map (make-sparse-keymap)) - (help-map (make-sparse-keymap)) - (ctrl-c-map (make-sparse-keymap))) - (define-key map "\C-c" ctrl-c-map) - (define-key ctrl-c-map "c" 'muttrc-insert-command) - (define-key ctrl-c-map "C" 'comment-region) - (define-key ctrl-c-map "s" 'muttrc-set-variable) - (define-key ctrl-c-map "S" 'muttrc-unset-variable) - (define-key ctrl-c-map "f" 'muttrc-find-variable-in-buffer) - (define-key ctrl-c-map "h" help-map) - (define-key help-map "m" 'muttrc-find-manual-file) - (define-key help-map "v" 'muttrc-find-variable-help) - (define-key help-map "c" 'muttrc-find-command-help) - map))) - -(defvar muttrc-mode-syntax-table nil) -(when (null muttrc-mode-syntax-table) - (setq muttrc-mode-syntax-table (make-syntax-table)) - (modify-syntax-entry ?# "< " muttrc-mode-syntax-table) - (modify-syntax-entry ?\n "> " muttrc-mode-syntax-table) - (modify-syntax-entry ?\' "$ " muttrc-mode-syntax-table) - (modify-syntax-entry ?\' "$ " muttrc-mode-syntax-table) - (modify-syntax-entry ?_ "w " muttrc-mode-syntax-table) - (modify-syntax-entry ?- "w " muttrc-mode-syntax-table) - ) - -;;; ------------------------------------------------------------ -;;; The mode function itself. -;;; ------------------------------------------------------------ - -;;;###autoload -(defun muttrc-mode () - "Major mode for editing Muttrc files. -This function ends by invoking the function(s) `muttrc-mode-hook'. - -\\{muttrc-mode-map} -" - - (interactive) - (kill-all-local-variables) - - ;; Font lock. - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults - '('muttrc-font-lock-keywords - nil nil nil nil - (font-lock-syntactic-keywords . (("'[^'\n]*'" 0 "\""))))) - - ;; Comment stuff. - (make-local-variable 'comment-start) - (setq comment-start "#") - (make-local-variable 'comment-end) - (setq comment-end "") - (make-local-variable 'comment-start-skip) - (setq comment-start-skip "#+[ \t]*") - - ;; become the current major mode - (setq major-mode 'muttrc-mode) - (setq mode-name "Muttrc") - - ;; Activate keymap and syntax table. - (use-local-map muttrc-mode-map) - (set-syntax-table muttrc-mode-syntax-table) - - (run-hooks 'muttrc-mode-hook)) - - - -;;; ------------------------------------------------------------ -;;; Other functions -;;; ------------------------------------------------------------ - -(defun muttrc-perform-nonreg-test () - (interactive) - (save-excursion - (goto-char (point-min)) - (while (re-search-forward "^# Begin\\s-+\\(.*\\)$" nil t) - (let ((test-name (match-string-no-properties 1)) - (expr "")) - (catch 'loop - (while t - (or (= (forward-line 1) 0) - (throw 'loop t)) - (if (looking-at (format "^# End\\s-+%s\\s-*" - (regexp-quote test-name))) - (throw 'loop t)) - (if (looking-at "^# End\\s-+\\(.*\\)$") - (error "Found end of %s before %s" - (match-string-no-properties 1) test-name)) - (if (looking-at "^[^#]") - (error "End of %s not found" test-name)) - (if (looking-at "^#\\s-*\\(.*\\)$") - (setq expr (concat expr (match-string-no-properties 1)))))) - (if (eval (read expr)) - (message "Passed: %s" test-name) - (error "Failed: %s" test-name)))))) - -(defun muttrc-quote-string (s) - "Add a backslash on quotes and surround by quotes if needed." - (save-match-data - (cond ((or (not s) (equal s "")) "''") - ((string-match "^[^']*\\s-[^']*$" s) (format "'%s'" s)) - ((string-match "\\s-" s) - (concat "\"" - (mapconcat (lambda (c) - (if (eq c ?\") "\\\"" - (char-to-string c))) - s "") - "\"")) - (t s)))) - -(defun muttrc-prompt-string (prompt-base &optional default) - (if default - (format "%s [%s]: " prompt-base default) - (format "%s: " prompt-base))) - -(defun muttrc-token-around-point (alist &optional strip-fun) - (let ((word (and (functionp 'thing-at-point) - (funcall (or strip-fun 'identity) - (funcall 'thing-at-point 'word))))) - (if (and word (assoc word alist)) - word))) - -(defun muttrc-assignement (varname modifier &optional value) - (concat (format "%s%s" (or modifier "") varname) - (if (stringp value) - (format "=%s" - (muttrc-quote-string value)) - ""))) - -(defun muttrc-split-next-set-line () - "Returns the current line splitted into tokens. The result is a list -of tokens like: -\((CMD START END) ((VAR1 MODIFIER1 ASSIGNMENT1 START END) ... REST)). -Last element REST is one string that is the rest of the line." - (if (re-search-forward - "^\\s-*\\(set\\|unset\\|toggle\\|reset\\)\\s-+" nil t) - (let ((line (list (list (match-string-no-properties 1) - (match-beginning 1) - (match-end 1)))) - (limit (save-excursion - (end-of-line) - (point)))) - (catch 'done - (while (< (point) limit) - (or (looking-at - (format "\\<\\(inv\\|no\\)?\\([a-z][a-z_]*\\)\\>")) - (throw 'done t)) - (let ((modifier (match-string-no-properties 1)) - (varname (match-string-no-properties 2)) - (assignment nil)) - (goto-char (match-end 0)) - (skip-syntax-forward "-" limit) - (if (or (looking-at ; Set without quote - "=\\s-*\\([^'\" \t\n#]+\\)") - (looking-at ; Set with double quote (") - "=\\s-*\"\\(\\([^\"\\]\\|\\\\.\\)*\\)\"") - (looking-at ; Set with single quote (') - "=\\s-*'\\([^']*\\)'")) - (let ((type (let ((desc (assoc varname - muttrc-variables-alist))) - (if desc (cadr desc))))) - (if type - (and (eq type 'boolean) - (message "%s: can't assign a boolean" varname)) - (message "%s: unknown Muttrc variable" - varname)) - (setq assignment (match-string-no-properties 1)) - (goto-char (match-end 0)))) - (nconc line (list (list varname modifier - assignment - (match-beginning 0) - (match-end 0)))) - (skip-syntax-forward "-" limit)))) - (skip-syntax-backward "-") - (if (looking-at ".+$") - (nconc line (list (list (match-string-no-properties 0))))) - (end-of-line) - line))) - -(defun muttrc-splice-assignment (line varname) - "Returns a list where assignements for VARNAME are separated from -assignment for other variables." - (let ((l (cdr line)) - (in '()) - (out '())) - (while (and l (consp (car l))) - (let ((arg (car l))) - (if (string= (car arg) varname) - (setq in (append in (list arg))) - (setq out (append out (list arg))))) - (setq l (cdr l))) - (list in out))) - -(defun muttrc-new-value (cmd varname type modifier value default) - (if (eq type 'boolean) - (cond ((string= cmd "set") - (cond ((null modifier) t) - ((string= modifier "no") nil) - ((string= modifier "inv") (not value)))) - ((string= cmd "unset") - (cond ((null modifier) nil) - ((string= modifier "no") t) - ((string= modifier "inv") value))) - ((string= cmd "toggle") (not value)) - ((string= cmd "reset") - (cond ((null modifier) default) - ((string= modifier "no") (not default)) - ((string= modifier "inv") (not default))))) - (cond ((string= cmd "set") value) - ((string= cmd "unset") default) - ((string= cmd "toggle") - (error "%s: can't toggle non boolean" varname)) - ((string= cmd "reset") default)))) - -(defun muttrc-get-value-and-point (varname) - "Fetch the value of VARIABLE from the current buffer. It returns a -cons (VALUE . POINT) where POINT is the beginning of the line defining -VARNAME." - (save-excursion - (let ((var-descriptor (assoc varname muttrc-variables-alist))) - (or var-descriptor - (error "%s: unknown variable." varname)) - (goto-char (point-min)) - (let ((type (nth 0 (cdr var-descriptor))) - (default (nth 1 (cdr var-descriptor))) - (pos nil)) - (let ((value default)) - ;; We search all the definitions in the buffer because some - ;; users may use toggle or set inv... - (catch 'done - (while t - (let ((line (muttrc-split-next-set-line))) - (or line (throw 'done t)) - (let ((cmd (caar line)) - (assignments - (car (muttrc-splice-assignment line varname)))) - (if assignments - (setq pos (save-excursion - (beginning-of-line) - (point)))) - (while assignments - (let ((modifier (nth 1 (car assignments))) - (new-value (nth 2 (car assignments)))) - (setq value - (muttrc-new-value cmd varname type modifier - (or new-value value) - default))) - (setq assignments (cdr assignments))))))) - (cons value pos)))))) - -(defun muttrc-get-value (varname) - "Fetch the value of VARIABLE from the current buffer." - (let ((value (muttrc-get-value-and-point varname))) - (and value (car value)))) - -;;; ------------------------------------------------------------ -;;; Viewing manual -;;; ------------------------------------------------------------ - -(defvar muttrc-manual-buffer-name "*Mutt Manual*") - -(defun muttrc-find-manual-file-no-select () - "Convert overstriking and underlining to the correct fonts in a -file. The buffer does not visit the file." - (interactive) - (or (file-readable-p muttrc-manual-path) - (error "%s: file not found" muttrc-manual-path)) - (let ((buf (get-buffer-create muttrc-manual-buffer-name))) - (save-excursion - (set-buffer buf) - (if (not buffer-read-only) - (let ((insert-contents-fun - (condition-case nil - (and (require 'jka-compr) - 'jka-compr-insert-file-contents) - (error 'insert-file-contents)))) - (funcall insert-contents-fun muttrc-manual-path nil nil nil t) - (buffer-disable-undo buf) - (Man-fontify-manpage) - (set-buffer-modified-p nil) - (toggle-read-only) - (goto-char (point-min)))) - buf))) - -(defun muttrc-find-manual-file () - "Convert overstriking and underlining to the correct fonts in a -file. The buffer does not visit the file." - (interactive) - (switch-to-buffer-other-window - (muttrc-find-manual-file-no-select) t)) - -(defun muttrc-search-command-help-forward (command) - (when (re-search-forward - (format "^[ \t]*Usage:\\s-*\\(\\[un\\]\\)?%s" command) - nil t) - (goto-char (match-beginning 0)) - (forward-line -2) - (point))) - -(defun muttrc-search-variable-help-forward (command) - (when (and (re-search-forward - (format "^[ \t]*%s\\.?\\s-*%s\\s-*$" - "\\([1-9][0-9.]*\\)" - (regexp-quote variable)) - nil t) - (re-search-forward - (format "^[ \t]*%s\\.?\\s-*%s\\s-*$" - "\\([1-9][0-9.]*\\)" - (regexp-quote variable)) - nil t) - (re-search-forward - (format "^[ \t]*%s\\.?\\s-*%s\\s-*$" - (regexp-quote (match-string-no-properties 1)) - (regexp-quote variable)) - nil t)) - (goto-char (match-beginning 0)) - (point))) - -(defun muttrc-find-help (search-fun topic) - "Find an help topic in the manual and display it. Returns the manual -buffer." - (let ((buf (muttrc-find-manual-file-no-select))) - (let ((win (get-buffer-window buf)) - help-start) - (save-excursion - (set-buffer buf) - (goto-char (point-min)) - (or (funcall search-fun topic) - (error "%s: entry not found in Mutt manual." command)) - (setq help-start (point)) - (unless (get-buffer-window buf) - (switch-to-buffer-other-window buf t)) - (set-window-start win help-start))) - buf)) - -(defun muttrc-find-command-help (&optional command) - (interactive - (let ((word (muttrc-token-around-point muttrc-command-alist))) - (list (muttrc-get-from-list "Command" word 'muttrc-command-alist t)))) - (muttrc-find-help 'muttrc-search-command-help-forward - (if (string-match "^un\\(.*\\)$" command) - (match-string-no-properties 1 command) - command))) - -(defun muttrc-find-variable-help (&optional variable) - (interactive - (list - (let ((word (muttrc-token-around-point - muttrc-variables-alist - (function - (lambda (word) - (if (and word - (string-match "^\\(no\\|inv\\)\\(.*\\)$" word)) - (match-string-no-properties 2 word) - word)))))) - (muttrc-get-from-list "Variable" word 'muttrc-variables-alist)))) - (muttrc-find-help 'muttrc-search-variable-help-forward variable)) - -(defun muttrc-bury-manual-buffer () - (let ((buf (get-buffer muttrc-manual-buffer-name))) - (if buf (bury-buffer buf)))) - -;;; ------------------------------------------------------------ -;;; Argument handlers -;;; ------------------------------------------------------------ - -(defun muttrc-call-arg-handler (key default &optional prompt) - "Call the function that properly prompts for an argument type." - (let ((handler-args (assoc key muttrc-arg-handler-alist))) - (or handler-args - (error "%s: unknown argument type." (symbol-name key))) - (let ((cmd (nth 0 (cdr handler-args))) - (default-prompt (nth 1 (cdr handler-args))) - (args (cdr (cddr handler-args)))) - (apply cmd (or prompt default-prompt) default args)))) - -(defun muttrc-get-boolean (prompt &optional default) - "Prompt for a boolean." - (y-or-n-p (format "%s? " prompt))) - -(defun muttrc-get-number (prompt default) - "Prompt for a string and return DEFAULT if the string is empty" - (or (read-from-minibuffer (muttrc-prompt-string prompt default)) - default)) - -(defun muttrc-get-string (prompt default) - "Prompt for a string and return DEFAULT if the string is empty" - (let ((s (read-from-minibuffer (muttrc-prompt-string prompt default)))) - (if (> (length s) 0) s default))) - -(defun muttrc-get-word (prompt default) - "Prompt for a word and return DEFAULT if it is empty" - (let ((s (read-from-minibuffer (muttrc-prompt-string prompt default)))) - (or (string-match "^\\w*$" s) - (error "%s: invalid entry, expecting a word" s)) - (if (> (length s) 0) s default))) - -(defun muttrc-get-from-list (prompt default list &optional require-match) - "Prompt for a string from list and return DEFAULT if the string is empty" - (let ((s (completing-read (muttrc-prompt-string prompt default) - (symbol-value list) - nil require-match))) - (if (> (length s) 0) s default))) - -(defun muttrc-get-path (prompt default) - "Prompt for a path and return DEFAULT if the string is empty. The -muttrc folder prefix is replaced by MUTTRC-FOLDER-ABBREV." - (let* ((folder (muttrc-get-value "folder")) - (path (read-file-name (muttrc-prompt-string prompt default) - folder folder))) - (let ((compacted-path - (if (string-match (format "^%s/?\\(.*\\)$" (regexp-quote folder)) - path) - (format "%s%s" - (char-to-string muttrc-folder-abbrev) - (match-string-no-properties 1 path)) - path))) - (if (not (string= compacted-path - (char-to-string muttrc-folder-abbrev))) - compacted-path - default)))) - -(defun muttrc-get-assignment (&optional prompt default - with-value-p) - (let ((varname (completing-read (muttrc-prompt-string prompt default) - muttrc-variables-alist))) - (if (assoc varname muttrc-variables-alist) - (let* ((type (cadr (assoc varname muttrc-variables-alist))) - (default (car-safe (muttrc-get-value-and-point varname))) - (value (if with-value-p - (muttrc-call-arg-handler type default "Value")))) - (if with-value-p - (muttrc-assignement varname - (and (eq type 'boolean) - (not value) - "no") - value) - varname)) - default))) - -;;; ------------------------------------------------------------ -;;; Commands insertion -;;; ------------------------------------------------------------ - -(defun muttrc-get-command (&optional prompt default) - "Prompts the usr for a command to enter and asks for all the arguments." - (let* ((cmd (muttrc-get-from-list "Command" nil 'muttrc-command-alist t)) - (cmd-descriptor (cdr (assoc cmd muttrc-command-alist))) - (arg-list-type (nth 0 cmd-descriptor)) - (repeat-p (nth 1 cmd-descriptor)) - (optional-p (nth 2 cmd-descriptor)) - (arg-list-value (list cmd))) - (save-window-excursion - (if (and muttrc-display-help) - (save-excursion - (muttrc-find-command-help cmd))) - (while arg-list-type - (let* ((arg-type (caar arg-list-type)) - (arg (apply 'muttrc-call-arg-handler - (append (list arg-type nil) - (cdar arg-list-type))))) - (if arg - (progn - (nconc arg-list-value - (list (if (eq arg-type 'assignment) - arg ; assignment are quoted by handler - (muttrc-quote-string arg)))) - (if (and repeat-p - (null (cdr arg-list-type))) - (setq optional-p t) - (setq arg-list-type (cdr arg-list-type)))) - (if (and (null (cdr arg-list-type)) - optional-p) - (setq arg-list-type nil) - (error "Argument required")))))) - (muttrc-bury-manual-buffer) - (mapconcat 'identity arg-list-value " "))) - -(defun muttrc-get-statement (&optional prompt default) - (let ((muttrc-command-alist muttrc-statement-alist)) - (muttrc-get-command prompt default))) - -(defun muttrc-insert-command () - "Insert a muttrc command on the current line." - (interactive) - (let ((cmd-line (muttrc-get-command))) - (beginning-of-line) - (or (eolp) (forward-line 1)) - (insert cmd-line) - (newline))) - -;;; ------------------------------------------------------------ -;;; Setting variables -;;; ------------------------------------------------------------ - -(defun muttrc-update-current-line (varname type &optional value) - "Rewrites the current line by setting VARNAME to VALUE. If the -statement is not \"set\", the variable is removed. In set statement, -it is removed if the value is NIL and the variable is not a boolean. -The function returns t is the variable is really assigned in the line." - (let* ((line (muttrc-split-next-set-line)) - (cmd (caar line)) - (kill-whole-line t) - (args "") - (set-p nil)) - (beginning-of-line) - (kill-line) - (let ((l (cdr line))) - (while l - (let ((elt (car l))) - (if (consp elt) - (let ((this-var (nth 0 elt)) - (this-modifier (nth 1 elt)) - (this-value (nth 2 elt))) - (let ((assignement - (if (string= this-var varname) - (when (string= cmd "set") - (setq set-p t) - (cond ((eq type 'boolean) - (muttrc-assignement varname - (if (not value) "no") - value)) - (value - (muttrc-assignement varname nil value)) - (t (setq set-p nil)))) - (muttrc-assignement this-var - this-modifier - this-value)))) - (if assignement - (setq args (concat args " " assignement))))) - (setq args (concat args elt)))) - (setq l (cdr l)))) - (when (not (string= args "")) - (insert cmd) - (insert args) - (newline)) - (backward-char 1) - set-p)) - -(defun muttrc-update-variable (varname type value pos) - (catch 'done - (when pos - (goto-char pos) - (if (muttrc-update-current-line varname type value) - (throw 'done t))) - (end-of-line) - (let ((cr-after-p (bolp)) - (cmd (if (or value (eq type 'boolean)) "set" "unset")) - (modifier (if (and (not value) (eq type 'boolean)) "no"))) - (or cr-after-p (newline)) - (insert cmd " " - (muttrc-assignement varname modifier value)) - (if cr-after-p (newline)))) - t) - -(defun muttrc-set-variable (&optional varname type value pos) - (interactive - (let* ((varname (muttrc-get-from-list "Variable" nil - 'muttrc-variables-alist t)) - (type (cadr (assoc varname muttrc-variables-alist))) - (default (muttrc-get-value-and-point varname))) - (list varname type - (save-window-excursion - (if muttrc-display-help - (save-excursion - (muttrc-find-variable-help varname))) - (muttrc-call-arg-handler type (car default))) - (cdr default)))) - (muttrc-bury-manual-buffer) - (muttrc-update-variable varname type value pos)) - -(defun muttrc-unset-variable (&optional varname type pos) - (interactive - (let* ((varname (muttrc-get-from-list "Variable" nil - 'muttrc-variables-alist t)) - (type (cadr (assoc varname muttrc-variables-alist))) - (default (muttrc-get-value-and-point varname))) - (list varname type (cdr default)))) - (muttrc-update-variable varname type nil pos)) - -(defun muttrc-find-variable-in-buffer (&optional varname) - (interactive - (list (muttrc-get-from-list "Variable" nil - 'muttrc-variables-alist t))) - (let* ((var-info (muttrc-get-value-and-point varname)) - (value (car var-info)) - (pos (cdr-safe var-info))) - (if pos - (goto-char pos) - (progn - (message "%s: variable not set (default: %s)" varname value))))) - -;;; ------------------------------------------------------------ -;;; Almost the end -;;; ------------------------------------------------------------ - -(provide 'muttrc-mode) - -;;; muttrc-mode.el ends here diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 365520e..18cb384 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -135,7 +135,6 @@ (setq-default bidi-display-reordering nil) ;;; Message -(add-to-list 'auto-mode-alist '(".*mutt.*" . message-mode)) (add-hook 'message-mode-hook (lambda () (turn-on-auto-fill) @@ -153,7 +152,6 @@ (autoload 'cmake-mode "cmake-mode" "Major mode for CMake" t) (autoload 'rainbow-mode "rainbow-mode" "Minor mode for colors" t) (autoload 'stumpwm-mode "stumpwm-mode" "Major mode for stumpwm" t) -(autoload 'muttrc-mode "muttrc-mode" "Major mode for muttrc" t) (autoload 'git-commit-mode "git-commit" "" t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- cgit v1.2.3-54-g00ecf