From 3196ac0c89fb67eb79ccc10132a5e2c7baa65c99 Mon Sep 17 00:00:00 2001
From: H Durer <h.duerer@gmail.com>
Date: Tue, 5 Mar 2019 02:41:35 +0000
Subject: Fix #219 no `with-eval-after-load` in the code (#220)

The package-lint logic is too daft to cope with this (you cannot even mention it in a comment).
We now move the discover functionality into its own package and just mention in the README file how to make use of it.
---
 lisp/mastodon-discover.el | 69 +++++++++++++++++++++++++++++++++++++++++++++++
 lisp/mastodon.el          | 31 ---------------------
 2 files changed, 69 insertions(+), 31 deletions(-)
 create mode 100644 lisp/mastodon-discover.el

(limited to 'lisp')

diff --git a/lisp/mastodon-discover.el b/lisp/mastodon-discover.el
new file mode 100644
index 0000000..5f248f8
--- /dev/null
+++ b/lisp/mastodon-discover.el
@@ -0,0 +1,69 @@
+;;; mastodon-discover.el --- Use Mastodon.el with discover.el  -*- lexical-binding: t -*-
+
+;; Copyright (C) 2019 Johnson Denen
+;; Author: Johnson Denen <johnson.denen@gmail.com>
+;; Version: 0.8.0
+;; Package-Requires: ((emacs "24.4"))
+;; Homepage: https://github.com/jdenen/mastodon.el
+
+;; This file is not part of GNU Emacs.
+
+;; This file is part of mastodon.el.
+
+;; mastodon.el is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; mastodon.el is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with mastodon.el.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This adds optional functionality that can be used if the dicover package
+;; is present.
+;;
+;; See the README file for how to use this.
+
+;;; Code:
+(require 'discover)
+
+(defun mastodon-discover--init ()
+  "Plug Mastodon functionality into discover."
+  (interactive)
+  (discover-add-context-menu
+   :bind "?"
+   :mode 'mastodon-mode
+   :mode-hook 'mastodon-mode-hook
+   :context-menu '(mastodon
+                   (description "Mastodon feed viewer")
+                   (actions
+                    ("Toots"
+                     ("A" "Author" mastodon-profile--get-toot-author)
+                     ("b" "Boost" mastodon-toot--boost)
+                     ("c" "Toggle content" mastodon-tl--toggle-spoiler-text-in-toot)
+                     ("f" "Favourite" mastodon-toot--favourite)
+                     ("j" "Next" mastodon-tl--goto-next-toot)
+                     ("k" "Prev" mastodon-tl--goto-prev-toot)
+                     ("n" "Send" mastodon-toot)
+                     ("r" "Reply" mastodon-toot--reply)
+                     ("t" "Thread" mastodon-tl--thread)
+                     ("u" "Update" mastodon-tl--update)
+                     ("U" "Users" mastodon-profile--show-user))
+                    ("Timelines"
+                     ("F" "Federated" mastodon-tl--get-federated-timeline)
+                     ("H" "Home" mastodon-tl--get-home-timeline)
+                     ("L" "Local" mastodon-tl--get-local-timeline)
+                     ("N" "Notifications" mastodon-notifications--get)
+                     ("T" "Tag" mastodon-tl--get-tag-timeline))
+                    ("Quit"
+                     ("q" "Quit mastodon buffer. Leave window open." kill-this-buffer)
+                     ("Q" "Quit mastodon buffer and kill window." kill-buffer-and-window))))))
+
+(provide 'mastodon-discover)
+;;; mastodon-discover.el ends here
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index 714986f..e5fae79 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -157,36 +157,5 @@ If REPLY-TO-ID is non-nil, attach new toot to a conversation."
   :group 'mastodon
   (read-only-mode 1))
 
-(with-eval-after-load 'mastodon
-  (when (require 'discover nil :noerror)
-    (discover-add-context-menu
-     :bind "?"
-     :mode 'mastodon-mode
-     :mode-hook 'mastodon-mode-hook
-     :context-menu '(mastodon
-                     (description "Mastodon feed viewer")
-                     (actions
-                      ("Toots"
-                       ("A" "Author" mastodon-profile--get-toot-author)
-                       ("b" "Boost" mastodon-toot--boost)
-                       ("c" "Toggle content" mastodon-tl--toggle-spoiler-text-in-toot)
-                       ("f" "Favourite" mastodon-toot--favourite)
-                       ("j" "Next" mastodon-tl--goto-next-toot)
-                       ("k" "Prev" mastodon-tl--goto-prev-toot)
-                       ("n" "Send" mastodon-toot)
-                       ("r" "Reply" mastodon-toot--reply)
-                       ("t" "Thread" mastodon-tl--thread)
-                       ("u" "Update" mastodon-tl--update)
-                       ("U" "Users" mastodon-profile--show-user))
-                      ("Timelines"
-                       ("F" "Federated" mastodon-tl--get-federated-timeline)
-                       ("H" "Home" mastodon-tl--get-home-timeline)
-                       ("L" "Local" mastodon-tl--get-local-timeline)
-                       ("N" "Notifications" mastodon-notifications--get)
-                       ("T" "Tag" mastodon-tl--get-tag-timeline))
-                      ("Quit"
-                       ("q" "Quit mastodon buffer. Leave window open." kill-this-buffer)
-                       ("Q" "Quit mastodon buffer and kill window." kill-buffer-and-window)))))))
-
 (provide 'mastodon)
 ;;; mastodon.el ends here
-- 
cgit v1.2.3