X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=20411af644a5b5c51fcfe40fd395b529f45e5ceb;hb=69c3ddf33a7938b92d3c8979582c12a8ccc5806d;hp=d6e6b70b26562634ab16b00e6b406fd3c09a9b85;hpb=5aae6ccd189a41b3e84c885b653f6c5a1c82340a;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index d6e6b70..20411af 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -827,26 +827,23 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em [[https://github.com/magit/magit][Magit]] is a very cool git interface on Emacs. -#+BEGIN_SRC emacs-lisp :tangle yes :results silent +and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github.com/abo-abo/oremacs/blob/c5cafdcebc88afe9e73cc8bd40c49b70675509c7/modes/ora-nextmagit.el][here]] +#+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package magit :ensure t - :commands magit-status magit-blame) - -#+END_SRC - -Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github.com/abo-abo/oremacs/blob/c5cafdcebc88afe9e73cc8bd40c49b70675509c7/modes/ora-nextmagit.el][here]] -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - (dolist (map (list magit-status-mode-map - magit-log-mode-map - magit-diff-mode-map - magit-staged-section-map)) - (define-key map "j" 'magit-section-forward) - (define-key map "k" 'magit-section-backward) - (define-key map "n" nil) - (define-key map "p" nil) - (define-key map "v" 'recenter-top-bottom) - (define-key map "i" 'magit-section-toggle)) + :commands magit-status magit-blame + :config + (dolist (map (list magit-status-mode-map + magit-log-mode-map + magit-diff-mode-map + magit-staged-section-map)) + (define-key map "j" 'magit-section-forward) + (define-key map "k" 'magit-section-backward) + (define-key map "n" nil) + (define-key map "p" nil) + (define-key map "v" 'recenter-top-bottom) + (define-key map "i" 'magit-section-toggle))) #+END_SRC * IDO & SMEX @@ -1205,37 +1202,53 @@ Eshell alias Quickly start eshll in split window below, refer [[http://www.howardism.org/Technical/Emacs/eshell-fun.html][eshell-here]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defun eshell-x () - (insert "exit") - (eshell-send-input) - (delete-window)) - - (defun eshell-here () - "Opens up a new shell in the directory associated with the - current buffer's file. The eshell is renamed to match that - directory to make multiple eshell windows easier." - (interactive) - (let* ((parent (if (buffer-file-name) - (file-name-directory (buffer-file-name)) - default-directory)) - (height (/ (window-total-height) 3)) - (name (car (last (split-string parent "/" t)))) - (eshell-name (concat "*eshell: " name "*"))) - (split-window-vertically (- height)) - (other-window 1) - (if (get-buffer eshell-name) - (progn - (message "buffer exist") - (switch-to-buffer eshell-name)) - (progn - (eshell "new") - (rename-buffer eshell-name) - - (insert (concat "ls")) - (eshell-send-input))))) - - (global-unset-key (kbd "M-`")) - (global-set-key (kbd "M-`") #'eshell-here) + ;; (defun eshell-x () + ;; (insert "exit") + ;; (eshell-send-input) + ;; (delete-window)) + + ;; (defun sd/toggle-eshell () + ;; "Open a eshell windows vertically" + ;; (interactive) + ;; (if 1 + ;; (message "true") + ;; (progn + ;; (split-window-vertically (- (/ (window-total-height) 3))) + ;; (other-window 1) + ;; (switch-to-buffer eshell-buffer-name) + ;; (goto-char (point-max)) + ;; (eshell-kill-input) + ;; (insert (format "cd %s" default-directory)) + ;; (eshell-send-input) + ;; (goto-char (point-max)) + ;; (insert (concat "ls")) + ;; (eshell-send-input)))) + ;; (defun eshell-here () + ;; "Opens up a new shell in the directory associated with the + ;; current buffer's file. The eshell is renamed to match that + ;; directory to make multiple eshell windows easier." + ;; (interactive) + ;; (let* ((parent (if (buffer-file-name) + ;; (file-name-directory (buffer-file-name)) + ;; default-directory)) + ;; (height (/ (window-total-height) 3)) + ;; (name (car (last (split-string parent "/" t)))) + ;; (eshell-name (concat "*eshell: " name "*"))) + ;; (split-window-vertically (- height)) + ;; (other-window 1) + ;; (if (get-buffer eshell-name) + ;; (progn + ;; (message "buffer exist") + ;; (switch-to-buffer eshell-name)) + ;; (progn + ;; (eshell "new") + ;; (rename-buffer eshell-name) + + ;; (insert (concat "ls")) + ;; (eshell-send-input))))) + + ;; (global-unset-key (kbd "M-`")) + ;; (global-set-key (kbd "M-`") #'eshell-here) #+END_SRC #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -1258,17 +1271,17 @@ Quickly start eshll in split window below, refer [[http://www.howardism.org/Tech (delete-window) (select-window (sd/window-has-eshell))) (progn - (split-window-vertically (- (/ (window-total-height) 3))) - (other-window 1) - (unless (get-buffer eshell-buffer-name) - (eshell)) - (switch-to-buffer eshell-buffer-name) - (goto-char (point-max)) - (eshell-kill-input) - (message "wowo is %s" default-directory) - (message "wowo is %s" (file-name-directory (buffer-name))) - (insert (format "cd %s" default-directory)) - (eshell-send-input)))) + (let ((dir default-directory)) + + (split-window-vertically (- (/ (window-total-height) 3))) + (other-window 1) + (unless (and (boundp 'eshell-buffer-name) (get-buffer eshell-buffer-name)) + (eshell)) + (switch-to-buffer eshell-buffer-name) + (goto-char (point-max)) + (eshell-kill-input) + (insert (format "cd %s" dir)) + (eshell-send-input))))) (global-unset-key (kbd "M-`")) (global-set-key (kbd "M-`") 'sd/toggle-eshell-here)