Merge pull request #4 from danielma/dma/urls-as-text

Show only text of links
danielma · Apr 12, 2018 · fdf7552 · fdf7552
2 parents df20628 + f1dac12
commit fdf7552
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/magit-org-todos.el b/magit-org-todos.el
@@ -59,11 +59,15 @@
       (magit-insert-section (org-todos-wrapper)
         (magit-insert-heading "Todos:")
         (dolist (todo todos)
-          (let ((keyword (org-element-property :todo-keyword todo))
-                (title (org-element-property :raw-value todo)))
+          (let* ((keyword (org-element-property :todo-keyword todo))
+                 (title (org-element-property :title todo)))
             (magit-insert-section (org-todos title)
-            (insert (concat "* " (propertize keyword 'face 'org-todo) " " title))
-            (insert ?\n))))
+              (insert (concat "* " (propertize keyword 'face 'org-todo) " "))
+              (dolist (el title)
+                (if (and (listp el) (eq (car el) 'link))
+                    (insert (car (last el)))
+                  (insert el)))))
+          (insert ?\n))
         (insert ?\n)))))
 
 ;;;###autoload

diff --git a/todo.org b/todo.org
@@ -1,2 +1,2 @@
-* TODO add interactivity
+* TODO add interactivity [[https://feedly.com/][the link]]
 * TODO tweet about it