From c08c4ee14f610916da33ded7f00b4b788a973a89 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Tue, 21 Oct 2025 17:13:11 +0300
Subject: emacs: Add helpful

---
 emacs/.config/emacs/arkta/arkta-cosmetic.el      | 10 +++++++++-
 emacs/.config/emacs/init.el                      | 19 ++++++++++++++++++-
 emacs/.config/emacs/straight/versions/default.el |  2 ++
 3 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/emacs/.config/emacs/arkta/arkta-cosmetic.el b/emacs/.config/emacs/arkta/arkta-cosmetic.el
index 188a1d0..72e2832 100644
--- a/emacs/.config/emacs/arkta/arkta-cosmetic.el
+++ b/emacs/.config/emacs/arkta/arkta-cosmetic.el
@@ -30,7 +30,15 @@
   :init
   (defun arkta/disable-dln ()
     (display-line-numbers-mode -1))
-  :hook ((dashboard-mode help-mode magit-status-mode mu4e-headers-mode mu4e-main-mode mu4e-view-mode treemacs-mode) . arkta/disable-dln)
+  :hook ((dashboard-mode
+          help-mode
+          helpful-mode
+          magit-status-mode
+          mu4e-headers-mode
+          mu4e-main-mode
+          mu4e-view-mode
+          treemacs-mode)
+         . arkta/disable-dln)
   :config
   (global-display-line-numbers-mode +1))
 
diff --git a/emacs/.config/emacs/init.el b/emacs/.config/emacs/init.el
index 3c55546..f90f792 100644
--- a/emacs/.config/emacs/init.el
+++ b/emacs/.config/emacs/init.el
@@ -269,7 +269,14 @@
 
 (use-package counsel
   :straight t
-  :after amx
+  :after (amx helpful)
+  :bind (("C-h f" . counsel-describe-function)
+         ("C-h v" . counsel-describe-variable)
+         ([remap describe-function] . counsel-describe-function)
+         ([remap describe-variable] . counsel-describe-variable))
+  :custom
+  (counsel-describe-function-function #'helpful-callable)
+  (counsel-describe-variable-function #'helpful-variable)
   :config
   (counsel-mode +1))
 
@@ -329,6 +336,16 @@
   :config
   (gcmh-mode +1))
 
+(use-package helpful
+  :straight t
+  :bind (("C-c C-d" . helpful-at-point)
+         ("C-h k" . helpful-key)
+         ("C-h o" . helpful-symbol)
+         ("C-h x" . helpful-command)
+         ([remap describe-command] . helpful-command)
+         ([remap describe-key] . helpful-key)
+         ([remap describe-symbol] . helpful-symbol)))
+
 (use-package ibuffer
   :straight '(ibuffer :type built-in)
   :bind (("C-x C-b" . ibuffer)
diff --git a/emacs/.config/emacs/straight/versions/default.el b/emacs/.config/emacs/straight/versions/default.el
index 5f0dd32..e6e613c 100644
--- a/emacs/.config/emacs/straight/versions/default.el
+++ b/emacs/.config/emacs/straight/versions/default.el
@@ -16,6 +16,7 @@
  ("ebuild-mode" . "ae18a2d8cae2f7b3260a64b41fb7f613264c5eb4")
  ("editorconfig-emacs" . "4af10445fcdf1c9dfa7af4f9e5bec59e8a759d6f")
  ("el-get" . "d3815eb03df07d755a14e6be2c5305daa47ba28b")
+ ("elisp-refs" . "541a064c3ce27867872cf708354a65d83baf2a6d")
  ("elpher" . "dcdeb86f7ae633e252f9ef8a73d3458e87c1ab12")
  ("emacs-dashboard" . "e5fc08e78223487aa0da12539be1a23356c09ec7")
  ("emacs-elixir" . "00d6580a040a750e019218f9392cf9a4c2dac23a")
@@ -34,6 +35,7 @@
  ("gnu-elpa-mirror" . "e15f2d8da53d44f3b6a7b39cdb49f6e01e7e2b87")
  ("groovy-emacs-modes" . "7b8520b2e2d3ab1d62b35c426e17ac25ed0120bb")
  ("haskell-mode" . "bd89438b0e6e6b6877d635699e265da85e85ca06")
+ ("helpful" . "03756fa6ad4dcca5e0920622b1ee3f70abfc4e39")
  ("hl-todo" . "2e9504511aa393686f44a36716c1d2ebdc5def1f")
  ("ht.el" . "1c49aad1c820c86f7ee35bf9fff8429502f60fef")
  ("htmlize" . "c9a8196a59973fabb3763b28069af9a4822a5260")
-- 
cgit v1.2.3