(require 'mode-line)
(require 'quit)
(require 'super)
(require 'w3m-my)

(defmacro measure-time (&rest body)
  "Measure and return the running time of the code block.
Not mine: http://nullprogram.com/blog/2009/05/28/"
  (declare (indent defun))
  (let ((start (make-symbol "start")))
    `(let ((,start (float-time)))
       ,@body
       (- (float-time) ,start))))

;; Perl, shell script
(add-hook 'perl-mode-hook #'enable-line-mode) ; Perl
(add-hook 'sh-mode-hook   #'enable-line-mode) ; sh

;; Ada
(defvar ada-auto-case)
(defun ada-mode-hook-f ()
  (enable-line-mode)
  (setq ada-auto-case nil)
  (disable-super-global-keys) )
(add-hook 'ada-mode-hook #'ada-mode-hook-f)

;; Haskell
(defvar haskell-program-name)
(setq haskell-program-name "/usr/local/bin/ghci")

;; HTML
(defvar html-mode-map)
(defun html-mode-hook-f ()
  (enable-line-mode)
  (define-key html-mode-map "\C-ow" #'w3m-view)
  (auto-fill-mode   -1)
  (visual-line-mode -1) )
(add-hook 'html-mode-hook #'html-mode-hook-f)

;; nroff
;; man pages in Emacs: ~/.emacs.d/emacs-init/man-my.el
(defvar nroff-mode-map)
(defun nroff-mode-hook-f ()
  (disable-super-global-keys)
  (define-key nroff-mode-map "\C-o;" 'nroff-view)
  (auto-fill-mode -1) )
(add-hook 'nroff-mode-hook #'nroff-mode-hook-f)

;; XML
(defun nxml-mode-hook-f ()
  (visual-line-mode -1) )
(add-hook 'nxml-mode-hook #'nxml-mode-hook-f)