分类: LINUX
2007-07-21 15:09:55
- Download emms ,mp3info and mpg321 and install them.
- Add the following to .emacs
add-to-list 'load-path "/usr/local/emms/")
(require 'emms)
(require 'emms-default)
(emms-setup 'cvs "/mnt/win_e/music" "~/mp3")
(add-hook 'emms-player-started-hook 'emms-show)
(setq emms-show-format "NP: %s")
(setq dired-guess-shell-alist-user
`((,(regexp-opt
'(".mp3" ".ogg" ".wav" ".avi" ".mpg" ".dat" ".wma" ".asf" ".rmvb"))
(progn (emms-add-file (dired-get-filename))
(keyboard-quit)))))
- Operations:
- M-x emms-play-file
play a file
- M-x emms-play-directory
play a directory
- emms-pbi-popup-playlist
popup the playlist in emacs
- Download emacs-w3m and w3m and install them.
- Add the following to .emacs
(require 'w3m-load)
- Operations:
- M-x w3m-browse-url
browse a url
- M-x w3m-find-file
find a file to display
- RET (w3m-view-this-url)
Display the page pointed by the link under point
- g (w3m-goto-url)
Prompt for a URL make emacs-w3m display it
- c
Display the URL of displayed page and put it to kill-ring
- u
Display the URL of the point and put it to kill-ring
- R
Reload the page
- SPC
Scroll downwards.
- Del
Scroll upwards.
- >
Scroll to the left.
- <
Scroll to the right.
- TAB
Move the point to the next link
- M-TAB
Move the point to the previous anchor.
-B (w3m-view-previous-page)
Move back one page in history.
-N (w3m-view-next-page)
Move forward one page in history
-H (w3m-gohome)
Move to the home page
- Download VM and install it.
- Add the following to .emacs
(setq mail-default-reply-to "jx@lucent.com")
(setq user-full-name "Gavin Xu")
(setq user-mail-address "jx@lucent.com")
(autoload 'vm "vm" "Start VM on your primary inbox." t)
(autoload 'vm-other-frame "vm" "Like `vm' but starts in another frame." t)
(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
(autoload 'vm-mail "vm" "Send a mail message using VM." t)
(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
- Add the following to .vm
(setq
;;; Mime stuff ("attachments") and browser tie-in.
vm-auto-displayed-mime-content-types
'("multipart/mixed" "multipart/alternative"
"text/plain" "multipart/signed")
vm-mime-base64-encoder-program "/usr/local/bin/base64-encode"
vm-mime-base64-decoder-program "/usr/local/bin/base64-decode"
vm-mime-qp-encoder-program "/usr/local/bin/qp-encode"
vm-mime-qp-decoder-program "/usr/local/bin/qp-decode"
vm-send-using-mime t
vm-url-browser
'vm-mouse-send-url-to-netscape ;;; ok w/mozilla too
vm-mime-external-content-types-alist
'(
("text/html" "mozilla") ;;; Will launch new browser.
("image/gif" "xv")
("image/jpeg" "xv")
("image/png" "xv")
("application/pdf" "acroread")
("application/postscript" "gv")
("video" "xanim")
("audio/x-pn-realaudio" "realplay")
("audio" "xwave")
)
;;; Folders, etc.
vm-primary-inbox "~/Mail/Inbox"
vm-folder-directory "~/Mail/"
vm-crash-box "~/Mail/INBOX.CRASH"
vm-auto-get-new-mail t
vm-circular-folders nil
vm-confirm-new-folders t
vm-convert-folder-types t
;;; forwarding, replying, etc.
vm-forwarding-subject-format "[forwarded from %F] %s"
vm-forwarding-digest-type "rfc934"
vm-in-reply-to-format nil
vm-included-text-attribution-format
"On %w, %m %d, %y at %h (%z), %F wrote:\n"
vm-reply-subject-prefix "Re: "
;;; Misc
vm-mail-header-from "Gavin Xu "
vm-move-after-deleting t
vm-delete-after-saving t
vm-edit-message-mode 'indented-text-mode
vm-follow-summary-cursor t
vm-default-folder-type 'From_-with-Content-Length
vm-trust-From_-with-Content-Length t
;;; emacs frames (windows)
vm-frame-per-composition nil
vm-frame-per-folder t
vm-frame-per-edit nil
;;; appearance
vm-highlighted-header-regexp
"^From\\|^Subject\\|^Date\\|^CC\\|^Cc\\|To"
vm-preview-lines nil
vm-startup-with-summary t
vm-summary-format "%3n %*%A %-17.17F %-3.3m %2d (%4l) %I%s\n"
vm-summary-highlight-face "region"
vm-summary-show-threads nil
vm-visible-headers '("From:" "Sender:" "To:" "Apparently-To:"
"Cc:" "Subject:" "Date:" "Resent-From:"
"Message-Id:" "Message-ID:" "Message-id:"
"Resent-Sender:" "X-Zippy")
)
;;; misc: zap deleted messages when you quit a folder:
(add-hook 'vm-quit-hook 'vm-expunge-folder)
;;; From Bill Cotton: the "l" key prints. My way!
(define-key vm-mode-map "l" 'print-messages)
(setq vm-spool-files (list
(concat "imap:mail.qd.lucent.com:143:inbox:login:"
(getenv "USER") ":*")))