home

commit 3ae29a4b99c139c451fb08e37e276f3e3bdad9f1
parent b1945afe005607aa51e3c9c8507713ae4e86802d
Author: Vincent Demeester <vincent@sbr.pm>
Date:   Mon,  8 Jul 2024 11:45:53 +0200

tools/emacs: more basic stuff

Signed-off-by: Vincent Demeester <vincent@sbr.pm>

Diffstat:
M
tools/emacs/config/00-base.el
 | 
15
++++++++++++++-
M
tools/emacs/init.el
 | 
5
+++++

2 files changed, 19 insertions(+), 1 deletion(-)
diff --git a/tools/emacs/config/00-base.el b/tools/emacs/config/00-base.el
@@ -11,6 +11,18 @@
 (global-unset-key (kbd "C-x C-z"))
 (global-unset-key (kbd "C-h h"))
 
+;; Enable these
+(mapc
+ (lambda (command)
+   (put command 'disabled nil))
+ '(list-timers narrow-to-region narrow-to-page upcase-region downcase-region))
+
+;; And disable these
+(mapc
+ (lambda (command)
+   (put command 'disabled t))
+ '(overwrite-mode iconify-frame diary))
+
 ;; Custom file management
 (defconst vde/custom-file (locate-user-emacs-file "custom.el")
   "File used to store settings from Customization UI.")
@@ -22,8 +34,9 @@
 
 (use-package cus-edit
   :config
+  ;; Disable the damn thing by making it disposable.
+  (setq custom-file (make-temp-file "emacs-custom-"))
   (setq
-   custom-file vde/custom-file
    custom-buffer-done-kill nil          ; Kill when existing
    custom-buffer-verbose-help nil       ; Remove redundant help text
    custom-unlispify-tag-names nil       ; Show me the real variable name
diff --git a/tools/emacs/init.el b/tools/emacs/init.el
@@ -233,6 +233,11 @@
 (require 'project-func)
 (add-to-list 'load-path (concat user-emacs-directory "/config/"))
 
+;; Make native compilation silent and prune its cache.
+(when (native-comp-available-p)
+  (setq native-comp-async-report-warnings-errors 'silent) ; Emacs 28 with native compilation
+  (setq native-compile-prune-cache t)) ; Emacs 29
+
 (require '00-base)
 (require '00-clean) ;; Maybe refactor no-littering
 (require 'config-appearance)