From b1f79ab0f8b552fcfed9779497e17b9764e66290 Mon Sep 17 00:00:00 2001
From: Jean-Philippe Bernardy <jeanphilippe.bernardy@gmail.com>
Date: Fri, 24 May 2019 09:49:20 +0200
Subject: [PATCH] boonify narrow/widen

---
 boon-keys.el | 2 ++
 boon-main.el | 7 +++++++
 2 files changed, 9 insertions(+)

diff --git a/boon-keys.el b/boon-keys.el
index 4cd0894..c549723 100644
--- a/boon-keys.el
+++ b/boon-keys.el
@@ -40,6 +40,8 @@
 (define-key boon-goto-map "." 'find-tag)
 
 (define-key boon-x-map "x" 'execute-extended-command)
+(define-key boon-x-map "n" 'boon-narrow)
+(define-key boon-x-map "N" 'widen)
 
 (define-key boon-select-map "@"  'boon-select-occurences)
 (define-key boon-select-map "#"  'boon-select-all)
diff --git a/boon-main.el b/boon-main.el
index 8d76d19..c411ce8 100644
--- a/boon-main.el
+++ b/boon-main.el
@@ -415,6 +415,13 @@ sequence."
   (dolist (reg (boon-run-selector regs))
     (comment-or-uncomment-region (boon-reg-begin reg)(boon-reg-end reg))))
 
+(defun boon-narrow (regs)
+  "Narrow to the first region of REGS."
+  (interactive (list (boon-spec-select-top "narrow")))
+  (let ((reg (car (boon-run-selector regs))))
+    (narrow-to-region (boon-reg-begin reg) (boon-reg-end reg))))
+
+
 (provide 'boon-main)
 ;;; boon-main.el ends here