emacs - improve C-l to clear the eshell buffer

[dotfiles.git] / emacs.d / config.org

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 5cada34..1ff1bf7 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -28,6 +28,12 @@ Set system PATH and emacs exec path
   (package-initialize)
 #+END_SRC       
 
+** My constant
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (defconst my-name "Peng Li")
+  (defconst my-email "seudut@gmail.com")
+#+END_SRC
+
 ** General Setting
 *** scroll bar, tool-bar and menu-bar
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -1135,7 +1141,15 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em
 *** variable-pitch-mode and fixed-pitch-mode
 [[https://yoo2080.wordpress.com/2013/05/30/monospace-font-in-tables-and-source-code-blocks-in-org-mode-proportional-font-in-other-parts/][monospace font in tables and source code blocks in org-mode, proportional font in other parts]]
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (set-face-attribute 'variable-pitch nil :font "Calibri" :height 160)
+  ;; check if the fonts are available
+  (unless (find-font (font-spec :name "Ubuntu Mono"))
+    (warn "Font not found Ubuntu Mono"))
+  (unless (find-font (font-spec :name "Source Code Pro"))
+    (warn "Font not found Source Code Pro"))
+  (unless (find-font (font-spec :name "Source Sans Pro"))
+    (warn "Font not found Source Sans Pro"))
+
+  (set-face-attribute 'variable-pitch nil :font "Source Sans Pro" :height 160)
   (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height (face-attribute 'default :height))
 
   (add-hook 'text-mode-hook 'variable-pitch-mode)
@@ -1208,7 +1222,7 @@ and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github
     ;; don't ask me to confirm the unsaved change 
     (setq magit-save-repository-buffers nil)
     ;; default is 50
-    (setq git-commit-summary-max-length 80)
+    (setq git-commit-summary-max-length 100)
     :commands magit-status magit-blame
     :config
     (dolist (map (list magit-status-mode-map
@@ -1244,9 +1258,14 @@ set default eshell history folder
   (defun sd/eshell-clear-buffer ()
     "Clear eshell buffer"
     (interactive)
-    (let ((inhibit-read-only t))
-      (erase-buffer)
-      (eshell-send-input)))
+    (let ((inhibit-read-only t)
+          (current-point (- (point-max) (point))))
+      (beginning-of-line)
+      (delete-region (point-min) (point))
+      (goto-char (- (point-max) current-point))
+      ;; (eshell-send-input)
+      ))
+
 
    (add-hook 'eshell-mode-hook (lambda ()
                                 (local-set-key (kbd "C-l") 'sd/eshell-clear-buffer)))
@@ -1571,26 +1590,26 @@ When see function by =C-h f=, and visit the source code, I would like the buffer
 
 ** pdf-tools
 #+BEGIN_SRC sh
-  brew install poppler
+  #brew install poppler
 #+END_SRC
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (use-package pdf-tools
-    :ensure t
-    :init
-    ;; run to complete the installation
-    (pdf-tools-install)
-    :config
-    (add-to-list 'auto-mode-alist '("\.pdf$" . pdf-view-mode))
-    (add-hook 'pdf-outline-buffer-mode-hook #'sd/pdf-outline-map))
+  ;(use-package pdf-tools
+  ;  :ensure t
+  ;  :init
+  ;  ;; run to complete the installation
+  ;  (pdf-tools-install)
+  ;  :config
+  ;  (add-to-list 'auto-mode-alist '("\.pdf$" . pdf-view-mode))
+  ;  (add-hook 'pdf-outline-buffer-mode-hook #'sd/pdf-outline-map))
 
-  (defun sd/pdf-outline-map ()
-    "My keybindings in pdf-outline-map"
-    (interactive)
-    (define-key pdf-outline-buffer-mode-map (kbd "C-o") nil)
-    (define-key pdf-outline-buffer-mode-map (kbd "i") 'outline-toggle-children)
-    (define-key pdf-outline-buffer-mode-map (kbd "j") 'next-line)
-    (define-key pdf-outline-buffer-mode-map (kbd "k") 'previous-line))
+  ;(defun sd/pdf-outline-map ()
+  ;  "My keybindings in pdf-outline-map"
+  ;  (interactive)
+  ;  (define-key pdf-outline-buffer-mode-map (kbd "C-o") nil)
+  ;  (define-key pdf-outline-buffer-mode-map (kbd "i") 'outline-toggle-children)
+  ;  (define-key pdf-outline-buffer-mode-map (kbd "j") 'next-line)
+   ; (define-key pdf-outline-buffer-mode-map (kbd "k") 'previous-line))
 #+END_SRC
 
 ** help-mode
@@ -2515,16 +2534,16 @@ Emacs lisp auto-insert, based on the default module in =autoinsert.el=, but repl
 
 ** Org file template
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (eval-after-load 'autoinsert
-    '(define-auto-insert '("\\.\\(org\\)\\'" . "Org-mode skeleton")
-       '(
-         "title: "
-         "#+TITLE: " str (make-string 30 ?\s) > \n
-         "#+AUTHOR: Peng Li\n"
-         "#+EMAIL: seudut@gmail.com\n"
-         "#+DATE: " (shell-command-to-string "echo -n $(date +%Y-%m-%d)") > \n
-         > \n
-         > _)))
+  ;; (eval-after-load 'autoinsert
+  ;;   '(define-auto-insert '("\\.\\(org\\)\\'" . "Org-mode skeleton")
+  ;;      '(
+  ;;        "title: "
+  ;;        "#+TITLE: " str (make-string 30 ?\s) > \n
+  ;;        "#+AUTHOR: Peng Li\n"
+  ;;        "#+EMAIL: seudut@gmail.com\n"
+  ;;        "#+DATE: " (shell-command-to-string "echo -n $(date +%Y-%m-%d)") > \n
+  ;;        > \n
+  ;;        > _)))
 #+END_SRC
 
 * Markdown mode
@@ -2826,6 +2845,7 @@ config from [[http://www.kirang.in/2014/11/13/emacs-as-email-client-with-offline
     :init
     (add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode)))
 #+END_SRC
+
 * Entertainment
 ** GnuGo
 Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f95b774cb292d1169748bc0a62ba647bbd8c0652/etc/my-inits/my-inits-gnugo.el][to here]]. start at image display mode and grid mode