gnucash maint: [date-utilities] deprecate unused date selectors

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/d316b01d (commit)
	from  https://github.com/Gnucash/gnucash/commit/26286e2f (commit)



commit d316b01da7543d8fc26d1a2529345ea246827a04
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Mon Mar 29 20:14:18 2021 +0800

    [date-utilities] deprecate unused date selectors

diff --git a/libgnucash/app-utils/date-utilities.scm b/libgnucash/app-utils/date-utilities.scm
index 6579b0a70..d55c410ea 100644
--- a/libgnucash/app-utils/date-utilities.scm
+++ b/libgnucash/app-utils/date-utilities.scm
@@ -585,6 +585,7 @@ Defaulting to today."))
     (gnc-mktime now)))
 
 (define (gnc:get-start-next-year)
+  (issue-deprecation-warning "gnc:get-start-next-year is deprecated.")
   (let ((now (gnc-localtime (current-time))))
     (set-tm:sec now 0)
     (set-tm:min now 0)
@@ -596,6 +597,7 @@ Defaulting to today."))
     (gnc-mktime now)))
 
 (define (gnc:get-end-next-year)
+  (issue-deprecation-warning "gnc:get-end-next-year is deprecated.")
   (let ((now (gnc-localtime (current-time))))
     (set-tm:sec now 59)
     (set-tm:min now 59)
@@ -661,6 +663,7 @@ Defaulting to today."))
     (gnc-mktime now)))
     
 (define (gnc:get-start-next-month)
+  (issue-deprecation-warning "gnc:get-start-next-month is deprecated.")
   (let ((now (gnc-localtime (current-time))))
     (set-tm:sec now 0)
     (set-tm:min now 0)
@@ -675,6 +678,7 @@ Defaulting to today."))
     (gnc-mktime now)))
 
 (define (gnc:get-end-next-month)
+  (issue-deprecation-warning "gnc:get-end-next-month is deprecated.")
   (let ((now (gnc-localtime (current-time))))
     (set-tm:sec now 59)
     (set-tm:min now 59) 
@@ -743,6 +747,7 @@ Defaulting to today."))
     (gnc-mktime now)))
 
 (define (gnc:get-start-next-quarter)
+  (issue-deprecation-warning "gnc:get-start-next-quarter is deprecated.")
   (let ((now (gnc-localtime (current-time))))
     (set-tm:sec now 0)
     (set-tm:min now 0)
@@ -757,6 +762,7 @@ Defaulting to today."))
     (gnc-mktime now)))
 
 (define (gnc:get-end-next-quarter)
+  (issue-deprecation-warning "gnc:get-end-next-quarter is deprecated.")
   (let ((now (gnc-localtime (current-time))))
     (set-tm:sec now 59)
     (set-tm:min now 59)
@@ -776,6 +782,7 @@ Defaulting to today."))
   (current-time))
 
 (define (gnc:get-one-month-ago)
+  (issue-deprecation-warning "gnc:get-one-month-ago is deprecated.")
   (let ((now (gnc-localtime (current-time))))
     (if (= (tm:mon now) 0)
 	(begin
@@ -831,6 +838,7 @@ Defaulting to today."))
       (gnc-mktime now))))
 
 (define (gnc:get-one-month-ahead)
+  (issue-deprecation-warning "gnc:get-one-month-ahead is deprecated.")
   (let ((now (gnc-localtime (current-time))))
     (if (= (tm:mon now) 11)
 	(begin



Summary of changes:
 libgnucash/app-utils/date-utilities.scm | 8 ++++++++
 1 file changed, 8 insertions(+)