Procházet zdrojové kódy

Format links in the clock line

Patch by Kiwon Um.
Carsten Dominik před 15 roky
rodič
revize
1bb65e22d9
2 změnil soubory, kde provedl 8 přidání a 1 odebrání
  1. 5 0
      lisp/ChangeLog
  2. 3 1
      lisp/org-clock.el

+ 5 - 0
lisp/ChangeLog

@@ -1,3 +1,8 @@
+2010-01-26  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-clock.el (org-clock-in): Improve the look of the clock line
+	by formatting links.
+
 2010-01-24  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-latex.el (org-export-latex-classes): Use AUTO as the place

+ 3 - 1
lisp/org-clock.el

@@ -964,7 +964,9 @@ the clocking selection, associated with the letter `d'."
 			      (functionp org-clock-heading-function))
 			 (funcall org-clock-heading-function))
 			((looking-at org-complex-heading-regexp)
-			 (match-string 4))
+			 (replace-regexp-in-string
+			  "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1"
+			  (match-string 4)))
 			(t "???")))
 	    (setq org-clock-heading (org-propertize org-clock-heading
 						    'face nil))