Emacs: Add and configure org-download, machine specific config

This commit is contained in:
Joseph Ferano 2023-08-21 17:28:00 +07:00
parent 3d620bd862
commit d219ccadc2

View File

@ -225,6 +225,7 @@ Finish up
org-kanban
org-fancy-priorities
org-roam
org-download
;; Programming Languages
highlight-quoted
rustic
@ -417,15 +418,16 @@ Setup other stuff
#+begin_src emacs-lisp
(setq ring-bell-function 'ignore)
(add-to-list 'default-frame-alist '(undecorated . t))
(add-to-list 'default-frame-alist '(fullscreen . maximized))
(when (equal "flowjoe-f37" (system-name))
(add-to-list 'default-frame-alist '(undecorated . t))
(add-to-list 'default-frame-alist '(fullscreen . maximized)))
(add-to-list 'default-frame-alist '(vertical-scroll-bars . nil))
(setq default-frame-alist '(
(vertical-scroll-bars)
(right-divider-width . 5)
(tab-bar-lines . 0)
(internal-border-width . 12)))
;; (setq default-frame-alist '(
;; (vertical-scroll-bars)
;; (right-divider-width . 5)
;; (tab-bar-lines . 0)
;; (internal-border-width . 12)))
(add-hook 'text-mode-hook (lambda () (setq fill-column 80) (turn-on-auto-fill)))
(setq-default display-line-numbers 'relative)
@ -491,7 +493,13 @@ Ligatures... are they that useful?
#+begin_src emacs-lisp
;; (set-face-attribute 'default nil :family "Fira Code Nerd Font" :height 150)
(set-face-attribute 'default nil :family "JetBrainsMono Nerd Font Mono" :height 130)
(let ((height (if (equal "flowjoe-f37" (system-name))
115
130)))
(set-face-attribute 'default nil :family "JetBrainsMono Nerd Font Mono" :height height))
;; (set-face-attribute 'default nil :family "JetBrainsMono Nerd Font Mono" :height 115)
;; (set-face-attribute 'variable-pitch nil :family "Source Code Pro" :height 120)
(setq-default c-basic-offset 4) ;; This is annoying
(setq-default indent-tabs-mode nil)
@ -2257,7 +2265,7 @@ and there's no need for a middle-man when it's already been implemented.
:dap-compilation "cargo build"
:dap-compilation-dir "${workspaceFolder}"))
#+end_src
** Org Mode
** Org-Mode
#+begin_src emacs-lisp
(require 'org-bullets)
@ -2297,12 +2305,15 @@ and there's no need for a middle-man when it's already been implemented.
(defun joe/org-hook ()
(local-set-key (kbd "C-. C-i") 'consult-org-heading)
(setq org-download-image-dir "./Images/")
(setq org-download-heading-lvl nil)
(org-fancy-priorities-mode)
(olivetti-mode)
(org-bullets-mode)
(org-indent-mode))
(add-hook 'org-mode-hook 'joe/org-hook)
(require 'org-download)
(require 'org-kanban)
(require 'org-fancy-priorities)
;; (setq org-fancy-priorities-list '("🅰" "🅱" "🅲" "🅳" "🅴"))
@ -2321,7 +2332,7 @@ and there's no need for a middle-man when it's already been implemented.
(define-key global-map (kbd "C-c n c") #'org-roam-capture)
(org-roam-setup)
(evil-define-key 'normal 'calendar-mode-map (kbd "RET") #'org-calendar-select)
(evil-define-key 'normal calendar-mode-map (kbd "RET") #'org-calendar-select)
#+end_src
** Magit