From 0f3303594d5f91f2547faa97383857859af6e121 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Sun, 6 Oct 2024 20:50:21 +0300
Subject: .

---
 emacs | 37 ++++++++++++++++---------------------
 1 file changed, 16 insertions(+), 21 deletions(-)

(limited to 'emacs')

diff --git a/emacs b/emacs
index 3bc2eb3..87d7068 100644
--- a/emacs
+++ b/emacs
@@ -33,11 +33,12 @@
 ;; Put Emacs auto-save and backup files to /tmp
 (defconst emacs-tmp-dir (expand-file-name (format "emacs%d" (user-uid)) temporary-file-directory))
 (setq
-   backup-by-copying t                                        ; Avoid symlinks
+   backup-by-copying t                                       
    delete-old-versions t
    kept-new-versions 6
    kept-old-versions 2
    version-control t
+   make-backup-files nil
    auto-save-list-file-prefix emacs-tmp-dir
    auto-save-file-name-transforms `((".*" ,emacs-tmp-dir t))  ; Change autosave dir to tmp
    backup-directory-alist `((".*" . ,emacs-tmp-dir)))
@@ -211,13 +212,12 @@
   (set 'eldoc-print-after-edit t)
   (global-eldoc-mode t)
   (setq eldoc-echo-area-prefer-doc-buffer t) 
-  
   :hook
   (nix-mode . eglot-ensure)
   (go-mode . eglot-ensure))
 
 
-(setq make-backup-files nil)
+
 
 (use-package go-mode
   :ensure t
@@ -281,17 +281,9 @@
 	org-refile-use-outline-path 'file
 	;; Otherwise looks weird in variable-pitch-mode
 	org-tags-column 0
-	org-log-done 'time)
-
-  (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
-  
-  (org-babel-do-load-languages
-   'org-babel-load-languages
-   '((shell . t)))
-
-  (setq org-capture-templates
-	'(    
-          ("t" "Todo"
+	org-log-done 'time
+	org-capture-templates
+	'(("t" "Todo"
            entry (file+headline "~/personal-db/todo.org" "Todo")
            "* TODO %?\n%i\n%a\n%T\n "
            :empty-lines 1)
@@ -303,6 +295,13 @@
 	   "** %?\n%T"
 	   :empty-lines 1)))
 
+  (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
+  
+  (org-babel-do-load-languages
+   'org-babel-load-languages
+   '((shell . t)))
+
+  
   :config
   (set-face-attribute 'org-block nil :inherit 'fixed-pitch)
   (set-face-attribute 'org-code nil :inherit 'fixed-pitch)
@@ -310,13 +309,9 @@
 
   :hook
   ((org-mode . auto-save-mode))
-   (org-mode . org-indent-mode)
-   (org-mode . visual-line-mode)
-   (org-mode . variable-pitch-mode)
-   (org-agenda-mode .
-			 (lambda ()
-			   (add-hook 'auto-save-hook 'org-save-all-org-buffers nil t)
-			   (auto-save-mode))))
+  (org-mode . org-indent-mode)
+  (org-mode . visual-line-mode)
+  (org-mode . variable-pitch-mode))
 
 
 ;; Magit
-- 
cgit v1.2.3