From mboxrd@z Thu Jan  1 00:00:00 1970
From: Christian Hopps <chopps@chopps.org>
Subject: bi-monthly steps.
Date: Thu, 12 Mar 2020 07:17:59 -0400
Message-ID: <sa6sgidn7o8.fsf@stubbs.int.chopps.org>
Mime-Version: 1.0
Content-Type: multipart/signed; boundary="=-=-=";
 micalg=pgp-sha512; protocol="application/pgp-signature"
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane-mx.org@gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:51115)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <chopps@chopps.org>) id 1jCLqq-0005Aq-6A
 for emacs-orgmode@gnu.org; Thu, 12 Mar 2020 07:18:08 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <chopps@chopps.org>) id 1jCLql-0002Pn-9S
 for emacs-orgmode@gnu.org; Thu, 12 Mar 2020 07:18:08 -0400
Received: from smtp.chopps.org ([54.88.81.56]:43368)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <chopps@chopps.org>) id 1jCLql-0002NY-59
 for emacs-orgmode@gnu.org; Thu, 12 Mar 2020 07:18:03 -0400
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
 <mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
 <mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane-mx.org@gnu.org
Sender: "Emacs-orgmode"
 <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane-mx.org@gnu.org>
To: emacs-orgmode@gnu.org
Cc: chopps@chopps.org

--=-=-=
Content-Type: text/plain; format=flowed



I've the need to display bimonthly clock tables, I was able to add this pretty easy in case the project would find it useful

--- org-clock.el	2020-03-12 06:52:14.000000000 -0400
+++ /Users/chopps/org-clock.el	2020-03-12 06:51:43.000000000 -0400
@@ -2719,6 +2719,7 @@
           (pcase step
             (`day "Daily report: ")
             (`week "Weekly report starting on: ")
+            (`bimonth "Bi-Monthly report starting on: ")
             (`month "Monthly report starting on: ")
             (`year "Annual report starting on: ")
             (_ (user-error "Unknown `:step' specification: %S" step))))
@@ -2768,6 +2769,7 @@
                           (let ((offset (if (= dow week-start) 7
                                           (mod (- week-start dow) 7))))
                             (list 0 0 org-extend-today-until (+ d offset) m y)))
+                         (`bimonth (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))

Thanks,
Chris.

--=-=-=
Content-Type: application/pgp-signature; name="signature.asc"

-----BEGIN PGP SIGNATURE-----

iQIzBAEBCgAdFiEEm56yH/NF+m1FHa6lLh2DDte4MCUFAl5qGmcACgkQLh2DDte4
MCXdKA/+PQ5//AEyqnHaVt6Y4BBD9HWVk8AXhFcUmMNvufQfaf14ETy1pS8dk3ic
mixUymoPSpGQF3z0w3nkxJdhhM/dv6JdhM0MForJkSIVt9a005tIZToISQG5YPzr
7i5e5KKNE1gCoAbA7hsudvirySy9BjMPbn+f8cPM2TpwX/QqPKh3wpbwAcvXEfMp
drWqV65s9rXljsvK+ACWTSKPYKgpdzZIH3ccJLOmwN9doTRLmSCRk6qdjYc6pN+l
vMFME61CUWtrd5vCcUVfJUJsSNBL9eRgYFKJYfrXkdlxFSh1W5xAJG0hVUritCTF
JKsaPlCxiX0L0wvmCBj6m+1OPA+SBQ0AUhzAT/TG/GgLMkaMPIuUTNtf4WC85RlR
6g/HGp0EDvgtKBHGVxDrs4LON3fB6T1OWS+f9c3VqNqHYpYxyrt6A++3ZW1NRjBi
9pdKVbMI6/wf0xBHbFh1f6/S7AW5dfVCG8eJ4h3ZcNjYqe1rqOKf69dhNRjydRGK
unXM4tlmw/z144RbxxQZP9u9wMhu3aNk67Rx40jSf+i1urj+NGTq5iP061FE5IUP
nk47p8/1U5AqkYaGnBfVlzMwZwb70dmpovAQfQ/8HQH2xFhpY7rq02LzZ4ThUzZl
Ndk1zujAQRQlfwvphcmwdPbYQRxGSSZ3o8voKZBbbBQ45vjRvHA=
=FIs7
-----END PGP SIGNATURE-----
--=-=-=--