equal
deleted
inserted
replaced
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 |
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) |
|
725 |
706 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
726 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
707 (message "proced") |
727 (message "proced") |
708 |
728 |
709 (setq-default proced-format 'medium) |
729 (setq-default proced-format 'medium) |
710 |
730 |
979 |
999 |
980 (when window-system |
1000 (when window-system |
981 (set-face-attribute 'region nil :background "light blue")) |
1001 (set-face-attribute 'region nil :background "light blue")) |
982 |
1002 |
983 (setq select-enable-clipboard t) |
1003 (setq select-enable-clipboard t) |
984 (setq select-enable-primary t) |
1004 (unless (eq window-system 'w32) |
|
1005 (setq select-enable-primary t)) |
985 (setq save-interprogram-paste-before-kill nil) |
1006 (setq save-interprogram-paste-before-kill nil) |
986 |
1007 |
987 (when (fboundp 'er/expand-region) |
1008 (when (fboundp 'er/expand-region) |
988 (global-set-key (kbd "s-w") 'er/expand-region)) |
1009 (global-set-key (kbd "s-w") 'er/expand-region)) |
989 |
1010 |