Feature request: another Org file for anniversary entries

Feature request: another Org file for anniversary entries

[Juraj Kubelka]

[-- Attachment #1.1: Type: text/plain, Size: 171 bytes --]

I would like to add anniversary entries to another Org file then other
diaries. Would it be possible? There is a suggested patch in the attachment.

Thank you a lot,
Jura

[-- Attachment #1.2: Type: text/html, Size: 207 bytes --]

[-- Attachment #2: patch.diff --]
[-- Type: application/octet-stream, Size: 3225 bytes --]

diff --git a/.emacs.d/add-ons/org-agenda.el b/.emacs.d/add-ons/org-agenda.el
index 6bcbf62..b81562d 100644
--- a/.emacs.d/add-ons/org-agenda.el
+++ b/.emacs.d/add-ons/org-agenda.el
@@ -7410,7 +7410,8 @@ buffer, display it in another window."
 	  (t (message "No running clock, use `C-c C-x C-j' to jump to the most recent one")))))
 
 (defun org-agenda-diary-entry-in-org-file ()
-  "Make a diary entry in the file `org-agenda-diary-file'."
+  "Make a diary entry in the file `org-agenda-diary-file' or
+anniversary entry in `org-agenda-anniversary-file'."
   (let (d1 d2 char (text "") dp1 dp2)
     (if (equal (buffer-name) "*Calendar*")
 	(setq d1 (calendar-cursor-to-date t)
@@ -7469,12 +7470,16 @@ top-level    as top-level entries at the end of the file."
 
 (defun org-agenda-add-entry-to-org-agenda-diary-file (type text &optional d1 d2)
   "Add a diary entry with TYPE to `org-agenda-diary-file'.
+For TYPE equal to `anniversary', a diary entry is added to
+`org-agenda-anniversary-file'.
 If TEXT is not empty, it will become the headline of the new entry, and
 the resulting entry will not be shown.  When TEXT is empty, switch to
-`org-agenda-diary-file' and let the user finish the entry there."
-  (let ((cw (current-window-configuration)))
+`org-agenda-diary-file'/`org-agenda-anniversary-file' and let the user
+finish the entry there."
+  (let ((cw (current-window-configuration))
+        (of (org-agenda-anniversary-file)))
     (org-switch-to-buffer-other-window
-     (find-file-noselect org-agenda-diary-file))
+     (find-file-noselect of))
     (widen)
     (goto-char (point-min))
     (cond
@@ -7547,7 +7552,7 @@ the resulting entry will not be shown.  When TEXT is empty, switch to
 	  (set-window-configuration cw)
 	  (message "%s entry added to %s"
 		   (capitalize (symbol-name type))
-		   (abbreviate-file-name org-agenda-diary-file)))
+		   (abbreviate-file-name of)))
       (org-reveal t)
       (message "Please finish entry here"))))
 
diff --git a/.emacs.d/add-ons/org.el b/.emacs.d/add-ons/org.el
index eb91968..7eab905 100644
--- a/.emacs.d/add-ons/org.el
+++ b/.emacs.d/add-ons/org.el
@@ -3112,6 +3112,24 @@ points to a file, `org-agenda-diary-entry' will be used instead."
 	  (const :tag "The standard Emacs diary file" diary-file)
 	  (file :tag "Special Org file diary entries")))
 
+(defcustom org-agenda-anniversary-file 'org-agenda-diary-file
+  "File to which to add new anniversary entries with the `i' key
+followed by `a' key in agenda and calendar.  When this is the
+symbol `org-agenda-diary-entry', the functionality in the Emacs
+calendar will be used to add entries to the
+`org-agenda-diary-entry'.  But when this points to a file,
+`org-agenda-anniversary-entry' will be used instead."
+  :group 'org-agenda
+  :type '(choice
+	  (const :tag "Same Org file as for other new entries" org-agenda-diary-file)
+	  (file :tag "Another Org file anniversary entries")))
+
+(defun org-agenda-anniversary-file ()
+  "Return real file name."
+  (if (eq org-agenda-anniversary-file 'org-agenda-diary-file)
+      org-agenda-diary-file
+    org-agenda-anniversary-file))
+
 (eval-after-load "calendar"
   '(progn
      (org-defkey calendar-mode-map org-calendar-to-agenda-key

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Feature request: another Org file for anniversary entries

[Giovanni Ridolfi]

Juraj Kubelka <juraj.kubelka@gmail.com> writes:

Hi, Juraj,

> I would like to add anniversary entries to another Org file then other
> diaries. Would it be possible? 

Isn't the following "code" in an org-file (in the agenda-list) enough?

** Birthdays & anniversaries
:PROPERTIES:
:CATEGORY: Ann
:END:
                    month day [1]
%%(diary-anniversary  01 11 1956) John's Birthday  (%d yo)

If not, would you, please, elaborate?

cheers,
Giovanni
[1] you can also use day month syntax ;-)

Re: Feature request: another Org file for anniversary entries

[Juraj Kubelka]

[-- Attachment #1.1: Type: text/plain, Size: 1643 bytes --]

Hi Gionanni,

As I understand code in org-agenda-add-entry-to-org-agenda-diary-file
function, it search for "* Anniversaries" string in org-agenda-diary-file
file. It is the same file, where other events ("i d" (day), "i b" (block))
are inserted. But I would like to paste anniversaries to another org mode
file. The reason is, org-agenda-diary-file org file is exported to iCalendar
format and published to my mobile device. Here, I do not want to have these
anniversaries. I want to export anniversaries to another iCalendar file,
which is not published to my mobile device, but is imported by another
tools.

So, my patch introduces a new custom variable org-agenda-anniversary-entry,
which enables this feature. So, my regular diary events are stored in
main.org file and anniversaries in anniversary.org file.

Is it clear right now? Because it does not seem to me, your suggestion
solves me problem.

Regards,
Juraj

PS: Sorry, the first patch is missing a peace of code, the second one should
be right and complete.

On Fri, Jan 14, 2011 at 4:17 PM, Giovanni Ridolfi <giovanni.ridolfi@yahoo.it
> wrote:

> Juraj Kubelka <juraj.kubelka@gmail.com> writes:
>
> Hi, Juraj,
>
> > I would like to add anniversary entries to another Org file then other
> > diaries. Would it be possible?
>
> Isn't the following "code" in an org-file (in the agenda-list) enough?
>
> ** Birthdays & anniversaries
> :PROPERTIES:
> :CATEGORY: Ann
> :END:
>                    month day [1]
> %%(diary-anniversary  01 11 1956) John's Birthday  (%d yo)
>
> If not, would you, please, elaborate?
>
> cheers,
> Giovanni
> [1] you can also use day month syntax ;-)
>

[-- Attachment #1.2: Type: text/html, Size: 2307 bytes --]

[-- Attachment #2: patch.diff --]
[-- Type: application/octet-stream, Size: 3308 bytes --]

diff --git a/.emacs.d/add-ons/org-agenda.el b/.emacs.d/add-ons/org-agenda.el
index 6bcbf62..c692ca0 100644
--- a/.emacs.d/add-ons/org-agenda.el
+++ b/.emacs.d/add-ons/org-agenda.el
@@ -7410,7 +7410,8 @@ buffer, display it in another window."
 	  (t (message "No running clock, use `C-c C-x C-j' to jump to the most recent one")))))
 
 (defun org-agenda-diary-entry-in-org-file ()
-  "Make a diary entry in the file `org-agenda-diary-file'."
+  "Make a diary entry in the file `org-agenda-diary-file' or
+anniversary entry in `org-agenda-anniversary-file'."
   (let (d1 d2 char (text "") dp1 dp2)
     (if (equal (buffer-name) "*Calendar*")
 	(setq d1 (calendar-cursor-to-date t)
@@ -7469,12 +7470,18 @@ top-level    as top-level entries at the end of the file."
 
 (defun org-agenda-add-entry-to-org-agenda-diary-file (type text &optional d1 d2)
   "Add a diary entry with TYPE to `org-agenda-diary-file'.
+For TYPE equal to `anniversary', a diary entry is added to
+`org-agenda-anniversary-file'.
 If TEXT is not empty, it will become the headline of the new entry, and
 the resulting entry will not be shown.  When TEXT is empty, switch to
-`org-agenda-diary-file' and let the user finish the entry there."
-  (let ((cw (current-window-configuration)))
+`org-agenda-diary-file'/`org-agenda-anniversary-file' and let the user
+finish the entry there."
+  (let ((cw (current-window-configuration))
+        (of (if (eq type 'anniversary) 
+                (org-agenda-anniversary-file)
+              org-agenda-diary-file)))
     (org-switch-to-buffer-other-window
-     (find-file-noselect org-agenda-diary-file))
+     (find-file-noselect of))
     (widen)
     (goto-char (point-min))
     (cond
@@ -7547,7 +7554,7 @@ the resulting entry will not be shown.  When TEXT is empty, switch to
 	  (set-window-configuration cw)
 	  (message "%s entry added to %s"
 		   (capitalize (symbol-name type))
-		   (abbreviate-file-name org-agenda-diary-file)))
+		   (abbreviate-file-name of)))
       (org-reveal t)
       (message "Please finish entry here"))))
 
diff --git a/.emacs.d/add-ons/org.el b/.emacs.d/add-ons/org.el
index eb91968..7eab905 100644
--- a/.emacs.d/add-ons/org.el
+++ b/.emacs.d/add-ons/org.el
@@ -3112,6 +3112,24 @@ points to a file, `org-agenda-diary-entry' will be used instead."
 	  (const :tag "The standard Emacs diary file" diary-file)
 	  (file :tag "Special Org file diary entries")))
 
+(defcustom org-agenda-anniversary-file 'org-agenda-diary-file
+  "File to which to add new anniversary entries with the `i' key
+followed by `a' key in agenda and calendar.  When this is the
+symbol `org-agenda-diary-entry', the functionality in the Emacs
+calendar will be used to add entries to the
+`org-agenda-diary-entry'.  But when this points to a file,
+`org-agenda-anniversary-entry' will be used instead."
+  :group 'org-agenda
+  :type '(choice
+	  (const :tag "Same Org file as for other new entries" org-agenda-diary-file)
+	  (file :tag "Another Org file anniversary entries")))
+
+(defun org-agenda-anniversary-file ()
+  "Return real file name."
+  (if (eq org-agenda-anniversary-file 'org-agenda-diary-file)
+      org-agenda-diary-file
+    org-agenda-anniversary-file))
+
 (eval-after-load "calendar"
   '(progn
      (org-defkey calendar-mode-map org-calendar-to-agenda-key

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Feature request: another Org file for anniversary entries

[Bastien]

Hi Juraj,

thanks for the patch and the explanations.

Juraj Kubelka <juraj.kubelka@gmail.com> writes:

> So, my regular diary events are stored in main.org file and
> anniversaries in anniversary.org file.

Which lets you have two separate .ics files, one containing
anniversaries, the other one not containing them.

I still fail to understand what is needed that cannot be taken
care of by your settings.  

Thanks,

-- 
 Bastien

Re: Feature request: another Org file for anniversary entries

[Juraj Kubelka]

[-- Attachment #1.1: Type: text/plain, Size: 1214 bytes --]

Hi Bastien,

I may mixed two thinks I supposed to achieve.

1. to be able to export anniversaries in a separate .ics file. As you posted
recently, in a new org-mode release, it will be possible to use
`org-icalendar-honor-noexport-tag' customization. I have not tried yet, but
it should work. So, this is likely not the case right now.

2. I have a lot of anniversaries and I want to store new items (by pressing
"i a" in Org Agenda buffer) to a different .org file. I do not want to have
them in the same file as the other diary entries (by pressing "i d" o "i
b"). Are there any settings I can use for the purpose? Maybe I missed
something.

Thank you in advance,
Juraj

On Fri, Feb 11, 2011 at 1:25 PM, Bastien <bastien.guerry@wikimedia.fr>wrote:

> Hi Juraj,
>
> thanks for the patch and the explanations.
>
> Juraj Kubelka <juraj.kubelka@gmail.com> writes:
>
> > So, my regular diary events are stored in main.org file and
> > anniversaries in anniversary.org file.
>
> Which lets you have two separate .ics files, one containing
> anniversaries, the other one not containing them.
>
> I still fail to understand what is needed that cannot be taken
> care of by your settings.
>
> Thanks,
>
> --
>  Bastien
>

[-- Attachment #1.2: Type: text/html, Size: 1910 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode