From 8a20306bd9fa6ee6d90aef016dcef9e7b1662c71 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@coquand.email>
Date: Thu, 28 Nov 2024 17:52:36 +0200
Subject: .

---
 home/dots/.emacs     | 45 ++++++++++++++++++++++++++++++++++++++-------
 home/dots/.gitconfig |  2 +-
 2 files changed, 39 insertions(+), 8 deletions(-)

(limited to 'home')

diff --git a/home/dots/.emacs b/home/dots/.emacs
index fd79d4e..e46303c 100644
--- a/home/dots/.emacs
+++ b/home/dots/.emacs
@@ -212,7 +212,7 @@
   :bind
   (("C-<tab>" . nil))
   :custom
-  (tab-bar-auto-width nil)
+  (tab-bar-auto-width t)
   (tab-bar-close-button-show nil)
   (tab-bar-format
    '(tab-bar-format-tabs tab-bar-format-align-right tab-bar-format-global))
@@ -936,8 +936,14 @@
      (sequence "UNREAD(u)" "READING(e)" "|" "READ(r)")
      (sequence "|" "CANCELED(c)")))
   (org-agenda-custom-commands
-   '(("t" todo "TODO")
-     ("p" tags-todo "+piva")))
+   '(("t" "Regular" todo "TODO")
+     ("b" "Books" todo "UNREAD")
+     ("n" "Agenda and all TODOs"
+      ((agenda "today")
+       (todo "TODO")))
+     ("p" "Pivå and Agenda"
+      ((tags-todo "+piva")
+       (agenda "")))))
   (org-priority-lowest ?E)
   (org-priority-faces '((?A . (:weight bold :inherit org-priority))
 			(?D . (:foreground "gray50" :inherit org-priority))
@@ -1136,6 +1142,25 @@
   :custom
   (skeleton-end-hook nil)
   :init
+  (define-skeleton s/elisp-use-package
+    "New packagn"
+    "Package name: "
+    > "(use-package " str  \n
+    - @ ")")
+
+  (define-skeleton s/elisp-new-function
+    "New function"
+    "Function name: "
+    > "(defun " str  " () " \n
+    - @ \n
+    -1 ")")
+
+  (define-skeleton s/lisp-lambda
+    "New lambda" nil
+    > "(lambda ()" \n
+    "(interactive)" \n
+    - @")")
+
   (define-skeleton golang-new-function
     "New function"
     "Function name: "
@@ -1168,6 +1193,12 @@
   :init
   (setq-default abbrev-mode t)
   :config
+  (define-abbrev lisp-mode-abbrev-table "2us"
+    "" 's/elisp-use-package)
+  (define-abbrev lisp-mode-abbrev-table "2fu"
+    "" 's/elisp-new-function)
+  (define-abbrev lisp-mode-abbrev-table "2la"
+    "" 's/lisp-lambda)
   (define-abbrev go-mode-abbrev-table "2err"
     "" 'golang-if-nil-err)
   (define-abbrev go-mode-abbrev-table "2fu"
@@ -1204,7 +1235,6 @@
 (use-package sendmail
   :defer t
   :hook
-;;  (message-send . marc/set-msmtp-account)
   (message-setup . flyspell-mode)
   (message-setup . mail-abbrevs-setup)
   (message-setup . variable-pitch-mode)
@@ -1215,6 +1245,7 @@
   (message-sendmail-extra-arguments '("--read-envelope-from"))
   (message-send-mail-function 'message-send-mail-with-sendmail)
   (message-sendmail-envelope-from 'header)
+  (mail-yank-prefix ">")
   (mail-user-agent 'message-user-agent))
 
 (use-package rmail
@@ -1254,7 +1285,7 @@
      unrmail-mbox-format 'mboxo
      user-full-name "Marc Coquand"
      message-default-headers "FCC: ~/personal-db/mail/work/out/sent.mbox"
-     selected-rmail-account "work"
+     selected-rmail-account 'work
      message-signature "Marc Coquand\nFounder at Pivå"))
 
   (defun mail-home ()
@@ -1272,10 +1303,10 @@
      rmail-file-name "~/personal-db/mail/home/RMAIL"
      ;; In case there are errors, you can set '("--set=onerror=delete")
      rmail-movemail-flags nil
-     user-mail-address "marc@mccd.space"
+     user-mail-address "marc@coquand.email"
      unrmail-mbox-format 'mboxo
      user-full-name "Marc Coquand"
-     selected-rmail-account "home"
+     selected-rmail-account 'home
      message-default-headers "FCC: ~/personal-db/mail/home/out/sent.mbox"
      message-signature "Marc"))
 
diff --git a/home/dots/.gitconfig b/home/dots/.gitconfig
index c7deeb3..b7d8fb5 100644
--- a/home/dots/.gitconfig
+++ b/home/dots/.gitconfig
@@ -3,7 +3,7 @@
   issue = "!gh issue"
   bug = "!git-bug"
 [user]
-	email = marc@coquand@email
+	email = marc@coquand.email
 	name = Marc Coquand
 [credential "https://github.com"]
 	helper = !gh auth git-credential
-- 
cgit v1.2.3