(custom-set-faces '(default ((t (:inherit nil :extend nil :stipple nil :background "#000000" :distant-foreground "#ffffff" :foreground "#ffffff" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 70 :width normal :foundry "SGI" :family "SGI Screen"))))) (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) (package-initialize) (setq backup-directory-alist '(("" . "~/.emacs.d/backup"))) (setq browse-url-browser-function 'browse-url-generic) (setq browse-url-generic-program "qutebrowser") ;; Custom keybindings. (global-set-key "\C-h" 'delete-backward-char) (global-set-key "\C-xh" 'help-command) ;; Visual configuration and other stuff. (setq-default line-spacing 0) (setq ring-bell-function 'ignore) (scroll-bar-mode -1) (menu-bar-mode -1) (tool-bar-mode -1) (fringe-mode -1) (setq scroll-conservatively 100) ;; Mode configuration (global-visual-line-mode t) (add-hook 'sh-mode-hook (lambda () (sh-electric-here-document-mode -1))) (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)) (add-hook 'doc-view-mode-hook 'pdf-tools-install) (setq dired-listing-switches "-lXGh --group-directories-first")