;; -*-emacs-Lisp-*-
; This is a lisp comment line.

; Some of this information was found at
; http://emacsblog.org/2007/04/09/highlight-the-current-line/.

; Prior to executing init.el, emacs executes /etc/emacs/site-start.el.
; The emacs installation directory is /usr/local/share/emacs/site-lisp.

; Do not display the splash screen on startup.  Note: This will allow
; default-directory to be ~/.
(customize-set-variable 'inhibit-startup-screen t)

(setq default-directory (concat (getenv "HOME") "/"))

(set-language-environment "UTF-8")
(set-default-coding-systems 'utf-8)

;; M-x list-colors-display
(set-background-color "honeydew")
; (set-background-color "cornsilk")
(electric-pair-mode t)
; (set-face-background 'hl-line "misty rose")
(show-paren-mode t)
(global-auto-revert-mode t)
(savehist-mode t)
(blink-cursor-mode t)

; Make searches case sensitive.
(setq-default case-fold-search nil)
(setq visible-bell t)
(add-hook 'text-mode-hook 'auto-fill-mode)
(put 'narrow-to-region 'disabled nil)
(setq doc-view-conversion-refresh-interval t)
(setq doc-view-continuous t)
(setq-default fill-column 60)

; Window frame parameters were researched at
; https://www.gnu.org/software/emacs/manual/html_node/elisp/
; Window-Frame-Parameters.html#Window-Frame-Parameters.
(setq default-frame-alist
      '((top . 0.03) (left . 0.69)
        (width . 100) (height . 65)
        (user-position t) (user-size t)
        ))

; Request column and line numbers on the mode line.
(line-number-mode t)
(column-number-mode t)

; Request the current line be highlighted.
(global-hl-line-mode t)
(set-face-background hl-line-face "misty rose")

; Request removal of whitespace prior to saving.
(add-hook 'before-save-hook 'delete-trailing-whitespace)

; Set my email address.
(setq user-mail-address "BlindStevie@mail.com")
(customize-set-variable 'user-mail-address "BlindStevie@mail.com")

; Use a clipboard.
; (customize-set-variable 'x-select-enable-clipbboard t)
; Display time on mode line.
; (display-time-mode t)


;; Mouse
(global-set-key [mouse-3] 'imenu)

;; And we return.
(message "Emacs has been initialized, %s%s" (user-login-name) ".")

;; Set the default font.
(custom-set-faces '(default ((t (:family "Ubuntu Mono" :foundry "DAMA"
 :slant normal :weight normal :height 128 :width normal)))))