establish machine for font size

And equality with laptop

1 files changed, 31 insertions, 5 deletions

diff --git a/doom.d/config.el b/doom.d/config.el
index 87de480..5a402b8 100644
--- a/doom.d/config.el
+++ b/doom.d/config.el
@@ -18,9 +18,26 @@ matt@matthewlemon.com")
 ;;   presentations or streaming.
 ;; - `doom-unicode-font' -- for unicode glyphs
 ;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
-;;
-(setq doom-font (font-spec :family "Jetbrains Mono" :size 16)
-      doom-variable-pitch-font (font-spec :family "Jetbrains Mono" :size 16))
+
+;; Establish which computer I am on
+(defun establish-machine ()
+    (let ((sys (system-name)))
+      (if (string= sys "archdesk")
+          (setq mrl/computer 'desktop)
+        (setq mrl/computer 'laptop))))
+
+(establish-machine)
+
+;; set font accordingly
+
+(if (eq mrl/computer 'desktop)
+    (setq doom-font (font-spec :family "Jetbrains Mono" :size 16)
+          doom-variable-pitch-font (font-spec :family "Jetbrains Mono" :size 16)))
+
+(if (eq mrl/computer 'laptop)
+    (setq doom-font (font-spec :family "Monospace" :size 24)
+          doom-variable-pitch-font (font-spec :family "Monospace" :size 28)))
+
 ;;
 ;; See 'C-h v doom-font' for documentation and more examples of what they
 ;; accept. For example:
@@ -97,8 +114,14 @@ matt@matthewlemon.com")
         '(("d" "default" entry "* %<%T>: %?"
            :target (file+head "%<%Y-%m-%d>.org" "#+title: %<%Y-%m-%d>\n")
            :unnarrowed t)))
-  :config
-  (org-roam-db-autosync-mode))
+  ;; Bind this to C-c n I
+  (defun org-roam-node-insert-immediate (arg &rest args)
+    (interactive "P")
+    (let ((args (cons arg args))
+          (org-roam-capture-templates (list (append (car org-roam-capture-templates)
+                                                  '(:immediate-finish t)))))
+      (apply #'org-roam-node-insert args)))
+  :bind (("C-c n I" . org-roam-node-insert-immediate)))
 
 ;; Basic agenda stuff
 ;; If you use `org' and don't want your org files in the default location below,
@@ -152,6 +175,9 @@ matt@matthewlemon.com")
   (setq calendar-longitude -2.01)
   (setq calendar-location-name "Berwick-upon-Tweed")
 
+  ;; Monday
+  (setq calendar-week-start-day 1)
+
   ;; Basic org keybindings
   (global-set-key "\C-cl" 'org-store-link)
   (global-set-key "\C-ca" 'org-agenda)