;; [todo] - make new init file function work!
(defun adh-new-init-file ()
  "Add a new file to init loading with given name."
  (interactive)
  (set new-init-file-name (read-string "File name: " ))
  (delete-other-windows)
  (find-file "~/.emacs.d/init.el")
  (goto-char (point-max))
  (search-backward "require")
  (end-of-line)
  (newline-and-indent)
  (insert (format "(require '%s)" new-init-file-name))
  (split-window-right)
  (find-file (format "~/.emacs.d/init/%s.el" new-init-file-name))
  (insert (format "(provide '%s)" new-init-file-name))
  (newline 2))

;; [todo] - Need to setup auctex properly. Not in package repo just now?


(add-hook 'prog-mode-hook
          (lambda ()
            (auto-fill-mode 1)
            (show-paren-mode 1)))

(add-hook 'matlab-mode-hook
          (lambda ()
            ;(abbrev-mode 1)
            (auto-fill-mode 1)
            (if (eq window-system 'x)
                (font-lock-mode 1))))

(add-hook 'emacs-lisp-mode-hook
          (lambda ()

;; [todo] - change to auto-open PDFs in standard program instead?
(add-to-list 'auto-mode-alist '("\\.pdf\\'" . hexl-mode))

;; auctex mode when loading file with .tex extension.
;; [todo] - Need to setup auctex properly. Not in package repo just now?


(add-hook 'prog-mode-hook
          (lambda ()
            (auto-fill-mode 1)
            (show-paren-mode 1)))

(add-hook 'matlab-mode-hook
          (lambda ()
            ;(abbrev-mode 1)
            (auto-fill-mode 1)
            (if (eq window-system 'x)

;; [todo] -  extend for non-integers"
(defun pow (x n)
  "Computes X to power N (X^N)."
  (if (= n 1)
      x
    (* x (pow x (- n 1)))))

(provide 'adh_maths)

;;; adh_maths.el ends here

;; [fix] - scroll bars still appear. Need to remove.
;(set-scroll-bar-mode nil)
(scroll-bar-mode -1)

;; reduce fringe around each buffer
(set-fringe-mode 4)

;; column number in modeline
(column-number-mode t)

;; Change all yes/no questions to y/n type
(fset 'yes-or-no-p 'y-or-n-p)

;; Color Theme Setup
;(load-theme 'wombat t)
;(color-theme-solarized-dark)
(load-theme 'solarized-dark t)