ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Move eshell-handle-url to eshell library

Browse source
This commit is contained in:
Tom Willemse 2015-12-17 01:07:45 +01:00
parent cc4b99f7fc
commit bc52f75609
2 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
emacs/.emacs.d/init.el
View file

@ -148,15 +148,6 @@ MODE1 is enabled and vice-versa."
"Set the `disabled' property for each item in FUNCTIONS to nil."
(mapc #'(lambda (f) (put f 'disabled nil)) functions))
(defun oni:eshell-handle-url ()
(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)))))))
(defun oni:go-mode-func ()
"Function for `go-mode-hook'."
(setq indent-tabs-mode nil))
@ -774,7 +765,7 @@ If no direction is given, don't split."
(setq emms-player-mpd-music-directory "/mnt/music/mp3"))
(stante-after esh-mode
(add-to-list 'eshell-output-filter-functions #'oni:eshell-handle-url)
(add-to-list 'eshell-output-filter-functions 'oni:eshell-buttonize-url)
(add-to-list 'eshell-output-filter-functions #'eshell-truncate-buffer))
(stante-after eww

15
emacs/.emacs.d/site-lisp/oni-eshell.el
View file

@ -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