diff options
| -rw-r--r-- | doom.d/config.el | 36 |
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) |