Update init.el
This commit is contained in:
parent
4a6936a2ed
commit
5b5da17503
|
@ -18,10 +18,19 @@
|
||||||
;; Investigate buffer-manage, comment-tags, company, guru-mode, ivy.
|
;; Investigate buffer-manage, comment-tags, company, guru-mode, ivy.
|
||||||
;; Integrate GDB?
|
;; Integrate GDB?
|
||||||
|
|
||||||
|
(if (fboundp `use-package)
|
||||||
|
()
|
||||||
|
(package-install `use-package))
|
||||||
|
|
||||||
|
(setq package-native-compile t)
|
||||||
|
(require 'package)
|
||||||
|
(add-to-list 'package-archives
|
||||||
|
`("melpa-unstable" . "https://melpa.org/packages/"))
|
||||||
|
|
||||||
|
|
||||||
;; Make startup faster by reducing the frequency of garbage
|
;; Make startup faster by reducing the frequency of garbage
|
||||||
;; collection. The default is 800 kilobytes. Measured in bytes.
|
;; collection. The default is 800 kilobytes. Measured in bytes.
|
||||||
(setq gc-cons-threshold (* 1000 1000 1000))
|
(setq gc-cons-threshold (* 1000 1000 1000))
|
||||||
|
|
||||||
|
|
||||||
;;;; Index:
|
;;;; Index:
|
||||||
|
@ -43,23 +52,28 @@
|
||||||
|
|
||||||
;; Subsection 1.1
|
;; Subsection 1.1
|
||||||
|
|
||||||
(use-package eww
|
(setq load-path
|
||||||
:defer t
|
(flatten-list
|
||||||
:config
|
(list load-path
|
||||||
(progn
|
(mapcar `directory-file-name `("/usr/share/emacs/site-lisp/quack.el")))))
|
||||||
(define-key eww-mode-map (kbd "C-c f") 'ace-link)
|
|
||||||
(setq
|
|
||||||
browse-url-browser-function 'eww-browse-url
|
|
||||||
shr-use-fonts nil
|
|
||||||
shr-use-colors nil
|
|
||||||
shr-indentation 2
|
|
||||||
eww-search-prefix "https://duckduckgo.com/lite")
|
|
||||||
|
|
||||||
;; Allow for multiple Wowsers.
|
(use-package eww
|
||||||
(defun eww-hook () "Reconfigure eww buffers on the fly."
|
:defer t
|
||||||
(progn (rename-buffer "eww" t)
|
:config
|
||||||
(variable-pitch-mode)))
|
(progn
|
||||||
(add-hook 'eww-mode-hook 'eww-hook)))
|
(define-key eww-mode-map (kbd "C-c f") 'ace-link)
|
||||||
|
(setq
|
||||||
|
browse-url-browser-function 'eww-browse-url
|
||||||
|
shr-use-fonts nil
|
||||||
|
shr-use-colors nil
|
||||||
|
shr-indentation 2
|
||||||
|
eww-search-prefix "https://duckduckgo.com/lite")
|
||||||
|
|
||||||
|
;; Allow for multiple Wowsers.
|
||||||
|
(defun eww-hook () "Reconfigure eww buffers on the fly."
|
||||||
|
(progn (rename-buffer "eww" t)
|
||||||
|
(variable-pitch-mode)))
|
||||||
|
(add-hook 'eww-mode-hook 'eww-hook)))
|
||||||
|
|
||||||
(use-package help-mode
|
(use-package help-mode
|
||||||
:defer t
|
:defer t
|
||||||
|
@ -102,7 +116,7 @@
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(add-hook 'server-after-make-frame-hook '(lambda () (load-theme 'modus-operandi t))) ;This is a workaround for Solaire Mode.
|
(add-hook 'server-after-make-frame-hook `(lambda () (load-theme 'modus-operandi t))) ;This is a workaround for Solaire Mode.
|
||||||
|
|
||||||
;; Fonts and faces.
|
;; Fonts and faces.
|
||||||
|
|
||||||
|
@ -227,8 +241,9 @@
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
(golden-ratio-mode 1)
|
(golden-ratio-mode 1)
|
||||||
;; Interop with ace-window.
|
;; Interop with other libraries.
|
||||||
(add-to-list 'golden-ratio-extra-commands 'ace-window)))
|
(setq golden-ratio-extra-commands
|
||||||
|
(flatten-list (list 'golden-ratio-extra-commands '(ace-window ace-jump-move))))))
|
||||||
|
|
||||||
|
|
||||||
;; Dim inactive buffers.
|
;; Dim inactive buffers.
|
||||||
|
@ -310,11 +325,16 @@
|
||||||
:config
|
:config
|
||||||
(global-set-key (kbd "M-o") 'ace-window))
|
(global-set-key (kbd "M-o") 'ace-window))
|
||||||
|
|
||||||
(use-package avy
|
;; (use-package avy
|
||||||
|
;; :ensure t
|
||||||
|
;; :demand
|
||||||
|
;; :config
|
||||||
|
;; (global-set-key (kbd "C-c SPC") 'avy-jump-char))
|
||||||
|
(use-package ace-jump-mode
|
||||||
:ensure t
|
:ensure t
|
||||||
:demand
|
:demand
|
||||||
:config
|
:config
|
||||||
(global-set-key (kbd "C-c SPC") 'avy-jump-char))
|
(global-set-key (kbd "C-c SPC") 'ace-jump-char-mode))
|
||||||
|
|
||||||
(use-package ace-link
|
(use-package ace-link
|
||||||
:defer t
|
:defer t
|
||||||
|
@ -327,13 +347,6 @@
|
||||||
:ensure t
|
:ensure t
|
||||||
:defer t)
|
:defer t)
|
||||||
|
|
||||||
;; Make sure Emacs auto-compiles ELisp.
|
|
||||||
(use-package auto-compile
|
|
||||||
:ensure t
|
|
||||||
:defer t
|
|
||||||
:config
|
|
||||||
(auto-compile-on-save-mode t))
|
|
||||||
|
|
||||||
;; Add SLY, a Lisp REPL.
|
;; Add SLY, a Lisp REPL.
|
||||||
(use-package sly
|
(use-package sly
|
||||||
:ensure t
|
:ensure t
|
||||||
|
@ -527,7 +540,15 @@
|
||||||
'("2f93ebb862a9d50fee9c1b3302d858e2d2c0bba9d4e1be9bb3b08b7373f1710c" default))
|
'("2f93ebb862a9d50fee9c1b3302d858e2d2c0bba9d4e1be9bb3b08b7373f1710c" default))
|
||||||
'(helm-completion-style 'helm)
|
'(helm-completion-style 'helm)
|
||||||
'(package-selected-packages
|
'(package-selected-packages
|
||||||
'(ctxmenu aggressive-indent-mode xpm ws-butler web-completion-data use-package srfi solarized-theme solaire-mode smooth-scroll sly rainbow-mode rainbow-blocks powerline popwin paren-face parchment-theme names helm-slime helm-mode-manager helm-flycheck helm-eww good-scroll goggles gnuplot focus flyspell-correct-helm flymake-haskell-multi flymake flycheck-haskell flycheck-aspell eww-lnum electric-operator dimmer context-coloring clean-buffers auto-compile aggressive-indent ace-window ace-link ace-jump-mode ac-slime ac-html ac-haskell-process ac-etags)))
|
'(dimmer god-mode paredit geiser-mit ctxmenu aggressive-indent-mode xpm ws-butler web-completion-data use-package srfi solarized-theme solaire-mode sly rainbow-mode rainbow-blocks powerline popwin paren-face parchment-theme names helm-slime helm-mode-manager helm-flycheck helm-eww good-scroll goggles gnuplot focus flyspell-correct-helm flymake-haskell-multi flymake flycheck-haskell flycheck-aspell eww-lnum electric-operator context-coloring clean-buffers aggressive-indent ace-window ace-link ace-jump-mode ac-slime ac-html ac-haskell-process ac-etags))
|
||||||
|
'(quack-default-program "scheme")
|
||||||
|
'(quack-newline-behavior 'newline)
|
||||||
|
'(quack-programs
|
||||||
|
'("s9" "bigloo" "csi" "csi -hygienic" "gosh" "gracket" "gsi" "gsi ~~/syntax-case.scm -" "guile" "kawa" "mit-scheme" "racket" "racket -il typed/racket" "rs" "scheme" "scheme48" "scsh" "sisc" "stklos" "sxi"))
|
||||||
|
'(quack-run-scheme-always-prompts-p nil)
|
||||||
|
'(quack-smart-open-paren-p nil)
|
||||||
|
'(warning-suppress-log-types '((use-package) (comp)))
|
||||||
|
'(warning-suppress-types '((emacs) (comp))))
|
||||||
(custom-set-faces
|
(custom-set-faces
|
||||||
;; custom-set-faces was added by Custom.
|
;; custom-set-faces was added by Custom.
|
||||||
;; If you edit it by hand, you could mess it up, so be careful.
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||||||
|
|
Loading…
Reference in New Issue