From d219ccadc2e87a9bd6bd8aade15e6571eaf94a6b Mon Sep 17 00:00:00 2001
From: Joseph Ferano <joseph@ferano.io>
Date: Mon, 21 Aug 2023 17:28:00 +0700
Subject: [PATCH] Emacs: Add and configure org-download, machine specific
 config

---
 .config/emacs/init.org | 31 +++++++++++++++++++++----------
 1 file changed, 21 insertions(+), 10 deletions(-)

diff --git a/.config/emacs/init.org b/.config/emacs/init.org
index 67ca73d..fdab52d 100644
--- a/.config/emacs/init.org
+++ b/.config/emacs/init.org
@@ -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