← Back to branch summary

~vm/vm/vmpc-prompt

« back to all changes in this revision

Viewing changes to lisp/vm-vars.el

  • Committer: Uday S Reddy
  • Date: 2011-11-24 21:46:18 UTC
  • Revision ID: u.s.reddy@cs.bham.ac.uk-20111124214618-7ahdnb0sst4374jr
Modified the vm-mime-button-formats to be more user-friendly.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-vars.el
1983
1983
  :type 'symbol)
1984
1984
 
1985
1985
(defcustom vm-mime-button-format-alist
1986
 
  '(("text" . "%-50.50(%t, %d, %c%) [%a]")
1987
 
    ("multipart/alternative" . "%-50.50(%d%) [%a]")
1988
 
    ("multipart/digest" . "%-50.50(%d, %n message%s%) [%a]")
1989
 
    ("multipart" . "%-50.50(%d, %n part%s%) [%a]")
1990
 
    ("message/partial" . "%-50.50(%d, part %N (of %T)%) [%a]")
 
1986
  '(("text" . "%-60.60(%t: %f, %d, %c%) %10.10([%a]%)")
 
1987
    ("multipart/alternative" . "%-50.50(%d%) %20.20([%a]%)")
 
1988
    ("multipart/digest" . "%-50.50(%d, %n message%s%) %20.20([%a]%)")
 
1989
    ("multipart" . "%-50.50(%d, %n part%s%) %20.20([%a]%)")
 
1990
    ("message/partial" . "%-50.50(%d, part %N (of %T)%) %20.20([%a]%)")
1991
1991
    ("message/external-body" . "%-50.50(%d%) [%a (%x)]")
1992
 
    ("message" . "%-50.50(%d%) [%a]")
1993
 
    ("audio" . "%-50.50(%d%) [%a]")
1994
 
    ("video" . "%-50.50(%d%) [%a]")
1995
 
    ("image" . "%-50.50(%d%) [%a]")
1996
 
    ("application" . "%-50.50(%f, %d%) [%a]"))
 
1992
    ("message" . "%-50.50(%d%) %20.20([%a]%)")
 
1993
    ("audio" . "%-50.50(%t: %f, %d%) %20.20([%a]%)")
 
1994
    ("video" . "%-50.50(%t: %f, %d%) %20.20([%a]%)")
 
1995
    ("image" . "%-50.50(%t: %f, %d%) %20.20([%a]%)")
 
1996
    ("application" . "%-60.60(%t: %f, %d%) %10.10([%a]%)"))
1997
1997
  ;; old definition
1998
1998
  ;; '(("text" . "%-35.35(%d, %c%) [%k to %a]")
1999
1999
  ;;   ("multipart/alternative" . "%-35.35(%d%) [%k to %a]")
6960
6960
(defvar vm-mf-default-action nil)
6961
6961
(defvar vm-mime-compiled-format-alist nil)
6962
6962
(defconst vm-mime-default-action-string-alist
6963
 
  '(("text" . "display text")
 
6963
  ;; old definition
 
6964
  ;; '(("text" . "display text")
 
6965
  ;;   ("multipart/alternative" . "display selected part")
 
6966
  ;;   ("multipart/digest" . "read digest")
 
6967
  ;;   ("multipart/parallel" . "display parts in parallel")
 
6968
  ;;   ("multipart" . "display parts")
 
6969
  ;;   ("message/partial" . "attempt message assembly")
 
6970
  ;;   ("message/external-body" . "retrieve the object")
 
6971
  ;;   ("message" . "display message")
 
6972
  ;;   ("audio" . "play audio")
 
6973
  ;;   ("video" . "display video")
 
6974
  ;;   ("image" . "display image")
 
6975
  ;;   ("model" . "display model")
 
6976
  ;;   ("application/postscript" . "display PostScript")
 
6977
  ;;   ("application/msword" . "display Word document")
 
6978
  ;;   ("application" . "display attachment"))
 
6979
 
 
6980
  '(("text" . "display")
6964
6981
    ("multipart/alternative" . "display selected part")
6965
6982
    ("multipart/digest" . "read digest")
6966
6983
    ("multipart/parallel" . "display parts in parallel")
6967
6984
    ("multipart" . "display parts")
6968
6985
    ("message/partial" . "attempt message assembly")
6969
 
    ("message/external-body" . "retrieve the object")
6970
 
    ("message" . "display message")
6971
 
    ("audio" . "play audio")
6972
 
    ("video" . "display video")
6973
 
    ("image" . "display image")
6974
 
    ("model" . "display model")
6975
 
    ("application/postscript" . "display PostScript")
6976
 
    ("application/msword" . "display Word document")
6977
 
    ("application" . "display attachment")))
 
6986
    ("message/external-body" . "retrieve")
 
6987
    ("message" . "display")
 
6988
    ("audio" . "play")
 
6989
    ("video" . "play")
 
6990
    ("image" . "display")
 
6991
    ("model" . "display")
 
6992
    ("application" . "display")))
6978
6993
 
6979
6994
(defconst vm-mime-type-description-alist
6980
6995
  '(("multipart/digest" . "digest")
6984
6999
    ("text/plain" . "plain text")
6985
7000
    ("text/enriched" . "enriched text")
6986
7001
    ("text/html" . "HTML")
 
7002
    ("text/calendar" . "Calendar event")
 
7003
    ("text/directory" . "VCard")
 
7004
    ("text/x-vcard" . "VCard")
6987
7005
    ("image/gif" . "GIF image")
6988
7006
    ("image/tiff" . "TIFF image")
6989
7007
    ("image/jpeg" . "JPEG image")
6990
7008
    ("image/png" . "PNG image")
6991
7009
    ("message/rfc822" . "mail message")
6992
 
    ("message/news" . "USENET news article")
 
7010
    ("message/news" . "news article")
6993
7011
    ("message/partial" . "message fragment")
6994
 
    ("message/external-body" . "external object")
 
7012
    ("message/external-body" . "external")
 
7013
    ("application/pdf" . "PDF")
6995
7014
    ("application/postscript" . "PostScript")
6996
 
    ("application/msword" . "Word document")
6997
 
    ("application/vnd.ms-excel" . "Excel spreadsheet")
6998
 
    ("application/octet-stream" . "untyped binary data")))
 
7015
    ("application/msword" . "Document")
 
7016
    ("application/vnd.ms-excel" . "Spreadsheet")
 
7017
    ("application/vnd.ms-powerpoint" . "Presentation")
 
7018
    ("application/vnd-ms-access" . "Database")
 
7019
    ("application/vnd.oasis.opendocument.text" . "Open Doc")
 
7020
    ("application/vnd.oasis.opendocument.presentation" . "Prsentation")
 
7021
    ("application/vnd.oasis.opendocument.spreadsheet" . "Spreadsheet")
 
7022
    ("application/vnd.oasis.opendocument.graphics" . "Graphics")
 
7023
    ("application/vnd.oasis.opendocument.formulae" . "Formulae")
 
7024
    ("application/vnd.oasis.opendocument.databases" . "Database")
 
7025
    ("application/vnd.openxmlformats-officedocument.wordprocessingml.document"
 
7026
     . "Document")
 
7027
    ("application/vnd.openxmlformats-officedocument.wordprocessingml.document"
 
7028
     . "Document")
 
7029
    ("application/vnd.openxmlformats-officedocument.presentationml.presentation"
 
7030
     . "Presentation")
 
7031
    ("application/vnd.openxmlformats-officedocument.presentationml.presentation"
 
7032
     . "Presentation")
 
7033
    ("application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
 
7034
     . "Spreadsheet")
 
7035
    ("application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
 
7036
     . "Spreadsheet")
 
7037
    ("application/x-dvi" . "DVI")
 
7038
    ("application/octet-stream" . "Untyped binary data")
 
7039
    ("application/mac-binhex40" . "Untyped Mac data")))
6999
7040
 
7000
7041
(defconst vm-mime-base64-alphabet
7001
7042
  (concat