From mboxrd@z Thu Jan 1 00:00:00 1970 From: Trevor Murphy Subject: [PATCH] Place `org-clock-heading' outside clock time. Date: Sun, 22 May 2016 14:45:25 -0500 Message-ID: <1463946325-5697-2-git-send-email-trevor.m.murphy@gmail.com> References: <1463946325-5697-1-git-send-email-trevor.m.murphy@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57938) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1b4ZJl-00069L-Tw for emacs-orgmode@gnu.org; Sun, 22 May 2016 15:45:45 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1b4ZJb-0006Dy-Sf for emacs-orgmode@gnu.org; Sun, 22 May 2016 15:45:40 -0400 Received: from mail-pa0-x232.google.com ([2607:f8b0:400e:c03::232]:35868) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1b4ZJb-0006Dl-F5 for emacs-orgmode@gnu.org; Sun, 22 May 2016 15:45:31 -0400 Received: by mail-pa0-x232.google.com with SMTP id bt5so55077046pac.3 for ; Sun, 22 May 2016 12:45:31 -0700 (PDT) Received: from organize.localdomain (c-67-180-195-155.hsd1.ca.comcast.net. [67.180.195.155]) by smtp.gmail.com with ESMTPSA id ba9sm41176360pab.24.2016.05.22.12.45.29 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sun, 22 May 2016 12:45:29 -0700 (PDT) In-Reply-To: <1463946325-5697-1-git-send-email-trevor.m.murphy@gmail.com> 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.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org * org-clock.el (org-clock-get-clock-string): When `org-clock-effort' is nil, arrange the format string components separately, similar to how they are arranged when o-c-e is not-nil. --- lisp/org-clock.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index c72bed4..a7c2a0a 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -682,7 +682,7 @@ If not, show simply the clocked time like 01:50." 'face 'org-mode-line-clock))) (format clockstr work-done-str)) (org-propertize (concat "[" (org-minutes-to-clocksum-string clocked-time) - (format " (%s)" org-clock-heading) "]") + "]" (format " (%s)" org-clock-heading)) 'face 'org-mode-line-clock)))) (defun org-clock-get-last-clock-out-time () -- 2.8.2