emacs: update

emacs.d/init.el

@@ -1,8 +1,18 @@
 (require 'package)
 (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
-(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa") 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)
@@ -12,11 +22,16 @@
   (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))
@@ -25,15 +40,29 @@
   (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
+       (height . 44))) ; number of lines
 
 ;; sebsequent frame
 (setq default-frame-alist
       '((width . 100)   ; characters in a line
-        (height . 42))) ; number of lines
+       (height . 42))) ; number of lines
 
 ;; No welcome screen - opens directly in scratch buffer
 (setq inhibit-startup-message t
@@ -65,4 +94,19 @@
       recentf-exclude '("/tmp/" "/ssh:"))
 (recentf-mode)
 
-(global-set-key [C-Z] 'undo)
+; (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)