From mboxrd@z Thu Jan 1 00:00:00 1970 From: Christian Hopps Subject: [PATCH] Add semimonth step for clocktables Date: Fri, 20 Mar 2020 07:35:25 -0400 Message-ID: Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" Return-path: Received: from eggs.gnu.org ([2001:470:142:3::10]:48283) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jFFw1-00032d-6y for emacs-orgmode@gnu.org; Fri, 20 Mar 2020 07:35:30 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jFFw0-0006fl-9Y for emacs-orgmode@gnu.org; Fri, 20 Mar 2020 07:35:29 -0400 Received: from smtp.chopps.org ([54.88.81.56]:43830) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1jFFw0-0006fG-60 for emacs-orgmode@gnu.org; Fri, 20 Mar 2020 07:35:28 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane-mx.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org Cc: chopps@chopps.org --=-=-= Content-Type: text/plain; format=flowed >From 25818bb40620311d7bb497320acafc175c9f4276 Mon Sep 17 00:00:00 2001 From: Christian Hopps Date: Fri, 20 Mar 2020 06:58:29 -0400 --- lisp/org-clock.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 345fd9b5a..c902635f9 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2784,6 +2784,7 @@ a number of clock tables." (pcase step (`day "Daily report: ") (`week "Weekly report starting on: ") + (`semimonth "Semimonthly report starting on: ") (`month "Monthly report starting on: ") (`year "Annual report starting on: ") (_ (user-error "Unknown `:step' specification: %S" step)))) @@ -2833,6 +2834,9 @@ a number of clock tables." (let ((offset (if (= dow week-start) 7 (mod (- week-start dow) 7)))) (list 0 0 org-extend-today-until (+ d offset) m y))) + (`semimonth (list 0 0 0 + (if (< d 16) 16 1) + (if (< d 16) m (1+ m)) y)) (`month (list 0 0 0 month-start (1+ m) y)) (`year (list 0 0 org-extend-today-until 1 1 (1+ y))))))) (table-begin (line-beginning-position 0)) -- 2.25.0 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIzBAEBCgAdFiEEm56yH/NF+m1FHa6lLh2DDte4MCUFAl50qn4ACgkQLh2DDte4 MCX1hA//YtXg/6AiTP1Hxtpdb3G/FsEj9pglrvYjrI5CdnC5szJZhkp1kobnAYUS 5ANBsK30NTAzoG+WZ7TKOknIaJr3zEiDxhPjKOLX1Q7Q7E+SLxiKn0FuKtZI+ThU E32n7ZyAvSYJvZv4D55ixC3tn6cDRmjyPEFSvr0tOecIpB5Jz3ZXGknP8v1YZ5N8 zWQ2pAY/O02LZ8AdzTCEWz5jN0cyEMixmsR+uL9wPCjFDf95x/9e73mOqmsVxTsR E9gRgFAHddZfNwLNXac2Qw71oZP9rzoN/um1PqjQA2KzCIth0pmeqE+eSGE3vf+L 6jsbcx/5EfpIV1apjw+DxUYE5GUl6+BDs0ROnTb4GgCiPWFC5c+95AF42Jv9tqzP wHRrvKRjYIxsq2MoQ3OiqsfwF0027j4WRJvy6lnL8XfKF/6iW3m4V3OSAdj12Gwx 6Fhge2I4HURd0XjrzD/7KPkXvtVVQQhgQQ9yZFPI825kTS2v5QVx9YM2BQkoGEQ6 7CrOt9ONhiFeq5utcnT+zFxpjvDmRExPJaxhTbLtwVST8oifyvJHCuSouCsKDKUY /3wXTsqsdd0OoQhl1uCEnwnz2ezI1YVpr4zJ17yqEC9TRX0We0bZfBigID7XG6CE O9wFwpeRX2ugOWa+mVntVgzDo+R4h5yYL0xdnjjqL1OKDuDSeO0= =2lW0 -----END PGP SIGNATURE----- --=-=-=--