[emacs] Update init for emacs
This commit is contained in:
@ -4,9 +4,9 @@
|
|||||||
(setq ivy-read-action-function #'ivy-hydra-read-action)
|
(setq ivy-read-action-function #'ivy-hydra-read-action)
|
||||||
|
|
||||||
(setq doom-theme 'doom-challenger-deep
|
(setq doom-theme 'doom-challenger-deep
|
||||||
doom-font (font-spec :family "JetBrains Mono NL" :size 14 :weight 'semi-light)
|
doom-font (font-spec :family "JetBrains Mono NL" :size 12 :weight 'semi-light)
|
||||||
doom-big-font (font-spec :family "JetBrains Mono NL" :size 17)
|
doom-big-font (font-spec :family "JetBrains Mono NL" :size 16)
|
||||||
doom-variable-pitch-font (font-spec :family "Overpass" :size 17))
|
doom-variable-pitch-font (font-spec :family "Overpass" :size 16))
|
||||||
|
|
||||||
;; Applies to current frame
|
;; Applies to current frame
|
||||||
(set-frame-parameter nil 'internal-border-width 10) ; applies to the current frame
|
(set-frame-parameter nil 'internal-border-width 10) ; applies to the current frame
|
||||||
@ -231,18 +231,13 @@
|
|||||||
|
|
||||||
;(add-hook 'nov-mode-hook 'variable-pitch-mode)
|
;(add-hook 'nov-mode-hook 'variable-pitch-mode)
|
||||||
|
|
||||||
;(load! "+mail") ;; Mail stuff
|
|
||||||
|
|
||||||
; Use w3m to parse HTML email
|
|
||||||
(setq mm-text-html-renderer 'w3m)
|
(setq mm-text-html-renderer 'w3m)
|
||||||
(setq w3m-fill-column 88)
|
(setq w3m-fill-column 88)
|
||||||
|
|
||||||
; Kill email message buffers when you close them
|
|
||||||
(setq message-kill-buffer-on-exit t)
|
(setq message-kill-buffer-on-exit t)
|
||||||
(setq message-auto-save-directory "~/Mail/colin@unbl.ink/Drafts/")
|
(setq message-auto-save-directory "~/Mail/colin@unbl.ink/Drafts/")
|
||||||
(setq message-directory "~/Mail/colin@unbl.ink/")
|
(setq message-directory "~/Mail/colin@unbl.ink/")
|
||||||
|
|
||||||
;;; Setup sending email with msmtp
|
|
||||||
;; sendmail-program "/usr/local/bin/msmtpq" <--- this doesn't work as advertised right now
|
;; sendmail-program "/usr/local/bin/msmtpq" <--- this doesn't work as advertised right now
|
||||||
(setq send-mail-function 'sendmail-send-it
|
(setq send-mail-function 'sendmail-send-it
|
||||||
sendmail-program "/usr/local/bin/msmtp"
|
sendmail-program "/usr/local/bin/msmtp"
|
||||||
@ -252,6 +247,11 @@
|
|||||||
message-sendmail-extra-arguments '("--read-envelope-from")
|
message-sendmail-extra-arguments '("--read-envelope-from")
|
||||||
mail-envelope-from 'header)
|
mail-envelope-from 'header)
|
||||||
|
|
||||||
|
(setq notmuch-saved-searches '((:name "inbox" :query "tag:inbox" :key "i")
|
||||||
|
(:name "unread" :query "tag:inbox and tag:unread" :key "u")
|
||||||
|
(:name "jira" :query "tag:jira and date:yesterday..today" :key "j")
|
||||||
|
(:name "github" :query "tag:github and date:yesterday..today" :key "g")))
|
||||||
|
|
||||||
(after! notmuch
|
(after! notmuch
|
||||||
(set-popup-rule! "^\\*notmuch*" :ignore t)
|
(set-popup-rule! "^\\*notmuch*" :ignore t)
|
||||||
)
|
)
|
||||||
|
|||||||
@ -19,9 +19,9 @@ to Doom One most of the time, but I like the Kaolin themes, as well as Nimbus
|
|||||||
for it's retro charm. Nimbus just doesn't look great when I'm tired though.
|
for it's retro charm. Nimbus just doesn't look great when I'm tired though.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(setq doom-theme 'doom-challenger-deep
|
(setq doom-theme 'doom-challenger-deep
|
||||||
doom-font (font-spec :family "JetBrains Mono NL" :size 14 :weight 'semi-light)
|
doom-font (font-spec :family "JetBrains Mono NL" :size 12 :weight 'semi-light)
|
||||||
doom-big-font (font-spec :family "JetBrains Mono NL" :size 17)
|
doom-big-font (font-spec :family "JetBrains Mono NL" :size 16)
|
||||||
doom-variable-pitch-font (font-spec :family "Overpass" :size 17))
|
doom-variable-pitch-font (font-spec :family "Overpass" :size 16))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** Borders
|
** Borders
|
||||||
Barring the unfortunate end of X11 development and my eventual transition to
|
Barring the unfortunate end of X11 development and my eventual transition to
|
||||||
@ -315,19 +315,26 @@ Reading novels in Emacs, how novel!
|
|||||||
* Mail
|
* Mail
|
||||||
** Basics
|
** Basics
|
||||||
I use notmuch to read and write email from within Emacs.
|
I use notmuch to read and write email from within Emacs.
|
||||||
#+BEGIN_SRC emacs-lisp
|
|
||||||
;(load! "+mail") ;; Mail stuff
|
|
||||||
|
|
||||||
; Use w3m to parse HTML email
|
Here, we'll plan to use w3m to parse HTML email. You do have to make sure w3m is
|
||||||
|
somehow installed on your machine.
|
||||||
|
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
(setq mm-text-html-renderer 'w3m)
|
(setq mm-text-html-renderer 'w3m)
|
||||||
(setq w3m-fill-column 88)
|
(setq w3m-fill-column 88)
|
||||||
|
#+END_SRC
|
||||||
|
|
||||||
; Kill email message buffers when you close them
|
A few nice to haves for messages. First we kill email message buffers when they
|
||||||
|
are closed. Then we set our auto save directory and generic message directory.
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
(setq message-kill-buffer-on-exit t)
|
(setq message-kill-buffer-on-exit t)
|
||||||
(setq message-auto-save-directory "~/Mail/colin@unbl.ink/Drafts/")
|
(setq message-auto-save-directory "~/Mail/colin@unbl.ink/Drafts/")
|
||||||
(setq message-directory "~/Mail/colin@unbl.ink/")
|
(setq message-directory "~/Mail/colin@unbl.ink/")
|
||||||
|
#+END_SRC
|
||||||
|
|
||||||
;;; Setup sending email with msmtp
|
We'll use `msmtp` to send our email. Again, make sure this is installed.
|
||||||
|
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
;; sendmail-program "/usr/local/bin/msmtpq" <--- this doesn't work as advertised right now
|
;; sendmail-program "/usr/local/bin/msmtpq" <--- this doesn't work as advertised right now
|
||||||
(setq send-mail-function 'sendmail-send-it
|
(setq send-mail-function 'sendmail-send-it
|
||||||
sendmail-program "/usr/local/bin/msmtp"
|
sendmail-program "/usr/local/bin/msmtp"
|
||||||
@ -338,6 +345,15 @@ I use notmuch to read and write email from within Emacs.
|
|||||||
mail-envelope-from 'header)
|
mail-envelope-from 'header)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
|
|
||||||
|
Set our custom saved searches so we can conveniently jump to different mail views.
|
||||||
|
#+begin_src emacs-lisp
|
||||||
|
(setq notmuch-saved-searches '((:name "inbox" :query "tag:inbox" :key "i")
|
||||||
|
(:name "unread" :query "tag:inbox and tag:unread" :key "u")
|
||||||
|
(:name "jira" :query "tag:jira and date:yesterday..today" :key "j")
|
||||||
|
(:name "github" :query "tag:github and date:yesterday..today" :key "g")))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
We want to make sure notmuch opens in a full window
|
We want to make sure notmuch opens in a full window
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(after! notmuch
|
(after! notmuch
|
||||||
|
|||||||
@ -19,12 +19,10 @@
|
|||||||
;;japanese
|
;;japanese
|
||||||
|
|
||||||
:completion
|
:completion
|
||||||
(company ; the ultimate code completion backend
|
company ; the ultimate code completion backend
|
||||||
+childframe)
|
|
||||||
;;helm ; the *other* search engine for love and life
|
;;helm ; the *other* search engine for love and life
|
||||||
;;ido ; the other *other* search engine...
|
;;ido ; the other *other* search engine...
|
||||||
(ivy ; a search engine for love and life
|
(ivy ; a search engine for love and life
|
||||||
+childframe
|
|
||||||
+fuzzy
|
+fuzzy
|
||||||
+icons)
|
+icons)
|
||||||
|
|
||||||
@ -33,22 +31,20 @@
|
|||||||
doom ; what makes DOOM look the way it does
|
doom ; what makes DOOM look the way it does
|
||||||
doom-dashboard ; a nifty splash screen for Emacs
|
doom-dashboard ; a nifty splash screen for Emacs
|
||||||
doom-quit ; DOOM quit-message prompts when you quit Emacs
|
doom-quit ; DOOM quit-message prompts when you quit Emacs
|
||||||
(emoji +unicode) ;
|
(emoji +github +unicode) ;
|
||||||
;;fill-column ; a `fill-column' indicator
|
;;fill-column ; a `fill-column' indicator
|
||||||
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
|
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
|
||||||
;;hydra
|
;;hydra
|
||||||
;;indent-guides ; highlighted indent columns
|
;;indent-guides ; highlighted indent columns
|
||||||
ligatures ;
|
ligatures ;
|
||||||
minimap ; show a map of the code on the side
|
;;minimap ; show a map of the code on the side
|
||||||
modeline ; snazzy, Atom-inspired modeline, plus API
|
modeline ; snazzy, Atom-inspired modeline, plus API
|
||||||
nav-flash ; blink cursor line after big motions
|
nav-flash ; blink cursor line after big motions
|
||||||
;;neotree ; a project drawer, like NERDTree for vim
|
;;neotree ; a project drawer, like NERDTree for vim
|
||||||
ophints ; highlight the region an operation acts on
|
ophints ; highlight the region an operation acts on
|
||||||
(popup
|
(popup +defaults) ; tame sudden yet inevitable temporary windows
|
||||||
+all
|
;;tabs ; an tab bar for Emacs
|
||||||
+defaults) ; tame sudden yet inevitable temporary windows
|
;;treemacs ; a project drawer, like neotree but cooler
|
||||||
;;tabs ; an tab bar for Emacs
|
|
||||||
treemacs ; a project drawer, like neotree but cooler
|
|
||||||
unicode ; extended unicode support for various languages
|
unicode ; extended unicode support for various languages
|
||||||
vc-gutter ; vcs diff in the fringe
|
vc-gutter ; vcs diff in the fringe
|
||||||
vi-tilde-fringe ; fringe tildes to mark beyond EOB
|
vi-tilde-fringe ; fringe tildes to mark beyond EOB
|
||||||
@ -112,6 +108,10 @@
|
|||||||
;;tmux ; an API for interacting with tmux
|
;;tmux ; an API for interacting with tmux
|
||||||
;;upload ; map local to remote projects via ssh/ftp
|
;;upload ; map local to remote projects via ssh/ftp
|
||||||
|
|
||||||
|
:os
|
||||||
|
(:if IS-MAC macos) ; improve compatibility with macOS
|
||||||
|
tty ; improve the terminal Emacs experience
|
||||||
|
|
||||||
:lang
|
:lang
|
||||||
;;agda ; types of types of types of types...
|
;;agda ; types of types of types of types...
|
||||||
;;cc ; C/C++/Obj-C madness
|
;;cc ; C/C++/Obj-C madness
|
||||||
|
|||||||
Reference in New Issue
Block a user