A lot of formatting and adding little things

2021-02-17 03:53:51 -06:00 · 2021-02-17 03:53:51 -06:00 · a55ff13fb3
parent 5c585c8b94
commit a55ff13fb3
2 changed files with 467 additions and 92 deletions
--- a/README.org
+++ b/README.org
@ -1,6 +1,20 @@
 #+TITLE: Chris's Personal Emacs Config
 #+AUTHOR: Chris Cochrun

+* Table of Contents :toc:
+- [[#early-init][Early Init]]
+- [[#init][Init]]
+  - [[#set-basic-ui-config][Set basic UI config]]
+  - [[#startup-performance][Startup Performance]]
+  - [[#lets-bootstrap-straightel][Let's bootstrap straight.el]]
+  - [[#keybindings][Keybindings]]
+  - [[#better-ui][Better UI]]
+  - [[#completion][Completion]]
+  - [[#help][Help]]
+  - [[#format][Format]]
+  - [[#org-mode][Org Mode]]
+  - [[#magit][Magit]]
+
 * Early Init
 #+PROPERTY: header-args:emacs-lisp :tangle early-init.el
 As of right now I haven't fully setup my early-init file, this does not export into the early-init.el file currently as it's just a copy from Doom's early-init.
@ -60,22 +74,45 @@ Let's start by making some basic ui changes like turning off the scrollbar, tool
    (scroll-bar-mode -1)
    (tool-bar-mode -1)
    (tooltip-mode -1)
-    (set-fringe-mode 10)
+    (set-fringe-mode 1)

    (menu-bar-mode -1)
    (blink-cursor-mode -1)
    (column-number-mode +1)
+  #+end_src

+In order to have this config work on both my desktop with regular joe-schmoe monitors and my laptop with new-hotness HiDPI monitor, I will set the font size if my system is the laptop to much higher.
+  #+begin_src emacs-lisp
    (if (string-equal (system-name) "chris-linuxlaptop")
-        (set-face-attribute 'default nil :font "VictorMono Nerd Font" :height 240)
-      (set-face-attribute 'default nil :font "VictorMono Nerd Font" :height 120))
+      (defvar chris/default-font-size 240)
+    (defvar chris/default-font-size 120))
+
+    (set-face-attribute 'default nil :font "VictorMono Nerd Font" :height chris/default-font-size)
+    (set-face-attribute 'fixed-pitch nil :font "VictorMono Nerd Font" :height chris/default-font-size)
+    (set-face-attribute 'variable-pitch nil :font "Cantarell" :height chris/default-font-size :weight 'regular)
+#+end_src
+
+Then let's make sure line-numbers are relative and on. And let's turn on visual-line-mode globally.
+#+begin_src emacs-lisp
  (setq display-line-numbers-type 'relative)
+  (display-line-numbers-mode +1)
+  (global-visual-line-mode +1)
 #+end_src

 Also, real quick let's make sure that ~<escape>~ works as the same as ~<C-g>~
 #+begin_src emacs-lisp
 (global-set-key (kbd "<escape>") 'keyboard-escape-quit)
 #+end_src
+** Startup Performance
+#+begin_src emacs-lisp
+    (defun chris/display-startup-time ()
+      (message "Emacs loaded in %s with %d garbage collections."
+             (format "%.2f seconds"
+                   (float-time
+                  (time-subtract after-init-time before-init-time)))
+           gcs-done))
+  (add-hook 'emacs-startup-hook #'chris/display-startup-time)
+#+end_src

 ** Let's bootstrap straight.el
 #+begin_src emacs-lisp
@ -126,6 +163,10 @@ Also, real quick let's make sure that ~<escape>~ works as the same as ~<C-g>~
  :hook (prog-mode . rainbow-delimiters-mode))
 #+end_src

+#+begin_src emacs-lisp
+(use-package adaptive-wrap)
+#+end_src
+
 #+begin_src emacs-lisp
 (use-package which-key
  :init (which-key-mode)
@ -142,6 +183,7 @@ There are two major packages we need to get the functionality I desire. Evil and
            evil-want-keybinding nil
            evil-want-C-i-jump nil
            evil-want-C-u-scroll t
+            evil-respect-visual-line-mode t
            evil-want-C-u-delete t)
      :config
      (evil-mode +1))
@ -169,14 +211,21 @@ This evil-collection package includes a lot of other evil based things.
   "w" '(:ignore t :which-key "window")
   "s" '(:ignore t :which-key "search")
   "o" '(:ignore t :which-key "open")
+   "h" '(:ignore t :which-key "help")
+   "n" '(:ignore t :which-key "notes")
   "bs" '(consult-buffer :which-key "buffer search")
   "bd" '(kill-this-buffer :which-key "kill buffer")
+   "nf" '(org-roam-find-file :which-key "org roam ff")
   "tt" '(consult-theme :which-key "choose theme")
   "ff" '(find-file :which-key "find file")
+   "fr" '(consult-recent-file :which-key "recent file")
   "fs" '(save-buffer :which-key "save")
+   "hf" '(helpful-callable :which-key "describe-function")
+   "hv" '(helpful-variable :which-key "describe-variable")
   "od" '(dired-jump :which-key "dired jump")
   "ss" '(consult-line :which-key "consult search")
   "ww" '(other-window :which-key "other window")
+   "wd" '(delete-window :which-key "other window")
   ))
 #+end_src

@ -187,6 +236,17 @@ This evil-collection package includes a lot of other evil based things.
      :config (setq evil-escape-key-sequence "fd"))
 #+end_src

+** Better UI
+*** Olivetti
+#+begin_src emacs-lisp
+(use-package olivetti)
+#+end_src
+*** TOC-ORG
+#+begin_src emacs-lisp
+  (use-package toc-org
+    :after org)
+#+end_src
+
 ** Completion
 *** SELECTRUM
 I prefer selectrum over Ivy or Helm for completions. It is using the basic completing read system and therefore it is more inline with basic emacs. Also, let's add prescient to be able to filter selectrum well. We'll add some keybindings too for easier navigation on the home row.
@ -202,7 +262,8 @@ I prefer selectrum over Ivy or Helm for completions. It is using the basic compl
       "C-k" 'selectrum-previous-candidate
       "C-S-j" 'selectrum-goto-end
       "C-S-k" 'selectrum-goto-beginning
-     "TAB" 'selectrum-insert-current-candidate))
+       "TAB" 'selectrum-insert-current-candidate)
+      :commands (completing-read))

 #+END_SRC

@ -210,13 +271,15 @@ We need prescient so we can have smarter sorting and filtering by default. Ontop
 #+begin_src emacs-lisp
  (use-package prescient
    :config
-  (prescient-persist-mode +1))
+    (prescient-persist-mode +1)
+    :after selectrum)
 #+end_src

 #+BEGIN_SRC emacs-lisp
  (use-package selectrum-prescient
    :init
-  (selectrum-prescient-mode +1))
+    (selectrum-prescient-mode +1)
+    :after selectrum)
 #+END_SRC

 #+BEGIN_SRC elisp :tangle no
@ -313,18 +376,23 @@ Marginalia makes for some great decoration to our minibuffer completion items. W
                (lambda () (when (bound-and-true-p selectrum-mode) (selectrum-exhibit))))

    ;; Prefer richer, more heavy, annotations over the lighter default variant.
-  (setq marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil)))
+    (setq marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil))
+    :after selectrum)
 #+end_src

 #+RESULTS:
 ** Help
 #+begin_src emacs-lisp
-    (use-package helpful
+(use-package helpful)
+#+end_src
+** Format
+#+begin_src emacs-lisp
+  (use-package format-all
    :config
-      )
+    (format-all-mode +1))
 #+end_src
 ** Org Mode
-Need to setup auto tangle yes
+Need to setup auto tangle and make sure I have some structure templates for org-mode.
 #+begin_src emacs-lisp
  (use-package org
    :config
@ -335,8 +403,153 @@ Need to setup auto tangle yes
        (let ((org-confirm-babel-evaluate nil))
          (org-babel-tangle))))

-  (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'chris/org-babel-tangle-config))))
+    (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'chris/org-babel-tangle-config)))
+
+    (org-babel-do-load-languages
+     'org-babel-load-languages
+     '((emacs-lisp . t)
+       (python . t)
+       (shell . t)))
+
+    (require 'org-tempo)
+    (add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
+    (add-to-list 'org-structure-template-alist '("py" . "src python"))
+    (add-to-list 'org-structure-template-alist '("sh" . "src shell"))
+    (add-to-list 'org-structure-template-alist '("q" . "quote"))
+
+    (setq org-capture-templates
+          '(("t" "Personal todo" entry
+             (file+headline +org-capture-todo-file "Inbox")
+             "* TODO %^{TODO name}\nSCHEDULED: %T\n%a\n%i%?" :prepend t)
+            ("n" "Personal notes" entry
+             (file+headline +org-capture-notes-file "Inbox")
+             "* %u %?\n%i\n%a" :prepend t)
+            ("j" "Journal" entry
+             (file+olp+datetree +org-capture-journal-file)
+             "* %U %?\n%i\n%a" :prepend t)
+            ("p" "TFC Plan" entry
+             (function chris/org-roam-capture-lesson-file)
+             (file ".templates/tfcplantemplate.org")
+             :prepend nil
+             :jump-to-captured t
+             :empty-lines 1)
+            ("r" "Templates for projects")
+            ("rt" "Project-local todo" entry
+             (file+headline +org-capture-project-todo-file "Inbox")
+             "* TODO %?\n%i\n%a" :prepend t)
+            ("rn" "Project-local notes" entry
+             (file+headline +org-capture-project-notes-file "Inbox")
+             "* %U %?\n%i\n%a" :prepend t)
+            ("rc" "Project-local changelog" entry
+             (file+headline +org-capture-project-changelog-file "Unreleased")
+             "* %U %?\n%i\n%a" :prepend t)
+            ("o" "Centralized templates for projects")
+            ("ot" "Project todo" entry #'+org-capture-central-project-todo-file
+             "* TODO %?\n %i\n %a" :heading "Tasks" :prepend nil)
+            ("on" "Project notes" entry #'+org-capture-central-project-notes-file
+             "* %U %?\n %i\n %a" :heading "Notes" :prepend t)
+            ("oc" "Project changelog" entry #'+org-capture-central-project-changelog-file
+             "* %U %?\n %i\n %a" :heading "Changelog" :prepend t))
+          org-capture-use-agenda-date t)
+
+    ;;(setq org-superstar-headline-bullets-list '("◉" "◈" "▸" "✬" "◎" "◇" "❉" "✙" "❖"))
+    (setq olivetti-body-width 0.6)
+    (setq olivetti-minimum-body-width 100)
+    (setq org-imenu-depth 4)
+    (setq org-odt-styles-file "/home/chris/org/style.odt")
+
+    (setq org-todo-keywords
+          '((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)")
+            (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")))
+
+
+    (add-hook 'org-mode-hook
+      (toc-org-mode +1)
+      (olivetti-mode +1))
+
+    (setq org-agenda-files
+          '("/home/chris/org/DMPREADME.org" "/home/chris/org/DMPTODO.org" "/home/chris/org/inbox.org" "/home/chris/org/notes.org" "/home/chris/org/repetition.org" "/home/chris/org/tasks.org" "/home/chris/org/tfc_plans.org" "/home/chris/org/ministry_team.org" "/home/chris/org/todo.org" "/home/chris/org/newsletter.org"))
+    (setq org-id-method 'ts)
+    :general
+    (chris/leader-keys "o a" 'org-agenda)
+    (chris/leader-keys "c" 'org-capture))
 #+end_src
+
+We need to create a lesson capture function to find our lesson files differently each time we run our TFC plan capture.
+#+begin_src emacs-lisp
+(defun chris/org-roam-capture-lesson-file ()
+  "Function to return the lesson file that is needed for TFC plan capture and move to correct position for plan insertion"
+  (interactive)
+  (unless org-roam-mode (org-roam-mode))
+  (let* ((completions (org-roam--get-title-path-completions))
+         (title-with-tags (org-roam-completion--completing-read "Lesson: " completions))
+         (res (cdr (assoc title-with-tags completions)))
+         (file-path (plist-get res :path)))
+    (find-file file-path)
+    (goto-char (point-min))
+    (search-forward "PLAN")))
+#+end_src
+
+*** Org-Roam
+Here we are going to add org-roam. This is a note-takers paradise by adding an automatic backlinking function.
+
+Basic Org-Roam setup. We select the directory and the basic width of the Org-Roam buffer so that it fits right. We also want to exclude certain files from Org-Roam. All files are synced between machines using syncthing and kept in a version history. I'd like to exclude the version history from Org-Roam using =org-roam-file-exclude-regexp=.
+
+We also need to setup some capture templates to use some specific setups with my journalling. These include a space for my [[file:../../org/homework_for_life.org][Homework For Life]], tasks for the day, and how I can love on my family.
+#+BEGIN_SRC emacs-lisp
+
+  (use-package org-roam
+    :after org
+    :config
+    (setq org-roam-directory "~/org")
+    (setq org-roam-buffer-width 0.25)
+    (setq org-roam-file-exclude-regexp ".stversion.*\|.stfolder.*\|.*~.*\|.*sync.*")
+    (setq org-roam-db-location "~/.dotemacs/org-roam.db")
+    (setq org-roam-capture-templates
+          '(("d" "default" plain (function org-roam--capture-get-point)
+             "%?"
+             :file-name "${slug}"
+             :head "#+TITLE: ${title}\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\nj ")
+            ("b" "bible" plain (function org-roam--capture-get-point)
+             "%?"
+             :file-name "${slug}"
+             :head "#+TITLE: ${title}\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n- tags %^G\n\n* ")
+            ("l" "TFC Lesson" plain (function org-roam--capture-get-point)
+             (file ".templates/lessontemplate.org")
+             :file-name "${slug}"
+             :head "#+TITLE: ${title}\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n")))
+
+    (setq org-roam-dailies-capture-templates
+          '(("d" "daily" plain #'org-roam-capture--get-point ""
+             :immediate-finish t
+             :file-name "%<%Y-%m-%d>"
+             :head "#+TITLE: %<%Y-%m-%d>\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\n* HFL\n* Tasks\n* Family\n** How Do I Love Abbie?")
+            ("b" "biblical daily" plain #'org-roam-capture--get-point ""
+             :immediate-finish t
+             :file-name "%<%Y-%m-%d>-bib"
+             :head "#+TITLE: %<%Y-%m-%d> - Biblical\n#+AUTHOR: Chris Cochrun"))))
+
+#+END_SRC
+
+
+Org-Roam server. This let's me visualize my notes.
+In order to use it, I need to go to http://localhost:8080
+#+BEGIN_SRC emacs-lisp
+(use-package org-roam-server
+  :config
+  (setq org-roam-server-host "127.0.0.1"
+        org-roam-server-port 8080
+        org-roam-server-export-inline-images t
+        org-roam-server-authenticate nil
+        org-roam-server-serve-files t
+        org-roam-server-network-label-truncate t
+        org-roam-server-network-label-truncate-length 60
+        org-roam-server-network-label-wrap-length 20)
+  :after org-roam)
+
+(add-hook 'org-roam-mode-hook org-roam-server-mode t)
+#+END_SRC
+
 ** Magit
 Use magit, because why wouldn't you? duh!
 #+begin_src emacs-lisp
--- a/init.el
+++ b/init.el
@ -4,19 +4,34 @@
 (scroll-bar-mode -1)
 (tool-bar-mode -1)
 (tooltip-mode -1)
-(set-fringe-mode 10)
+(set-fringe-mode 1)

 (menu-bar-mode -1)
 (blink-cursor-mode -1)
 (column-number-mode +1)

 (if (string-equal (system-name) "chris-linuxlaptop")
-    (set-face-attribute 'default nil :font "VictorMono Nerd Font" :height 240)
-  (set-face-attribute 'default nil :font "VictorMono Nerd Font" :height 120))
+  (defvar chris/default-font-size 240)
+(defvar chris/default-font-size 120))
+
+(set-face-attribute 'default nil :font "VictorMono Nerd Font" :height chris/default-font-size)
+(set-face-attribute 'fixed-pitch nil :font "VictorMono Nerd Font" :height chris/default-font-size)
+(set-face-attribute 'variable-pitch nil :font "Cantarell" :height chris/default-font-size :weight 'regular)
+
 (setq display-line-numbers-type 'relative)
+(display-line-numbers-mode +1)
+(global-visual-line-mode +1)

 (global-set-key (kbd "<escape>") 'keyboard-escape-quit)

+(defun chris/display-startup-time ()
+    (message "Emacs loaded in %s with %d garbage collections."
+           (format "%.2f seconds"
+                 (float-time
+                (time-subtract after-init-time before-init-time)))
+         gcs-done))
+(add-hook 'emacs-startup-hook #'chris/display-startup-time)
+
 (defvar bootstrap-version)
 (let ((bootstrap-file
       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
@ -53,6 +68,8 @@
 (use-package rainbow-delimiters
  :hook (prog-mode . rainbow-delimiters-mode))

+(use-package adaptive-wrap)
+
 (use-package which-key
  :init (which-key-mode)
  :config
@ -64,6 +81,7 @@
        evil-want-keybinding nil
        evil-want-C-i-jump nil
        evil-want-C-u-scroll t
+        evil-respect-visual-line-mode t
        evil-want-C-u-delete t)
  :config
  (evil-mode +1))
@ -86,14 +104,21 @@
   "w" '(:ignore t :which-key "window")
   "s" '(:ignore t :which-key "search")
   "o" '(:ignore t :which-key "open")
+   "h" '(:ignore t :which-key "help")
+   "n" '(:ignore t :which-key "notes")
   "bs" '(consult-buffer :which-key "buffer search")
   "bd" '(kill-this-buffer :which-key "kill buffer")
+   "nf" '(org-roam-find-file :which-key "org roam ff")
   "tt" '(consult-theme :which-key "choose theme")
   "ff" '(find-file :which-key "find file")
+   "fr" '(consult-recent-file :which-key "recent file")
   "fs" '(save-buffer :which-key "save")
+   "hf" '(helpful-callable :which-key "describe-function")
+   "hv" '(helpful-variable :which-key "describe-variable")
   "od" '(dired-jump :which-key "dired jump")
   "ss" '(consult-line :which-key "consult search")
   "ww" '(other-window :which-key "other window")
+   "wd" '(delete-window :which-key "other window")
   ))

 (use-package evil-escape
@ -101,6 +126,11 @@
  :init (evil-escape-mode +1)
  :config (setq evil-escape-key-sequence "fd"))

+(use-package olivetti)
+
+(use-package toc-org
+  :after org)
+
 (use-package selectrum
  :init
  (selectrum-mode +1)
@ -111,15 +141,18 @@
   "C-k" 'selectrum-previous-candidate
   "C-S-j" 'selectrum-goto-end
   "C-S-k" 'selectrum-goto-beginning
-   "TAB" 'selectrum-insert-current-candidate))
+   "TAB" 'selectrum-insert-current-candidate)
+  :commands (completing-read))

 (use-package prescient
  :config
-  (prescient-persist-mode +1))
+  (prescient-persist-mode +1)
+  :after selectrum)

 (use-package selectrum-prescient
  :init
-  (selectrum-prescient-mode +1))
+  (selectrum-prescient-mode +1)
+  :after selectrum)

 (use-package consult)

@ -143,11 +176,14 @@
              (lambda () (when (bound-and-true-p selectrum-mode) (selectrum-exhibit))))

  ;; Prefer richer, more heavy, annotations over the lighter default variant.
-  (setq marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil)))
+  (setq marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil))
+  :after selectrum)

-(use-package helpful
+(use-package helpful)
+
+(use-package format-all
  :config
-  )
+  (format-all-mode +1))

 (use-package org
  :config
@ -158,7 +194,133 @@
      (let ((org-confirm-babel-evaluate nil))
        (org-babel-tangle))))

-  (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'chris/org-babel-tangle-config))))
+  (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'chris/org-babel-tangle-config)))
+
+  (org-babel-do-load-languages
+   'org-babel-load-languages
+   '((emacs-lisp . t)
+     (python . t)
+     (shell . t)))
+
+  (require 'org-tempo)
+  (add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
+  (add-to-list 'org-structure-template-alist '("py" . "src python"))
+  (add-to-list 'org-structure-template-alist '("sh" . "src shell"))
+  (add-to-list 'org-structure-template-alist '("q" . "quote"))
+
+  (setq org-capture-templates
+        '(("t" "Personal todo" entry
+           (file+headline +org-capture-todo-file "Inbox")
+           "* TODO %^{TODO name}\nSCHEDULED: %T\n%a\n%i%?" :prepend t)
+          ("n" "Personal notes" entry
+           (file+headline +org-capture-notes-file "Inbox")
+           "* %u %?\n%i\n%a" :prepend t)
+          ("j" "Journal" entry
+           (file+olp+datetree +org-capture-journal-file)
+           "* %U %?\n%i\n%a" :prepend t)
+          ("p" "TFC Plan" entry
+           (function chris/org-roam-capture-lesson-file)
+           (file ".templates/tfcplantemplate.org")
+           :prepend nil
+           :jump-to-captured t
+           :empty-lines 1)
+          ("r" "Templates for projects")
+          ("rt" "Project-local todo" entry
+           (file+headline +org-capture-project-todo-file "Inbox")
+           "* TODO %?\n%i\n%a" :prepend t)
+          ("rn" "Project-local notes" entry
+           (file+headline +org-capture-project-notes-file "Inbox")
+           "* %U %?\n%i\n%a" :prepend t)
+          ("rc" "Project-local changelog" entry
+           (file+headline +org-capture-project-changelog-file "Unreleased")
+           "* %U %?\n%i\n%a" :prepend t)
+          ("o" "Centralized templates for projects")
+          ("ot" "Project todo" entry #'+org-capture-central-project-todo-file
+           "* TODO %?\n %i\n %a" :heading "Tasks" :prepend nil)
+          ("on" "Project notes" entry #'+org-capture-central-project-notes-file
+           "* %U %?\n %i\n %a" :heading "Notes" :prepend t)
+          ("oc" "Project changelog" entry #'+org-capture-central-project-changelog-file
+           "* %U %?\n %i\n %a" :heading "Changelog" :prepend t))
+        org-capture-use-agenda-date t)
+
+  ;;(setq org-superstar-headline-bullets-list '("◉" "◈" "▸" "✬" "◎" "◇" "❉" "✙" "❖"))
+  (setq olivetti-body-width 0.6)
+  (setq olivetti-minimum-body-width 100)
+  (setq org-imenu-depth 4)
+  (setq org-odt-styles-file "/home/chris/org/style.odt")
+
+  (setq org-todo-keywords
+        '((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)")
+          (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")))
+
+
+  (add-hook 'org-mode-hook
+    (toc-org-mode +1)
+    (olivetti-mode +1))
+
+  (setq org-agenda-files
+        '("/home/chris/org/DMPREADME.org" "/home/chris/org/DMPTODO.org" "/home/chris/org/inbox.org" "/home/chris/org/notes.org" "/home/chris/org/repetition.org" "/home/chris/org/tasks.org" "/home/chris/org/tfc_plans.org" "/home/chris/org/ministry_team.org" "/home/chris/org/todo.org" "/home/chris/org/newsletter.org"))
+  (setq org-id-method 'ts)
+  :general
+  (chris/leader-keys "o a" 'org-agenda)
+  (chris/leader-keys "c" 'org-capture))
+
+(defun chris/org-roam-capture-lesson-file ()
+  "Function to return the lesson file that is needed for TFC plan capture and move to correct position for plan insertion"
+  (interactive)
+  (unless org-roam-mode (org-roam-mode))
+  (let* ((completions (org-roam--get-title-path-completions))
+         (title-with-tags (org-roam-completion--completing-read "Lesson: " completions))
+         (res (cdr (assoc title-with-tags completions)))
+         (file-path (plist-get res :path)))
+    (find-file file-path)
+    (goto-char (point-min))
+    (search-forward "PLAN")))
+
+(use-package org-roam
+  :after org
+  :config
+  (setq org-roam-directory "~/org")
+  (setq org-roam-buffer-width 0.25)
+  (setq org-roam-file-exclude-regexp ".stversion.*\|.stfolder.*\|.*~.*\|.*sync.*")
+  (setq org-roam-db-location "~/.dotemacs/org-roam.db")
+  (setq org-roam-capture-templates
+        '(("d" "default" plain (function org-roam--capture-get-point)
+           "%?"
+           :file-name "${slug}"
+           :head "#+TITLE: ${title}\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\nj ")
+          ("b" "bible" plain (function org-roam--capture-get-point)
+           "%?"
+           :file-name "${slug}"
+           :head "#+TITLE: ${title}\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n- tags %^G\n\n* ")
+          ("l" "TFC Lesson" plain (function org-roam--capture-get-point)
+           (file ".templates/lessontemplate.org")
+           :file-name "${slug}"
+           :head "#+TITLE: ${title}\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n")))
+
+  (setq org-roam-dailies-capture-templates
+        '(("d" "daily" plain #'org-roam-capture--get-point ""
+           :immediate-finish t
+           :file-name "%<%Y-%m-%d>"
+           :head "#+TITLE: %<%Y-%m-%d>\n#+AUTHOR: Chris Cochrun\n#+CREATED: %<%D - %I:%M %p>\n\n* HFL\n* Tasks\n* Family\n** How Do I Love Abbie?")
+          ("b" "biblical daily" plain #'org-roam-capture--get-point ""
+           :immediate-finish t
+           :file-name "%<%Y-%m-%d>-bib"
+           :head "#+TITLE: %<%Y-%m-%d> - Biblical\n#+AUTHOR: Chris Cochrun"))))
+
+(use-package org-roam-server
+  :config
+  (setq org-roam-server-host "127.0.0.1"
+        org-roam-server-port 8080
+        org-roam-server-export-inline-images t
+        org-roam-server-authenticate nil
+        org-roam-server-serve-files t
+        org-roam-server-network-label-truncate t
+        org-roam-server-network-label-truncate-length 60
+        org-roam-server-network-label-wrap-length 20)
+  :after org-roam)
+
+(add-hook 'org-roam-mode-hook org-roam-server-mode t)

 (use-package magit
  :commands (magit-status magit-get-current-branch)