From ce30ad3f7731e3455a0b71013a8547515f58a44e Mon Sep 17 00:00:00 2001
From: yaqubroli <jpw24@st-andrews.ac.uk>
Date: Fri, 03 Jan 2025 12:00:41 -0800
Subject: [PATCH] organised some stuff

---
 init.org | 77 +++++++++++++++++++++++++++++++++++++++++++++++++++++++----------------------
 1 file changed, 55 insertions(+), 22 deletions(-)

diff --git a/init.org b/init.org
index 77ac485..63ecc81 100644
--- a/init.org
+++ a/init.org
@@ -1,20 +1,27 @@
 #+PROPERTY: header-args :tangle /Users/yaqub/.emacs.d/init.el
-* Clump
+* Initial Setup
 
-Sort later
+** Niceties
 
 #+begin_src emacs-lisp
-  (use-package bind-key
-    :ensure t)
 
   (setq ring-bell-function 'ignore)
 
   (setq inhibit-startup-message t)
   (setq initial-buffer-choice t)
+
+#+end_src
+
+** Backup to saves instead of leaving temporary files in .
 
+#+begin_src emacs-lisp
   (setq backup-directory-alist `(("." . "~/.saves")))
   (setq backup-by-copying t)
+#+end_src
 
+** Initialise use-package
+
+#+begin_src emacs-lisp
   (require 'package)
   (setq package-archives '(("melpa" . "https://melpa.org/packages/")
                            ("org" . "https://orgmode.org/elpa/")
@@ -27,6 +34,12 @@
 
   ;; Ensure packages are installed automatically
   (setq use-package-always-ensure t)
+
+#+end_src
+
+** Auto-tangle this init and other literate .el files
+
+#+begin_src emacs-lisp
   (defun yaqub/tangle-if-org-in-yaqubmacs ()
     "If the saved file is an .org file within ~/Development/yaqubmacs, tangle it."
     (let ((target-dir (expand-file-name "~/Development/yaqubmacs")))
@@ -36,7 +49,13 @@
         (org-babel-tangle))))
 
   (add-hook 'after-save-hook 'yaqub/tangle-if-org-in-yaqubmacs)
+#+end_src
 
+* Appearance
+
+** Fonts
+
+#+begin_src emacs-lisp
   ;; Set the default font for Latin, Greek, and Cyrillic
   (set-face-attribute 'default nil
                       :family "Flexi IBM VGA False"
@@ -61,14 +80,24 @@
   (set-fontset-font t 'unicode
                     (font-spec :family "Andale Mono")
                     nil 'append)
+
+#+end_src
 
+** Mac env. specific settings
+#+begin_src emacs-lisp
   (menu-bar-mode 1)
   (toggle-scroll-bar -1)
   (tool-bar-mode -1)
 
   (add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))
   (add-to-list 'default-frame-alist '(ns-appearance . dark))
+
+
+#+end_src
+
+** Theming and modeline
 
+#+begin_src emacs-lisp
   (use-package bliss-theme
     :ensure t
     :config
@@ -80,6 +109,13 @@
     (setq minions-mode-line-lighter "多")
     (setq minions-mode-line-delimiters '("" . ""))
     (minions-mode 1))
+#+end_src
+
+* QoL Packages
+
+#+begin_src emacs-lisp
+  (use-package bind-key
+    :ensure t)
 
   (use-package olivetti
     :ensure t)
@@ -315,19 +351,21 @@
            ("C-c n c" . org-roam-capture)
            ("C-c n d" . org-roam-dailies-goto-today)
            ("C-c n D" . org-roam-dailies-goto-date)))
-
-
-  (defun yaqub/org-roam-setup-on-startup ()
-    "Open specific roam file and today's daily note side by side on Emacs startup."
-    ;; Open the specific roam file
-    (find-file "/Users/yaqub/Orgfiles/roam/00000000000000-home.org"))
-  ;; Add the function to the after-init-hook to ensure it runs after Emacs is fully loaded
-  (add-hook 'after-init-hook 'yaqub/org-roam-setup-on-startup)
 #+end_src
 *** Making sure org links open in the same window
 #+begin_src emacs-lisp
     (setq org-link-frame-setup '((file . find-file)))
+#+end_src
+*** Org-download
+#+begin_src emacs-lisp
+  (use-package org-download
+    :ensure t
+    :custom
+    (org-download-screenshot-method "screencapture")
+    (org-download-method 'attach)
+    (org-download-timestamp t))
 #+end_src
+
 ** Setup LaTeX
 *** Set up AucTeX
 #+begin_src emacs-lisp
@@ -447,12 +485,12 @@
   ;; the command "home" opens home orgfile
   (defun home ()
     (interactive)
-    (find-file "~/Orgfiles/roam/00000000000000-home.org"))
+    (find-file "~/Orgfiles/roam/home.org"))
 
   ;; the command "todo" opens todo orgfile
   (defun todo ()
     (interactive)
-    (find-file "~/Orgfiles/roam/00000000000000-todo.org"))
+    (find-file "~/Orgfiles/roam/todo.org"))
 
   ;; the command "yaqubmacs" opens dired at ~/Development/yaqubmacs
   (defun yaqubmacs ()
@@ -523,12 +561,7 @@
       (eshell 'N))) ; 'N ensures a new eshell buffer is created
 #+end_src
 * Safe local vars
-Apparently this is needed
-#+begin_src emacs-lisp
-  (setq safe-local-variable-values
-        '((evil-shift-width . 8)
-          (indent-tabs-mode . t)
-          (tab-width . 8)
-          (require-final-newline . t)
-          (eval add-hook 'before-save-hook #'editorconfig--delete-trailing-whitespace nil t)))
+Unsafe, but convenient
+#+begin_src emacs-lisp
+  (setq enable-local-variables :all)
 #+end_src
--
rgit 0.1.5