From 6a1e6c7770f9f0b11e2701e808363de5d7ec50cb Mon Sep 17 00:00:00 2001
From: noa@gaiwan.org
Date: Thu, 13 Jun 2024 11:59:51 +0000
Subject: Add org-contacts configuration

---
 emacs/init.el | 48 +++++++++++++++++++++++++++---------------------
 1 file changed, 27 insertions(+), 21 deletions(-)

diff --git a/emacs/init.el b/emacs/init.el
index f527e11..9992fec 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -160,26 +160,26 @@ and when JID is not in `jabber-activity-banned'."
 ;; I also want to make the completion at point function a bit more friendly than the default, so i ask consult to provide the completion functionality.
 (setopt completion-in-region-function 'consult-completion-in-region)
 
-;; (use-package org-contacts
-;; 	:ensure t
-;; 	:pin gnu
-;; 	:custom
-;; 	(org-contacts-files nil)
-;; 	:config
-;; 	(add-to-list org-roam-capture-templates
-;; 		"c" "Contact" plain "%?" :target (file+head "~/data/notes/contacts/${slug}.org" "#+title: %(org-contacts-template-name)\n")
-;; 		"* %(org-contacts-template-name)
-;; :PROPERTIES:
-;; :ADDRESS: %^{289 Cleveland St. Brooklyn, 11206 NY, USA}
-;; :BIRTHDAY: %^{yyyy-mm-dd}
-;; :EMAIL: %(org-contacts-template-email)
-;; :NOTE: %^{NOTE}
-;; :END:"
-;; 		:empty-lines 1
-;; 	)
-;; )
+(use-package org-contacts
+	:ensure t
+	:pin gnu
+	:custom
+	(org-contacts-files org-agenda-files)
+	;; Org contacts seems to require birthdays to have a year.  However, i don't know the year of a lot of people's birthdays, so i set the year to 0000.  This looks bad when the birthday comes up in the agenda.  I figured that i don't usually need to know how old someone is going to be, so i change the format of how the birthday appears in the agenda so that i don't get the wrong age.
+	(org-contacts-birthday-format "Birthday: %l")
 
-;; Select the help window so that i can easily close it again with q
+	:config
+	(add-to-list 'org-capture-templates '("c" "Contact" entry (file+datetree "~/data/notes/notes.org")
+		"* %^{Name}
+:PROPERTIES:
+:ADDRESS: %^{Address}
+:BIRTHDAY: %^{yyyy-mm-dd}
+:EMAIL: %^{EMAIL}p
+:NOTE: %^{NOTE}
+:END:"
+:empty-lines 1)))
+
+;; select the help window so that i can easily close it again with q
 (setopt help-window-select t)
 (use-package helpful
 	:ensure t
@@ -228,7 +228,7 @@ and when JID is not in `jabber-activity-banned'."
 	(org-return-follows-link t)
 	(org-agenda-files '("~/data/notes/notes.org"))
 	(org-capture-templates `(("j" "Journal" entry (file+datetree "~/data/notes/notes.org") "* %?\n" :empty-lines 1)
-	("w" "Website" entry (file+datetree "~/dates/notes/notes.org") "* %?\n%a\n" :empty-lines 1)))
+	("w" "Website" entry (file+datetree "~/data/notes/notes.org") "* %a\n%?\n" :empty-lines 1)))
 	
 	(org-agenda-tags-column t)
 	(org-agenda-block-separator ?─)
@@ -259,9 +259,15 @@ and when JID is not in `jabber-activity-banned'."
 		(?- . " • ")
 		(?* . " • ")
 	))
+	(org-modern-timestamp nil)
 	(org-modern-star nil)
 	(org-modern-keyword nil)
-	(org-modern-checkbox nil)
+	(org-modern-checkbox '((88 . "☑")
+ (45 .
+     #("□–" 0 2
+       (composition
+        ((2)))))
+ (32 . "□")))
 	(org-modern-table nil))
 
 (defun read-file-as-string (filename)
-- 
cgit 1.4.1-2-gfad0