;-*- Mode: Emacs-Lisp -*-
; .emacs-w3m -- for me
; Copyright       : http://www.fsf.org/copyleft/gpl.html
; Author          : Dan Jacobson http://jidanni.org/
; Created On      : Sat Apr 12 07:58:18 2008
; Last Modified On: Mon Sep  8 16:42:22 2008
; Update Count    : 32
(setq
 w3m-verbose t
 w3m-form-input-textarea-buffer-lines 99
 w3m-enable-google-feeling-lucky nil
 w3m-use-favicon nil
 w3m-default-coding-system 'utf-8
 w3m-coding-system-priority-list (list w3m-default-coding-system)
 w3m-use-cookies t
 w3m-treat-image-size nil
 w3m-home-page "http://localhost:8080/index/lasttime?sort=mtime"
 w3m-use-title-buffer-name t
 w3m-toggle-inline-images-permanently nil
 w3m-default-directory "~/")
(let ((d "/music/torrents/"))
  (setq w3m-default-save-directory
	(or(and(file-directory-p d)d)
	   w3m-default-directory)))
(dolist(vars(list
	     'w3m-bookmark-file-coding-system
	     'w3m-coding-system
	     'w3m-file-coding-system
	     'w3m-file-name-coding-system
	     'w3m-terminal-coding-system))
  (set vars w3m-default-coding-system))
(dolist (modemap (list w3m-mode-map w3m-minor-mode-map))
  (define-key modemap [up] 'previous-line)
  (define-key modemap [down] 'next-line)
  (define-key modemap [left] 'backward-char)
  (define-key modemap [right] 'forward-char))
(add-hook
 'w3m-fontify-after-hook
 (lambda nil
   (let ((inhibit-read-only t))
     (goto-char (point-min))
     (while (re-search-forward " +$" nil t)
       (delete-region (match-beginning 0) (match-end 0))))))
(add-hook
 'minibuffer-setup-hook
 (lambda ()
   (if (string-equal (minibuffer-prompt) "TEXT: ")
       (flyspell-mode 1))))

(add-hook 'w3m-form-input-textarea-mode-hook 'turn-off-auto-fill)