Break out #emacs config a little better

This commit is contained in:
Colin Powell
2019-11-26 13:33:19 -05:00
parent 5683da23d3
commit 4b96cd6bd9
9 changed files with 58 additions and 43 deletions

View File

@ -72,12 +72,6 @@
(:prefix "o"
:desc "Elfeed feed reader" "f" #'elfeed
:desc "Lobste.rs" "l" #'ivy-lobsters)
(:prefix "l"
:desc "MPD Open playlist" "o" #'mpdel-playlist-open
:desc "MPD Remove at point" "d" #'mpdel-playlist-delete
:desc "MPD Start at point" "s" #'mpdel-playlist-play
:desc "MPD Next track" "n" #'libmpdel-playback-next
:desc "MPD Previous track" "p" #'libmpdel-playback-previous)
(:prefix "b"
:desc "Black format buffer" "f" #'blacken-buffer
:desc "Links in buffer" "l" #'ace-link-org)
@ -120,20 +114,6 @@
(setq rmh-elfeed-org-files (list "~/org/elfeed.org")
elfeed-search-filter "@1-week-ago +unread ")
;; emacs/eshell
(after! eshell
(set-eshell-alias!
"f" "(other-window 1) && find-file $1"
"l" "ls -lh"
"d" "dired $1"
"dc" "docker-compose $*"
"fftest" "cd ~/src/ff/fifteen5 && docker-compose exec app django-admin test -k $*"
"ffsh" "cd ~/src/ff/fifteen5/ && docker-compose exec app django-admin shell_plus"
"ffdj" "cd ~/src/ff/fifteen5/ && docker-compose exec app django-admin $*"
"gl" "(call-interactively 'magit-log-current)"
"gs" "magit-status"
"gc" "magit-commit"))
(add-hook 'prog-mode-hook #'goto-address-mode) ;; Linkify links!
;; tools/deft
@ -144,14 +124,6 @@
(setq magit-repository-directories '(("~/work" . 2))
magit-save-repository-buffers nil)
;;; Setup sending email with msmtp
(setq send-mail-function 'sendmail-send-it
sendmail-program "/usr/local/bin/msmtp"
mail-specify-envelope-from t
message-sendmail-f-is-evil t
message-sendmail-envelope-from 'header
message-sendmail-extra-arguments '("--read-envelope-from")
mail-envelope-from 'header)
;;; It is the opposite of fill-paragraph
(defun unfill-paragraph ()
@ -162,26 +134,21 @@
;; Handy key definition
(define-key global-map "\M-z" 'unfill-paragraph)
(achievements-mode)
; add a v
(nyan-mode)
(add-to-list 'auto-mode-alist '("\\.plantuml\\'" . planetuml-mode))
(load! "+ui.el")
(load! "+org") ;; Org mode stuff like todos and rebindings
(load! "+org-cal")
(load! "+nov") ;; nov.el epub mode settings
;(load! "+elfeed")
(load! "+mail") ;; Mail stuff
(load! "+eshell")
(load! "+mpd")
(load! "+ranger")
(load! "+mastodon")
(load! "+wttrin") ;; Weather config
(defun mpdel-playlist-play ()
"Start playing the song at point."
(interactive)
(if (derived-mode-p 'mpdel-playlist-current-playlist-mode)
(libmpdel-play-song (navigel-entity-at-point))
(mpdel-core-insert-current-playlist)))
;(load! "+elfeed") ;; This runs a background web process ...
;; findout timezone location strings at http://worldtime.io
(setq display-time-world-list '(("America/Los_Angeles" "San Francisco")
@ -190,3 +157,4 @@
("Europe/London" "London")
("Europe/Warsaw" "Warsaw")
("Europe/Kiev" "Lviv")))