emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH] org-eww.el: Fix org-store-link for eww-mode


From: Marco Wahl
Subject: [O] [PATCH] org-eww.el: Fix org-store-link for eww-mode
Date: Wed, 26 Nov 2014 11:12:36 +0100
User-agent: Gnus/5.130012 (Ma Gnus v0.12) Emacs/25.0.50 (gnu/linux)

Hello!

Find a small fix to keep up with the eww evolvement.

I'll try to push the patch immediately since it is so small, resides in
contrib and already helps me.


But of course any comments are welcome, as always, thanks.
-- 
http://www.wahlzone.de
GPG: 0x49010A040A3AE6F2
>From 00500afb8ced99ccaf9334ca183bc572bb6ae29a Mon Sep 17 00:00:00 2001
From: Marco Wahl <address@hidden>
Date: Wed, 26 Nov 2014 10:38:43 +0100
Subject: [PATCH] org-eww.el: Fix org-store-link for eww-mode

* contrib/lisp/org-eww.el (org-eww-store-link): Depending on the Emacs
  version use the appropriate interface to store the url of an
  eww-mode buffer.

This patch fixes the org-store-link feature for eww-mode buffers for
Emacs 25.
---
 contrib/lisp/org-eww.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/contrib/lisp/org-eww.el b/contrib/lisp/org-eww.el
index 26a1e09..08dac11 100644
--- a/contrib/lisp/org-eww.el
+++ b/contrib/lisp/org-eww.el
@@ -54,9 +54,14 @@
   (when (eq major-mode 'eww-mode)
     (org-store-link-props
      :type "eww"
-     :link eww-current-url
+     :link (if (< emacs-major-version 25)
+              eww-current-url
+            (eww-current-url))
      :url (url-view-url t)
-     :description (or eww-current-title eww-current-url))))
+     :description (if (< emacs-major-version 25)
+                     (or eww-current-title eww-current-url)
+                   (or (plist-get eww-data :title)
+                         (eww-current-url))))))
 
 
 ;; Some auxiliary functions concerning links in eww buffers
-- 
2.1.3


reply via email to

[Prev in Thread] Current Thread [Next in Thread]