custom.el.example

;; -*- mode: emacs-lisp; -*-
;;; custom.el ---

;; set user name and email
(setq
  user-full-name "John Doe"
  user-mail-address "john (at) mail.com"
)

;; set font
(cond (window-system
        (set-default-font "Monospace 12"))
)

;; add commonly used paths
(push "~/work/dev" load-path)

;; set geiser compiler to racket, you can choose guile
(setq geiser-active-implementations '(racket))

(defun my-whitespace-mode-hook ()
  ;; set highlight foreground and background color
  ;; (set-face-foreground 'whitespace-line "red")
  ;; (set-face-background 'whitespace-line nil)
  (setq whitespace-style '(face lines-tail))
  (setq whitespace-line-column 80)
  (whitespace-mode)
)

;; enable white-space mode for emacs-lisp-mode
(add-hook 'emacs-lisp-mode-hook 'my-whitespace-mode-hook)
;; and for ruby
(add-hook 'ruby-mode-hook 'my-whitespace-mode-hook)


;; set visible ruler to control line lenght
(defun my-fci-mode-hook ()
  ;; set ruler position
  (setq fci-rule-column 80)
  (fci-mode)
)

;; enable ruler for emacs-lisp-mode
(add-hook 'emacs-lisp-mode-hook 'my-fci-mode-hook)
;; and for ruby
(add-hook 'ruby-mode-hook 'my-fci-mode-hook)

;; erlang-mode settings (for Ubuntu)
(setq erlang-root-dir "/usr/lib/erlang")
(setq exec-path (cons "/usr/lib/erlang/bin" exec-path))

;;; custom.el ends here