[emacs] Update notmuch pop ups

This commit is contained in:
2020-10-26 00:27:49 -04:00
parent 4c0fec3cec
commit 0a4b24ba94
3 changed files with 25 additions and 56 deletions

View File

@ -71,14 +71,14 @@
:desc "MPD Next track" "n" #'libmpdel-playback-next
:desc "MPD Previous track" "p" #'libmpdel-playback-previous))
(setq elfeed-protocol-ttrss-maxsize 200) ;; bigger than 200 is invalid
(setq elfeed-protocol-ttrss-maxsize 100) ;; bigger than 200 is invalid
(setq elfeed-feeds '("ttrss+https://powellc:hT7nPKAHa^fYwXZ*@reader.unbl.ink"))
(setq elfeed-log-level 'debug)
(elfeed-protocol-enable)
;; Schedule feed update for every day at 3PM
(run-at-time "15 min" nil 'elfeed-update)
;; Schedule feed update for every 15 minutes
(run-at-time "30 min" nil 'elfeed-update)
(setq elfeed-search-filter "@2-days-ago +unread")
(defun elfeed-search-format-date (date)
@ -241,6 +241,10 @@
message-sendmail-extra-arguments '("--read-envelope-from")
mail-envelope-from 'header)
(after! notmuch
(set-popup-rule! "^\\*notmuch*" :ignore t)
)
(map! :leader
(:prefix "e"
:desc "(s)end queued mail" "s" #'smtpmail-send-queued-mail
@ -263,6 +267,9 @@
;(add-hook 'python-mode-hook 'eglot-ensure)
(after! lsp
(setq lsp-file-watch-threshold nil))
(setq mastodon-instance-url "https://mastodon.technology")
(map! :leader

View File

@ -109,14 +109,14 @@ Right now, just make sure I can connect to my local Mopidy server via MPDel.
* RSS
Here were going to use TinyTinyRSS as a backend store for our RSS feeds.
#+BEGIN_SRC emacs-lisp
(setq elfeed-protocol-ttrss-maxsize 200) ;; bigger than 200 is invalid
(setq elfeed-protocol-ttrss-maxsize 100) ;; bigger than 200 is invalid
(setq elfeed-feeds '("ttrss+https://powellc:hT7nPKAHa^fYwXZ*@reader.unbl.ink"))
(setq elfeed-log-level 'debug)
(elfeed-protocol-enable)
;; Schedule feed update for every day at 3PM
(run-at-time "15 min" nil 'elfeed-update)
;; Schedule feed update for every 15 minutes
(run-at-time "30 min" nil 'elfeed-update)
#+END_SRC
Then welll setup some nice defaults and font settings for viewing feeds in Elfeed.
@ -323,6 +323,13 @@ I use notmuch to read and write email from within Emacs.
message-sendmail-extra-arguments '("--read-envelope-from")
mail-envelope-from 'header)
#+END_SRC
We want to make sure notmuch opens in a full window
#+begin_src emacs-lisp
(after! notmuch
(set-popup-rule! "^\\*notmuch*" :ignore t)
)
#+end_src
** Keybindings
#+BEGIN_SRC emacs-lisp
(map! :leader
@ -354,6 +361,11 @@ I once used LSP, but Emacs lsp-mode is flaky as hell. It works sometimes, but ot
#+BEGIN_SRC emacs-lisp
;(add-hook 'python-mode-hook 'eglot-ensure)
#+END_SRC
#+begin_src emacs-lisp
(after! lsp
(setq lsp-file-watch-threshold nil))
#+end_src
* Mastodon
There's gotta be a way to get the token out of password-store for this.
#+BEGIN_SRC emacs-lisp

View File

@ -1,50 +0,0 @@
;;; custom.el --- -*- lexical-binding: t; -*-
;; Copyright (C) 2020 Colin Powell
;; Author: Colin Powell <colin@unbl.ink>
;; Keywords:
(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.
'(doom-big-font-mode nil)
'(fci-rule-color "#504945")
'(jdee-db-active-breakpoint-face-colors (cons "#f0f0f0" "#a89984"))
'(jdee-db-requested-breakpoint-face-colors (cons "#f0f0f0" "#79740e"))
'(jdee-db-spec-breakpoint-face-colors (cons "#f0f0f0" "#928374"))
'(objed-cursor-color "#9d0006")
'(package-selected-packages
'(wttrin leuven-theme openwith caddyfile-mode wordgen w3m vterm-toggle ponylang-mode jq-mode jq-format hackernews elfeed-protocol dired-ranger csv-mode csv counsel-jq blacken))
'(pdf-view-midnight-colors (cons "#282828" "#fbf1c7"))
'(rustic-ansi-faces
["#fbf1c7" "#9d0006" "#79740e" "#b57614" "#076678" "#b16286" "#427b58" "#282828"])
'(vc-annotate-background "#fbf1c7")
'(vc-annotate-color-map
(list
(cons 20 "#79740e")
(cons 40 "#8d7410")
(cons 60 "#a17512")
(cons 80 "#b57614")
(cons 100 "#b3620e")
(cons 120 "#b14e08")
(cons 140 "#af3a03")
(cons 160 "#af472e")
(cons 180 "#b0545a")
(cons 200 "#b16286")
(cons 220 "#aa415b")
(cons 240 "#a32030")
(cons 260 "#9d0006")
(cons 280 "#9a2021")
(cons 300 "#97413c")
(cons 320 "#946258")
(cons 340 "#504945")
(cons 360 "#504945")))
'(vc-annotate-very-old-color nil))
(custom-set-faces
;; custom-set-faces 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.
'(default ((t (:background "#151619" :family "JetBrains Mono NL" :foundry "JB " :slant normal :weight normal :height 135 :width normal)))))