Преглед на файлове

[emacs] Update init for emacs

Colin Powell преди 4 години
родител
ревизия
64fb67fcd2
променени са 3 файла, в които са добавени 45 реда и са изтрити 29 реда
  1. 8 8
      emacs/.doom.d/config.el
  2. 24 8
      emacs/.doom.d/config.org
  3. 13 13
      emacs/.doom.d/init.el

+ 8 - 8
emacs/.doom.d/config.el

@@ -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-big-font (font-spec :family "JetBrains Mono NL" :size 17)
-      doom-variable-pitch-font (font-spec :family "Overpass" :size 17))
+      doom-font (font-spec :family "JetBrains Mono NL" :size 12 :weight 'semi-light)
+      doom-big-font (font-spec :family "JetBrains Mono NL" :size 16)
+      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)
   )
   )

+ 24 - 8
emacs/.doom.d/config.org

@@ -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-big-font (font-spec :family "JetBrains Mono NL" :size 17)
-      doom-variable-pitch-font (font-spec :family "Overpass" :size 17))
+      doom-font (font-spec :family "JetBrains Mono NL" :size 12 :weight 'semi-light)
+      doom-big-font (font-spec :family "JetBrains Mono NL" :size 16)
+      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

+ 13 - 13
emacs/.doom.d/init.el

@@ -19,12 +19,10 @@
        ;;japanese
        ;;japanese
 
 
        :completion
        :completion
-       (company          ; the ultimate code completion backend
-        +childframe)
+       company          ; the ultimate code completion backend
        ;;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)  ;
-       ;;fill-column       ; a `fill-column' indicator
+       (emoji +github +unicode)  ;
+       ;;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
-        +all
-        +defaults)   ; tame sudden yet inevitable temporary windows
-       ;;tabs              ; an tab bar for Emacs
-       treemacs          ; a project drawer, like neotree but cooler
+       (popup +defaults) ; tame sudden yet inevitable temporary windows
+       ;;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