(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t)

(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")

(package-initialize)
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages
   (quote
    (evil-org monitor evil slime notmuch use-package magit dracula-theme))))

(unless (package-installed-p 'org)
  (package-refresh-contents)
  (package-install 'org))

(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

(unless (package-installed-p 'evil)
  (package-refresh-contents)
  (package-install 'evil))

(eval-when-compile
  (require 'use-package))
(require 'bind-key)

(setq user-full-name "Paul Walker")
(setq user-email "paul.walker@broadcom.com")
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
(when (file-exists-p custom-file)
  (load custom-file))

(when window-system
  (tool-bar-mode 0)
  (tooltip-mode 0))

(windmove-default-keybindings)

; Can re-bind these.
; windmove-up
; windmove-down
; windmove-left
; windmove-right

(eval-when-compile (require 'cl))

(ido-mode 1)
(global-set-key (kbd "C-p") 'fzf-git)
(global-set-key (kbd "C-x b") 'ibuffer)

;; initial window
(setq initial-frame-alist
      '((width . 102)   ; characters in a line
       (height . 44))) ; number of lines

;; sebsequent frame
(setq default-frame-alist
      '((width . 100)   ; characters in a line
       (height . 42))) ; number of lines

;; No welcome screen - opens directly in scratch buffer
(setq inhibit-startup-message t
      initial-scratch-message ""
      initial-major-mode 'fundamental-mode
      inhibit-splash-screen t)

(setq visible-bell nil)
(setq ring-bell-function 'ignore)

(fset 'yes-or-no-p 'y-or-n-p)

(setq save-abbrevs 'silently)
(setq-default abbrev-mode t)

(setq gdb-many-windows t
      gdb-show-main t)

(setq tramp-default-method "ssh"
      tramp-backup-directory-alist backup-directory-alist
      tramp-ssh-controlmaster-options "ssh")

(setq sentence-end-double-space nil)

(savehist-mode)

;; Recentf mode changes
(setq recentf-max-saved-items 1000
      recentf-exclude '("/tmp/" "/ssh:"))
(recentf-mode)

; (global-set-key [C-Z] 'undo)

(autoload 'notmuch "notmuch" "notmuch mail" t)

(use-package evil-org
  :ensure t
  :after org
  :config
  (add-hook 'org-mode-hook 'evil-org-mode)
  (add-hook 'evil-org-mode-hook
            (lambda ()
              (evil-org-set-key-theme)))
  (require 'evil-org-agenda)
  (evil-org-agenda-set-keys))

(add-hook 'after-init-hook 'global-company-mode)