equal
deleted
inserted
replaced
700 (defun my-term-mode-hook () |
700 (defun my-term-mode-hook () |
701 (goto-address-mode 1)) |
701 (goto-address-mode 1)) |
702 (add-hook 'term-mode-hook #'my-term-mode-hook) |
702 (add-hook 'term-mode-hook #'my-term-mode-hook) |
703 |
703 |
704 (setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *") |
704 (setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *") |
|
705 |
|
706 (defun my-term-send-smart () |
|
707 "Sends a selection or a paragraph to `term-mode'." |
|
708 (interactive) |
|
709 (let (beg end cmd term) |
|
710 (if (use-region-p) |
|
711 (setq cmd (buffer-substring (region-beginning) (region-end))) |
|
712 (save-excursion |
|
713 (forward-paragraph -1) |
|
714 (setq beg (point)) |
|
715 (forward-paragraph 1) |
|
716 (setq end (point)) |
|
717 (setq cmd (string-trim (buffer-substring beg end))))) |
|
718 (save-window-excursion ; term command switches buffers. |
|
719 (term (or explicit-shell-file-name "bash")) |
|
720 (setq term (current-buffer))) |
|
721 (display-buffer term 'display-buffer-use-some-window) |
|
722 (term-simple-send (get-buffer-process term) cmd))) |
|
723 |
|
724 (global-set-key (kbd "s-t") 'my-term-send-smart) |
705 |
725 |
706 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
726 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
707 (message "proced") |
727 (message "proced") |
708 |
728 |
709 (setq-default proced-format 'medium) |
729 (setq-default proced-format 'medium) |