154 lines
4.1 KiB
EmacsLisp
154 lines
4.1 KiB
EmacsLisp
;; Automatically update packages and removes old ones.
|
|
(use-package auto-package-update
|
|
:ensure t
|
|
:config
|
|
(setq auto-package-update-delete-old-versions t)
|
|
(setq auto-package-update-hide-results t)
|
|
(auto-package-update-maybe))
|
|
|
|
;; Light theme for using laptop outside.
|
|
(use-package basic-theme
|
|
:ensure t)
|
|
|
|
;;; Languages
|
|
(use-package haskell-mode
|
|
:ensure t
|
|
:config
|
|
(setq haskell-interactive-popup-errors nil)
|
|
:init
|
|
(add-hook 'haskell-mode-hook 'interactive-haskell-mode))
|
|
|
|
(use-package geiser
|
|
:ensure t
|
|
:config
|
|
;; Make geiser flash the region being evaluated on C-c C-c, like SLIME does.
|
|
(add-hook 'geiser-mode-hook
|
|
(lambda ()
|
|
(define-key geiser-mode-map (kbd "C-c C-c") nil) ;; remove default C-c C-c binding
|
|
(local-set-key (kbd "C-c C-c") (lambda ()
|
|
(interactive)
|
|
(fez/flash-region)
|
|
(geiser-eval-definition)))))
|
|
;; geiser requires extra packages for every implementation you want to use
|
|
(use-package geiser-guile
|
|
:ensure t)
|
|
(use-package geiser-mit
|
|
:ensure t)
|
|
(use-package geiser-chez
|
|
:ensure t))
|
|
|
|
(use-package sly
|
|
:ensure t
|
|
:config
|
|
(setq inferior-lisp-program "sbcl")
|
|
(add-hook 'sly-mode-hook
|
|
(lambda ()
|
|
(defun sly-flash-region (start end)
|
|
(fez/flash-region))))
|
|
(use-package sly-quicklisp
|
|
:ensure t))
|
|
|
|
;; Amazing s-expression editing mode.
|
|
(use-package paredit
|
|
:ensure t
|
|
:config
|
|
(add-hook 'scheme-mode-hook 'paredit-mode)
|
|
(add-hook 'lisp-mode-hook 'paredit-mode)
|
|
(add-hook 'emacs-lisp-mode-hook 'paredit-mode))
|
|
|
|
;;; Utility packages
|
|
;; undo-tree is mainly used for its redo functionality.
|
|
(use-package undo-tree
|
|
:ensure t
|
|
:bind
|
|
("C-_" . 'undo-tree-undo)
|
|
("M-_" . 'undo-tree-redo)
|
|
:config
|
|
(global-undo-tree-mode))
|
|
|
|
;; Nice startup screen.
|
|
(use-package dashboard
|
|
:ensure t
|
|
:config
|
|
(setq dashboard-banner-logo-title "")
|
|
(setq dashboard-startup-banner 'logo) ; add own image?
|
|
(setq dashboard-center-content t)
|
|
(setq dashboard-set-footer nil)
|
|
(dashboard-setup-startup-hook))
|
|
|
|
;; Easier selection for s-expressions and other things.
|
|
(use-package expand-region
|
|
:ensure t
|
|
:bind
|
|
("C-=" . er/expand-region)
|
|
:config
|
|
(pending-delete-mode t)) ; if you start typing while a word is selected, overwrite it
|
|
|
|
;; Multiple cursors make it easier to refactor stuff.
|
|
(use-package multiple-cursors
|
|
:ensure t
|
|
:config
|
|
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
|
|
(setq mc/always-run-for-all t))
|
|
|
|
;; Jump to definitions and files with M-.
|
|
(use-package dumb-jump
|
|
:ensure t
|
|
:config
|
|
(add-hook 'xref-backend-functions #'dumb-jump-xref-activate))
|
|
|
|
;; avy - jump around files more easily
|
|
(use-package avy
|
|
:ensure t
|
|
:bind ("M-s" . avy-goto-char))
|
|
|
|
;; Amazing git porcelain.
|
|
(use-package magit
|
|
:ensure t)
|
|
|
|
;; Minibuffer completion. Vertical display and faster than ido.
|
|
(use-package selectrum
|
|
:ensure t
|
|
:config
|
|
(selectrum-mode t))
|
|
|
|
;; better incremental search with minibuffer
|
|
(use-package swiper
|
|
:ensure t
|
|
:bind ("C-s" . 'swiper))
|
|
|
|
;; Instead of opening windows inside of Emacs, create new frames. This is great
|
|
;; for tiling window managers.
|
|
(use-package frames-only-mode
|
|
:ensure t
|
|
:config
|
|
(frames-only-mode))
|
|
|
|
;; Mode for browsing gemini/gopher sites.
|
|
(use-package elpher
|
|
:ensure t)
|
|
|
|
;; Highlight parentheses for Lisp
|
|
(use-package highlight-parentheses
|
|
:ensure t
|
|
:config
|
|
(add-hook 'scheme-mode-hook 'highlight-parentheses-mode)
|
|
(add-hook 'lisp-mode-hook 'highlight-parentheses-mode)
|
|
(add-hook 'emacs-lisp-mode-hook 'highlight-parentheses-mode))
|
|
|
|
;; org-mode
|
|
(use-package org
|
|
:ensure t
|
|
:config
|
|
;;; org-capture
|
|
;; Default location for org-capture is ~/org/notes.org
|
|
(setq org-default-notes-file (concat org-directory "/notes.org"))
|
|
(setq org-capture-templates
|
|
'(("t" "Task" entry (file+headline "~/org/tasks.org" "Tasks")
|
|
"* TODO %?\n %i\n %a")
|
|
("j" "Journal" entry (file+datetree "~/org/journal.org")
|
|
"* %?\nEntered on %U\n %i\n %a")))
|
|
(global-set-key (kbd "C-c o") 'org-capture))
|
|
|
|
(provide 'packages)
|