Including Emacs files

2021-06-26 22:36:28 -05:00 · 2021-06-26 22:36:28 -05:00 · 6f62dd06e3
commit 6f62dd06e3
parent 071c5e590c
3 changed files with 367 additions and 21 deletions
--- a/config.el
+++ b/config.el
@ -0,0 +1,285 @@
+;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
+
+;; Place your private configuration here! Remember, you do not need to run 'doom
+;; sync' after modifying this file!
+
+
+;; Some functionality uses this to identify you, e.g. GPG configuration, email
+;; clients, file templates and snippets.
+(setq user-full-name "Shawn Borton"
+      user-mail-address "shawn@shawnborton.info")
+
+;; Doom exposes five (optional) variables for controlling fonts in Doom. Here
+;; are the three important ones:
+;;
+;; + `doom-font'
+;; + `doom-variable-pitch-font'
+;; + `doom-big-font' -- used for `doom-big-font-mode'; use this for
+;;   presentations or streaming.
+;;
+;; They all accept either a font-spec, font string ("Input Mono-12"), or xlfd
+;; font string. You generally only need these two:
+;; (setq doom-font (font-spec :family "monospace" :size 12 :weight 'semi-light)
+;;       doom-variable-pitch-font (font-spec :family "sans" :size 13))
+
+;; There are two ways to load a theme. Both assume the theme is installed and
+;; available. You can either set `doom-theme' or manually load a theme with the
+;; `load-theme' function. This is the default:
+(use-package! all-the-icons)
+(setq doom-font (font-spec :family "Fira Code" :style "Retina" :size 16)
+      doom-variable-pitch-font (font-spec :family "Baskerville" :size 18)
+      doom-big-font (font-spec :family "Fira Code" :style "Retina" :size 28))
+
+(setq doom-theme 'doom-nord)
+(after! doom-themes
+  (setq doom-themes-enable-bold t
+        doom-themes-enable-italic t))
+(map! :leader
+      :desc "Load new theme"
+      "h t" #'counsel-load-theme)
+(setq-default major-mode 'org-mode)
+(setq-default line-spacing 10)
+
+;; This determines the style of line numbers in effect. If set to `nil', line
+;; numbers are disabled. For relative line numbers, set this to `relative'.
+(setq display-line-numbers-type 'relative)
+
+(use-package! all-the-icons-dired)
+
+;; Major modes in which to display word count continuously.
+;; Also applies to any derived modes. Respects `doom-modeline-enable-word-count'.
+;; If it brings the sluggish issue, disable `doom-modeline-enable-word-count' or
+;; remove the modes from `doom-modeline-continuous-word-count-modes'.
+;;
+(after! doom-modeline
+  (setq doom-modeline-height 18)
+  (setq doom-modeline-bar-width 6)
+  (setq doom-modeline-enable-word-count t)
+  (setq doom-modeline-continuous-word-count-modes '(markdown-mode org-mode)))
+
+
+(setq evil-vsplit-window-right t
+      evil-split-window-below t)
+(defadvice! prompt-for-buffer (&rest_)
+  :after '(evil-window-split evil-window-vsplit)
+  (+ivy/switch-buffer))
+(setq +ivy-buffer-preview t)
+
+;; Here are some additional functions/macros that could help you configure Doom:
+;;
+;; - `load!' for loading external *.el files relative to this one
+;; - `use-package!' for configuring packages
+;; - `after!' for running code after a package has loaded
+;; - `add-load-path!' for adding directories to the `load-path', relative to
+;;   this file. Emacs searches the `load-path' when you load packages with
+;;   `require' or `use-package'.
+;; - `map!' for binding new keys
+;;
+;; To get information about any of these functions/macros, move the cursor over
+;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
+;; This will open documentation for it, including demos of how they are used.
+;;
+;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
+;; they are implemented.
+;;
+;; Make 'h' and 'l' go back and forward in dired. Much faster to navigate the directory structure!
+(evil-define-key 'normal dired-mode-map
+  (kbd "h") 'dired-up-directory
+  (kbd "l") 'dired-open-file) ; use dired-find-file instead if not using dired-open package
+(evilem-default-keybindings "SPC")
+
+;; EWW Stuff
+(setq browse-url-browser-function 'eww-browse-url)
+(map! :leader
+      :desc "Eww web browser"
+      "e w" #'eww
+      :leader
+      :desc "Eww reload page"
+      "e R" #'eww-reload
+      :leader
+      :desc "Search web for text between BEG/END"
+      "s w" #'eww-search-words)
+
+(after! neotree
+  (setq neo-smart-open t
+        doom-themes-neotree-enable-variable-pitch nil
+        neo-window-fixed-size nil))
+
+(map! :leader
+      :desc "Toggle neotree file viewer"
+      "t n" #'neotree-toggle
+      :leader
+      :desc "Open directory in neotree"
+      "d n" #'neotree-dir)
+
+;; (map! :leader
+;;      :desc "Edit agenda file"
+;;     "- a" #'(lambda () (interactive) (find-file "~/Org/agenda.org"))
+(map! :leader
+      :desc "Edit eshell aliases"
+      "- e" #'(lambda () (interactive) (find-file "~/.doom.d/aliases"))
+      :leader
+      :desc "Edit doom init.el"
+      "- i" #'(lambda () (interactive) (find-file "~/.doom.d/init.el"))
+      :leader
+      :desc "Edit doom config.el"
+      "- c" #'(lambda () (interactive) (find-file "~/.doom.d/config.el"))
+      :leader
+      :desc "Edit doom packages.el"
+      "- p" #'(lambda () (interactive) (find-file "~/.doom.d/packages.el")))
+
+;; (after! mastodon
+  ;; (setq mastodon-auth-source-file "~/.authinfo")
+  ;; (setq mastodon-instance-url "https://distrotoot.com/"))
+
+;; TWITTER
+(setq twittering-use-master-password t)
+(setq twittering-icon-mode t)
+
+;; RSS (elfeed)
+(map! :leader
+      :desc "Launch Elfeed"
+      "r r" #'elfeed
+      :leader
+      :desc "Update RSS feeds"
+      "r u" #'elfeed-update
+      :leader
+      :desc "Get Culture items"
+      "r c" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread +culture"))
+      :leader
+      :desc "Get Writing items"
+      "r w" #'(lambda () (interactive) (elfeed-search-set-filter "@1-week-ago +unread +writing")))
+(after! elfeed
+  (elfeed-org)
+  (setq rmh-elfeed-org-files (list "~/Dropbox/Org/feedly.org"))
+  (use-package! elfeed-link))
+
+(setq elfeed-search-filter "@1-week-ago +unread "
+      elfeed-search-title-min-width 80)
+      ;;elfeed-show-refresh-function #'+rss/elfeed-show-refresh--better-style)
+
+;;(defface elfeed-show-title-face '((t (:weight ultrabold :slant italic :height 1.5)))
+  ;;  "title face in elfeed show buffer"
+  ;;  :group 'elfeed)
+
+;; (after! elfeed-show
+  ;; (require 'url))
+
+(defun +rss/elfeed-show-refresh--better-style ()
+  "Update the buffer to match the selected entry, using a mail-style."
+  (interactive)
+  (let* ((inhibit-read-only t)
+         (title (elfeed-entry-title elfeed-show-entry))
+         (date (seconds-to-time (elfeed-entry-date elfeed-show-entry)))
+         (author (elfeed-meta elfeed-show-entry :author))
+         (link (elfeed-entry-link elfeed-show-entry))
+         (tags (elfeed-entry-tags elfeed-show-entry))
+         (tagsstr (mapconcat #'symbol-name tags ", "))
+         (nicedate (format-time-string ("%a, %e %b %Y %T %Z" date))
+         (content (elfeed-deref (elfeed-entry-content elfeed-show-entry)))
+         (type (elfeed-entry-content-type elfeed-show-entry))
+         (feed (elfeed-entry-feed elfeed-show-entry))
+         (feed-title (elfeed-feed-title feed))
+         (base (and feed (elfeed-compute-base (elfeed-feed-url feed)))))
+         (erase-buffer)
+         (insert "\n")))
+  )
+
+
+;; ⌘-b      ; browse to URL in foreground
+;; C-- ⌘-b  ; browse to URL in background
+
+;; ⌘-i      ; search Google in foreground
+;; C-- ⌘-i  ; search Google in background
+
+;; position cursor on a URL
+;; ⌘-b
+
+;; select a region
+;; ⌘-i
+
+(require 'osx-browse)
+(osx-browse-mode 1)
+
+ (defun writing-mode ()
+  (interactive)
+  ;; (zen/toggle)
+  (buffer-face-mode)
+  (linum-mode 0)
+  (blink-cursor-mode)
+  (visual-line-mode 1)
+  (setq truncate-lines nil
+        global-hl-line-mode nil
+        display-line-numbers nil))
+
+(add-hook 'markdown-mode-hook 'writing-mode)
+(setq ispell-program-name "/usr/local/bin/aspell")
+(setq ispell-list-command "--list")
+
+(defun sbinfo/org-mode-setup ()
+  (org-indent-mode)
+  (org-superstar-mode 1)
+  (org-bullets-mode 1))
+  ;; (variable-pitch-mode 1)
+  ;; (visual-line-mode 1))
+
+(defun sbinfo/org-font-setup ()
+  ;; Set faces for heading levels
+  (dolist (face '((org-level-1 . 1.2)
+                  (org-level-2 . 1.1)
+                  (org-level-3 . 1.05)
+                  (org-level-4 . 1.0)
+                  (org-level-5 . 1.0)
+                  (org-level-6 . 1.0)
+                  (org-level-7 . 1.0)
+                  (org-level-8 . 1.0)))
+    (set-face-attribute (car face) nil :font "Courier Prime" :weight 'regular :height (cdr face))))
+    ;; (set-face-attribute (car face) nil :font "Fira Code Retina" :weight 'regular :height (cdr face))))
+    ;; (set-face-attribute (car face) nil :font "Source Code Pro" :weight 'regular :height (cdr face)))
+
+    ;; Ensure that anything that should be fixed-pitch in Org files appears that way
+    ;; (set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
+    ;; (set-face-attribute 'org-code nil :inherit '(shadow fixed-pitch))
+    ;; (set-face-attribute 'org-table nil :inherit '(shadow fixed-pitch))
+    ;; (set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
+    ;; (set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch))
+    ;; (set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
+    ;; (set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch))
+
+(after! org
+  (add-hook 'org-mode-hook #'sbinfo/org-mode-setup)
+  (setq org-directory "~/Dropbox/Org/"
+        org-agenda-files '("agenda.org" "algopear.org" "goals.org")
+        org-default-notes-file (expand-file-name "notes.org" org-directory)
+        org-ellipsis " ▼ "
+        org-bullets-bullet-list '("◉" "○" "●" "○" "●" "○" "●")
+        org-indent-indentation-per-level 4
+        org-log-done 'time
+        org-roam-directory "~/Org/roam/"
+        ;;org-journal-dir "~/Dropbox/Org/journal/"
+        ;;org-journal-date-format "%B %d, %Y (%A) "
+        ;;org-journal-file-format "%Y-%m-%d.org"
+        org-hide-emphasis-markers t
+        org-hide-leading-stars t
+        ;; ex. of org-link-abbrev-alist in action
+        ;; [[arch-wiki:Name_of_Page][Description]]
+        org-link-abbrev-alist    ; This overwrites the default Doom org-link-abbrev-list
+          '(("ddg" . "https://duckduckgo.com/?q=")
+            ("wiki" . "https://en.wikipedia.org/wiki/"))
+        org-todo-keywords        ; This overwrites the default Doom org-todo-keywords
+          '((sequence
+             "TODO(t)"           ; A task that is ready to be tackled
+             "BLOG(b)"           ; Blog writing assignments
+             "PROJ(p)"           ; A project that contains other tasks
+             "WAIT(w)"           ; Something is holding up this task
+             "|"                 ; The pipe necessary to separate "active" states and "inactive" states
+             "DONE(d)"           ; Task has been completed
+             "CANCELLED(c)" ))) ; Task has been cancelled
+  (sbinfo/org-font-setup))
+
+
+;; to turn off confirmations
+(setq browse-url-dwim-always-confirm-extraction nil)
+
+;; Todoist
+(setq todoist-token "344745a4ca6497cbce38cc957cad0c59c5d91613")