From 0ee7fa9c382ae30295f0b8d88457f7856c7ff800 Mon Sep 17 00:00:00 2001
From: Thomas Voss <mail@thomasvoss.com>
Date: Wed, 16 Oct 2024 22:04:33 +0200
Subject: emacs: Overhaul configuration completely

---
 .config/emacs/modules/mm-calc.el | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 .config/emacs/modules/mm-calc.el

(limited to '.config/emacs/modules/mm-calc.el')

diff --git a/.config/emacs/modules/mm-calc.el b/.config/emacs/modules/mm-calc.el
new file mode 100644
index 0000000..2a9a74b
--- /dev/null
+++ b/.config/emacs/modules/mm-calc.el
@@ -0,0 +1,25 @@
+;;; mm-calc.el --- Emacs configurations for ‘calc-mode’  -*- lexical-binding: t; -*-
+
+;; TODO: Swap more than 2 elements?
+(defun mm-calc-swap ()
+  "Swap the top two elements on the stack."
+  (declare (modes calc-mode))
+  (interactive)
+  (calc-over 2)
+  (calc-truncate-up 2)
+  (calc-pop 1)
+  (calc-truncate-down 2))
+
+(use-package calc
+  :bind (:map calc-mode-map
+         ("C-c x" . #'mm-calc-swap))
+  ;; TODO: Can this be done in :custom?
+  :init
+  (setopt
+   calc-display-trail nil
+   calc-group-digits t
+   ;; Optimize for Europeans
+   calc-point-char ","
+   calc-group-char "."))
+
+(provide 'mm-calc)
-- 
cgit v1.2.3