From bc52f7560902e05535a936743d51654434b7e8d0 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 17 Dec 2015 01:07:45 +0100
Subject: Move eshell-handle-url to eshell library

---
 emacs/.emacs.d/site-lisp/oni-eshell.el | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'emacs/.emacs.d/site-lisp')

diff --git a/emacs/.emacs.d/site-lisp/oni-eshell.el b/emacs/.emacs.d/site-lisp/oni-eshell.el
index 02d49a0..c0d3d13 100644
--- a/emacs/.emacs.d/site-lisp/oni-eshell.el
+++ b/emacs/.emacs.d/site-lisp/oni-eshell.el
@@ -1,4 +1,4 @@
-;;; oni-eshell.el --- Extra Eshell commands          -*- lexical-binding: t; -*-
+;;; oni-eshell.el --- Extra Eshell commands and functions   -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2015  Tom Willemse
 
@@ -20,7 +20,7 @@
 
 ;;; Commentary:
 
-;; Here are some extra commands for eshell.
+;; Here are some extra commands and functions for eshell.
 
 ;;; Code:
 
@@ -38,5 +38,16 @@ directory in it."
         (eshell/cd project-dir)
       (error "Can't locate project root"))))
 
+;;;###autoload
+(defun oni:eshell-buttonize-url ()
+  "Turn every URL into a clickable button."
+  (save-excursion
+    (goto-char eshell-last-output-start)
+    (while (re-search-forward
+            "https?://[^ \n]+" eshell-last-output-end :noerror)
+      (make-button (match-beginning 0) (match-end 0)
+                   'action (lambda (button)
+                             (browse-url (button-label button)))))))
+
 (provide 'oni-eshell)
 ;;; oni-eshell.el ends here
-- 
cgit v1.2.3-54-g00ecf