* General settings Set fonts to a [[https://www.nerdfonts.com/][Nerd Fonts]] patched version of [[https://github.com/tonsky/FiraCode][Fira Code]]. Theme is set to doom-molokai from [[https://github.com/hlissner/emacs-doom-themes][doom-themes]] [[https://raw.githubusercontent.com/hlissner/emacs-doom-themes/screenshots/doom-molokai.png][doom-molokai screenshot]] #+BEGIN_SRC emacs-lisp (setq doom-font (font-spec :family "FuraCode Nerd Font Mono" :size 12) ; Set font doom-theme 'doom-molokai) ; Set theme #+END_SRC Fetch password from authinfo #+BEGIN_SRC emacs-lisp (defun my-fetch-password (&rest params) (require 'auth-source) (let ((match (car (apply #'auth-source-search params)))) (if match (let ((secret (plist-get match :secret))) (if (functionp secret) (funcall secret) secret)) (error "Password not found for %S" params)))) #+END_SRC * [[https://www.projectile.mx/en/latest/][Projectile]] Set default paths [[https://www.projectile.mx/en/latest/][projectile]] should search #+BEGIN_SRC emacs-lisp (use-package! projectile :config (setq projectile-project-search-path '("~/devel/personal/" "~/devel/andthensome/" "~/Documents/"))) ; Default paths #+END_SRC * [[https://github.com/jorgenschaefer/circe][Circe]] Connect to [[https://wiki.znc.in/ZNC][ZNC]]. Passwords are gotten from [[https://www.passwordstore.org/][Password Store]]. #+BEGIN_SRC emacs-lisp (use-package! circe :config (setq circe-network-options `( ("znc-freenode" :host "irc.higherlearning.eu" :port "5000" :tls t ;; Enable tls :user "l0rd/freenode" :server-buffer-name "⇄ Freenode (ZNC)" :pass (lambda (&rest _) (+pass-get-secret "controlpanel/irc.higherlearning.eu")) ;; Get password from pass :channels ("#emacs")) ("znc-snoonet" :host "irc.higherlearning.eu" :port "5000" :tls t :user "l0rd/snoonet" :server-buffer-name "⇄ Snoonet (ZNC)" :pass (lambda (&rest _) (+pass-get-secret "controlpanel/irc.higherlearning.eu")) :channels ("#islam")) )) ) (add-hook 'circe-channel-mode-hook 'enable-lui-autopaste) #+END_SRC * [[https://orgmode.org/][Org mode]] ** General settings When moving entries up and down in the buffer use `j` and `k` instead of `↑` and `↓` #+BEGIN_SRC emacs-lisp (after! org (map! :map org-mode-map :n "M-j" #'org-metadown :n "M-k" #'org-metaup) ) #+END_SRC - Set default org directories - When task is set to `DONE` [[https://orgmode.org/manual/Closing-items.html][add timestamp and give the opportunity to type in a note]] - Show images in buffers as default #+BEGIN_SRC emacs-lisp (setq org-directory "~/Documents/org" org-agenda-files '("~/Documents/org") org-log-done 'note org-startup-with-inline-images t) #+END_SRC ** [[https://github.com/alphapapa/org-protocol-capture-html][org-protocol-capture-html]] Require package #+BEGIN_SRC emacs-lisp (def-package! org-protocol-capture-html) #+END_SRC ** org-capture-templates *** Capture web data for [[https://github.com/alphapapa/org-protocol-capture-html][org-protocol-capture-html]] #+BEGIN_SRC emacs-lisp (after! org (add-to-list 'org-capture-templates '("w" "Web site" entry (file+olp "~/Documents/org/web.org" "Web") "* %c\n%U %?%:initial")) ) #+END_SRC * [[https://github.com/Lautaro-Garcia/counsel-spotify][Counsel Spotify]] Control Spotify with Counsel Spotify #+BEGIN_SRC emacs-lisp (setq counsel-spotify-client-id "03f9817b1b6946febf9a0573d28e3831" counsel-spotify-client-secret (my-fetch-password :user "03f9817b1b6946febf9a0573d28e3831" :host "spotify.el")) #+END_SRC * [[https://www.djcbsoftware.nl/code/mu/mu4e.html][mu4e]] Setup mu4e with multiple profiles #+BEGIN_SRC emacs-lisp (use-package! mu4e :config (setq sendmail-program "/usr/bin/msmtp" send-mail-function 'smtpmail-send-it message-sendmail-f-is-evil t message-sendmail-extra-arguments '("--read-envelope-from") message-send-mail-function 'message-send-mail-with-sendmail) (setq mu4e-maildirs-extension-custom-list '("/ryankes/INBOX" "/ryankes/Sent" "/ryankes/Drafts" "/ryankes/Archive" "/ryankes/Archive.quicknet" "/gmail/INBOX" "/gmail/Sent" "/gmail/Drafts" "/gmail/Archive" "/andthensome/INBOX" "/andthensome/Sent" "/andthensome/Drafts" "/andthensome/Archive"))) (setq mu4e-maildir "~/.local/share/mail" mu4e-maildir-shortcuts '(("/ryankes/INBOX" . ?r) ("/gmail/INBOX" . ?g) ("/andthensome/INBOX" . ?a)) mu4e-update-interval 300 mu4e-get-mail-command "mailsync" mu4e-enable-mode-line t mu4e-use-fancy-chars t mu4e-context-policy 'pick-first mu4e-attachment-dir "~/Downloads/") (after! mu4e ;; load package to be able to capture emails for GTD (require 'org-mu4e) (setq mu4e-contexts `(,(make-mu4e-context :name "Ryankes" :match-func (lambda (msg) (when msg (string-match-p "^/ryankes" (mu4e-message-field msg :maildir)))):vars'((user-mail-address . "ryan@ryankes.eu") (user-full-name . "Ryan") (mu4e-sent-folder . "/ryankes/Sent") (mu4e-drafts-folder . "/ryankes/Drafts") (mu4e-trash-folder . "/ryankes/Trash") (mu4e-refile-folder . "/ryankes/Archive"))) ,(make-mu4e-context :name "Gmail" :match-func (lambda (msg) (when msg (string-match-p "^/gmail" (mu4e-message-field msg :maildir)))):vars'((user-mail-address . "alrayyes@gmail.com") (user-full-name . "Ryan") (mu4e-sent-folder . "/gmail/Sent") (mu4e-drafts-folder . "/gmail/Drafts") (mu4e-trash-folder . "/gmail/Trash") (mu4e-refile-folder . "/gmail/Archive"))) ,(make-mu4e-context :name "Andthensome" :match-func (lambda (msg) (when msg (string-match-p "^/andthensome" (mu4e-message-field msg :maildir)))):vars'((user-mail-address . "ryan@andthensome.nl") (user-full-name . "Ryan Kes") (mu4e-sent-folder . "/andthensome/Sent") (mu4e-drafts-folder . "/andthensome/Drafts") (mu4e-trash-folder . "/andthensome/Trash") (mu4e-refile-folder . "/andthensome/Archive")))))) (add-hook 'mu4e-view-mode-hook 'visual-line-mode) #+END_SRC * [[https://github.com/bcbcarl/emacs-wttrin][wttrin.el]] Emacs frontend for weather web service [[http://wttr.in/][wttr.in]] #+BEGIN_SRC emacs-lisp (setq wttrin-default-cities '("Amsterdam", "Volendam")) #+END_SRC * [[https://github.com/skeeto/elfeed][Elfeed]] ** elfeed and [[https://github.com/fasheng/elfeed-protocol][elfeed-protocol]] to read feeds. #+BEGIN_SRC emacs-lisp (use-package! elfeed :config (setq elfeed-use-curl t) (elfeed-set-timeout 36000) (setq elfeed-protocol-ttrss-maxsize 200) ; bigger than 200 is invalid (elfeed-protocol-enable) ; (defadvice elfeed (after configure-elfeed-feeds activate) "Make elfeed-org autotags rules works with elfeed-protocol." (defvar elfeed-protocol-tags) (setq elfeed-protocol-tags elfeed-feeds) (setq elfeed-feeds (list (list "ttrss+https://alrayyes@rss.higherlearning.eu" :password (password-store-get "emacs/rss") :autotags elfeed-protocol-tags))))) #+END_SRC ** [[https://github.com/remyhonig/elfeed-org][elfeed-org]] #+BEGIN_SRC emacs-lisp (use-package! elfeed-org :config (setq rmh-elfeed-org-files '("~/Documents/org/elfeed.org")) ) #+END_SRC ** [[https://github.com/algernon/elfeed-goodies][elfeed-goodies]] #+BEGIN_SRC emacs-lisp (use-package! elfeed-goodies :config (elfeed-goodies/setup)) #+END_SRC