113 lines
2.8 KiB
EmacsLisp
113 lines
2.8 KiB
EmacsLisp
(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 'ctrl)
|
|
|
|
; 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)
|