[bug#47402] gnu: Add emacs-sdcv

[qblade via Guix-patches via <guix-patches@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 69 bytes --]

I submitted two patches, emacs-showtip is a dependency of emacs-sdcv.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-gnu-Add-emacs-showtip.patch --]
[-- Type: text/x-patch; name=0001-gnu-Add-emacs-showtip.patch, Size: 1827 bytes --]

From a224c70cf553261d1f7b1ef434d1f4c584dc9d8f Mon Sep 17 00:00:00 2001
From: qblade <qblade@protonmail.com>
Date: Fri, 26 Mar 2021 01:16:20 +0000
Subject: [PATCH 1/2] gnu: Add emacs-showtip

* gnu/packages/emacs-xyz.scm (emacs-showtip): New variable.
---
 gnu/packages/emacs-xyz.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index f45507c647..bf3cac7b44 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -95,6 +95,7 @@
 ;;; Copyright © 2021 Alexey Abramov <levenson@mmer.org>
 ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
 ;;; Copyright © 2021 Stefan Reichör <stefan@xsteve.at>
+;;; Copyright © 2021 qblade <qblade@protonmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -27350,3 +27351,26 @@ and prefered services can easily be configured.")
 quasi-prefix map, with many useful bindings.  These bindings are
 shorter than usual, using mostly unprefixed keys.")
     (license license:gpl3+)))
+
+(define-public emacs-showtip
+  (package
+    (name "emacs-showtip")
+    (version "20090830.1040")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/emacsorphanage/showtip")
+             (commit
+              "930da302809a4257e8d69425455b29e1cc91949b")))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "01zak0zhha6dp7a2hm28d065gjnc462iwpsfyxhbxgfzcdlicqc7"))))
+    (build-system emacs-build-system)
+    (home-page "https://github.com/emacsorphanage/showtip")
+    (synopsis "Show tip at cursor")
+    (description
+     "This library export one function for elisp programer to show
+tooltip near the cursor not the mouse.")
+    (license license:gpl2+)))
-- 
2.31.0


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: 0002-gnu-Add-emacs-sdcv.patch --]
[-- Type: text/x-patch; name=0002-gnu-Add-emacs-sdcv.patch, Size: 1694 bytes --]

From 257b3463c7a1a4b35768bf8070d69ebe133b1ae5 Mon Sep 17 00:00:00 2001
From: qblade <qblade@protonmail.com>
Date: Fri, 26 Mar 2021 01:18:23 +0000
Subject: [PATCH 2/2] gnu: Add emacs-sdcv

* gnu/packages/emacs-xyz.scm (emacs-sdcv): New variable.
---
 gnu/packages/emacs-xyz.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index bf3cac7b44..5b7ce93a27 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -27374,3 +27374,32 @@ shorter than usual, using mostly unprefixed keys.")
      "This library export one function for elisp programer to show
 tooltip near the cursor not the mouse.")
     (license license:gpl2+)))
+
+(define-public emacs-sdcv
+  (package
+    (name "emacs-sdcv")
+    (version "20190610.732")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/stardiviner/sdcv.el")
+             (commit
+              "943ae3e90cc9a0a88a37cc710acd7424fd4defc4")))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "0i1ylvw7p46pkf3yyyzcdmdhsspzymnnnvx8s0i7vynngr5x0vzh"))))
+    (build-system emacs-build-system)
+    (propagated-inputs
+     `(("emacs-popup" ,emacs-popup)
+       ("emacs-showtip" ,emacs-showtip)
+       ("emacs-pos-tip" ,emacs-pos-tip)))
+    (home-page
+     "https://www.emacswiki.org/emacs/download/sdcv.el")
+    (synopsis
+     "Emacs interface for sdcv")
+    (description
+     "Translate word by sdcv (console version of Stardict), and display
+translation use popup tooltip or buffer.")
+    (license license:gpl3+)))
-- 
2.31.0