 (set-selection-coding-system 'utf-8)
 (prefer-coding-system 'utf-8)
 
+;; don't jump the screen
+(setq scroll-conservatively 10000)
+
 ;; projectile
 (projectile-global-mode)
+
+;; enable advanced emacs commands
+(put 'narrow-to-region 'disabled nil)
+(put 'narrow-to-page 'disabled nil)
+
+(defun mjhoy/proportional ()
+  "Use a proportional font"
+  (interactive)
+  (setq buffer-face-mode-face '(:family "Input Sans" :height 130))
+  (buffer-face-mode))
+
+(defun mjhoy/mono ()
+  "Use a monospace font"
+  (interactive)
+  (setq buffer-face-mode-face '(:family "Input Mono" :height 130))
+  (buffer-face-mode))
+
+;; compose/view setup.
+;; use proportional font (Input Sans) in email/twitter.
+(add-hook 'mu4e-compose-mode-hook
+          (lambda ()
+            (mjhoy/proportional)
+            (set-fill-column 72)
+            (flyspell-mode)))
+(add-hook 'mu4e-view-mode-hook 'mjhoy/proportional)
+(add-hook 'twittering-mode-hook 'mjhoy/proportional)
+
+;; disable scrollbars and menu bar on the mac. On Linux you can disable it in
+;; Xdefaults.
+(when (string-equal system-type "darwin")
+  (when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
+  (when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
+  (when (fboundp 'menu-bar-mode) (menu-bar-mode -1)))
 
 ;; ido
 ;; ===

  (define-key haskell-cabal-mode-map (kbd "C-c C-c") 'haskell-compile))
(add-hook 'haskell-mode-hook 'mjhoy/define-haskell-keys)
(add-hook 'haskell-cabal-hook 'mjhoy/define-haskell-cabal-keys)


;; cc mode
;; =======

         (myUrl (concat "dash://" myWord)))
    (browse-url myUrl)))

;; haskell
;; =======

