Added fennel, window management, dired, and org enhancements

This commit is contained in:
Chris Cochrun 2021-02-22 06:52:51 -06:00
parent ab3b1e014c
commit 5cec642a0b
2 changed files with 168 additions and 23 deletions

78
init.el
View file

@ -30,7 +30,8 @@
:height chris/default-font-size :weight 'regular)
(setq display-line-numbers-type 'relative)
(display-line-numbers-mode +1)
(global-display-line-numbers-mode +1)
(add-hook 'prog-mode-hook (display-line-numbers-mode +1))
(global-visual-line-mode +1)
(setq doc-view-resolution 192)
@ -246,6 +247,9 @@
(setq format-all-formatters '("Emacs Lisp" emacs-lisp))
:defer 1)
(use-package fennel-mode
:mode ("\\.fnl\\'" . fennel-mode))
(use-package dired
:ensure nil
:straight nil
@ -253,14 +257,27 @@
(chris/leader-keys
"od" '(dired-jump :which-key "open dired here"))
(general-def 'normal dired-mode-map
"h" 'dired-up-directory
"l" 'dired-find-file
"q" 'kill-this-buffer))
(use-package all-the-icons-dired
:hook (dired-mode . all-the-icons-dired-mode))
(use-package dired-single
:after dired
:general
(general-def 'normal dired-mode-map
"h" 'dired-single-up-directory
"l" 'dired-single-buffer))
(use-package diredfl
:after dired
:config (diredfl-global-mode +1))
(defun chris/org-mode-setup ()
(org-indent-mode +1)
(toc-org-mode +1)
(olivetti-mode +1))
(olivetti-mode +1)
(display-line-numbers-mode -1))
(use-package org
:config
@ -333,7 +350,8 @@
(setq org-id-method 'ts)
:general
(chris/leader-keys "o a" 'org-agenda
"c" 'org-capture))
"c" 'org-capture
"so" 'consult-imenu))
(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"
@ -356,8 +374,31 @@
(add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'chris/org-babel-tangle-config
:append :local)))
(use-package evil-org
:after org)
(use-package org-super-agenda
:after org-agenda
:init
(setq org-super-agenda-groups '((:name "Today"
:time-grid t
:scheduled today)
(:name "Due Today"
:deadline today)
(:name "Important"
:priority "A")
(:name "Overdue"
:time-grid t
:scheduled today)
(:name "Due soon"
:deadline future)))
:config
(org-super-agenda-mode)
(setq org-super-agenda-header-map nil))
(use-package org-roam
:after org
:hook (org-load . org-roam-mode)
:commands (org-roam org-roam-find-file)
:config
(setq org-roam-directory "~/org")
(setq org-roam-buffer-width 0.25)
@ -405,6 +446,12 @@
(add-hook 'org-roam-mode-hook org-roam-server-mode t)
(use-package org-superstar
:after org
:config
(org-superstar-mode +1)
(setq org-superstar-headline-bullets-list '("\u25c9" "\u25c8" "\u25b8" "\u25ce" "\u272c" "\u25c7" "\u2749" "\u2719" "\u2756")))
(use-package calfw
:commands chris/calfw-calendar-open
:config
@ -413,9 +460,12 @@
(cfw:open-calendar-buffer
:contents-sources
(list
(cfw:org-create-source "Cyan") ; org-agenda source
(cfw:ical-create-source "NV" "https://www.nvhuskies.org/vnews/display.v?ical" "Green") ; School Calendar
(cfw:ical-create-source "Outlook" "https://outlook.office365.com/owa/calendar/62a0d491bec4430e825822afd2fd1c01@tfcconnection.org/9acc5bc27ca24ce7a900c57284959f9d8242340735661296952/S-1-8-2197686000-2519837503-3687200543-3873966527/reachcalendar.ics" "Yellow") ; Outlook Calendar
(cfw:org-create-source
"Cyan") ; org-agenda source
(cfw:ical-create-source
"NV" "https://www.nvhuskies.org/vnews/display.v?ical" "Green") ; School Calendar
(cfw:ical-create-source
"Outlook" "https://outlook.office365.com/owa/calendar/62a0d491bec4430e825822afd2fd1c01@tfcconnection.org/9acc5bc27ca24ce7a900c57284959f9d8242340735661296952/S-1-8-2197686000-2519837503-3687200543-3873966527/reachcalendar.ics" "Yellow") ; Outlook Calendar
)))
:general
(chris/leader-keys
@ -423,7 +473,7 @@
(general-def cfw:calendar-mode-map
"q" 'kill-this-buffer
"RET" 'cfw:show-details-command)
(general-def cfw:details-mode-map
(general-def 'normal cfw:details-mode-map
"q" 'cfw:details-kill-buffer-command))
(use-package calfw-org
@ -507,6 +557,7 @@
;;; If the prompt spans over multiple lines, the regexp should match
;;; last line only.
(setq-default eshell-prompt-regexp "^ ")
(setq eshell-destroy-buffer-when-process-dies t)
:general
(chris/leader-keys
"oe" 'eshell)
@ -521,4 +572,11 @@
:config
(pdf-tools-install))
(setq display-buffer-alist
'(("\\*e?shell\\*"
(display-buffer-in-side-window)
(window-width . 0.3)
(side . right))))
(setq display-buffer-alist nil)
(setq gc-cons-threshold 2000000)