(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
;;supress the redefined warning at startup
(setq ad-redefinition-action 'accept)
+
+ (setq scroll-step 1)
+ (setq scroll-margin 5)
+
+ (fringe-mode '(0 . 0))
#+END_SRC
*** Custom file
(add-hook 'prog-mode-hook 'hl-line-mode)
(add-hook 'text-mode-hook 'hl-line-mode)
(add-hook 'dired-mode-hook 'hl-line-mode)
+
+ ;; only highlight selected window
+ (setq hl-line-sticky-flag nil)
+
+ (setq-default fill-column 120)
+ (add-hook 'text-mode-hook 'turn-on-auto-fill)
#+END_SRC
** Smart Comments
(interactive) (emacs-step-font-size -1))
#+END_SRC
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- ;; Setup font size based on emacs-font-size-pair
- ;; (if window-system
- ;; (set-font emacs-english-font emacs-cjk-font '(13 . 16)))
-
-
- ;; (global-set-key (kbd "s-=") 'increase-emacs-font-size)
- ;; (global-set-key (kbd "s--") 'decrease-emacs-font-size)
-
- ;; set different fonts (chinese) size for org-mode.
- (defun sd/org-buffer-font ()
- "My font setting for org-mode"
- (interactive)
- (setq buffer-face-mode-face '(:family "Source Sans Code" :height 160))
- (buffer-face-mode))
-
- ;; (add-hook 'org-mode-hook 'sd/org-buffer-font)
-#+END_SRC
** Color Theme
#+END_SRC
+search text theme
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (set-face-attribute 'lazy-highlight nil :background "yellow" :foreground "black" :weight 'bold)
+#+END_SRC
+
** Rainbow-delimiter
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(irony-mode . "")
(page-break-lines-mode . "")
(yas-minor-mode . "y")
+ ;; default jj
+ (evil-escape-mode . "")
;; Major modes
(lisp-interaction-mode . "λ")
(hi-lock-mode . "")
))
(center (list (powerline-raw " " face1)
(funcall separator-left face1 face2)
+ (powerline-raw (when (and (boundp 'evil-mode) evil-mode) evil-mode-line-tag) face2)
(when (and (boundp 'erc-track-minor-mode) erc-track-minor-mode)
(powerline-raw erc-modified-channels-object face2 'l))
(powerline-major-mode face2 'l)
:config
(ido-mode 1)
(ido-everywhere 1)
- (add-to-list 'completion-ignored-extensions ".pyc"))
+ (add-to-list 'completion-ignored-extensions ".pyc")
+
+
+ (define-key ido-buffer-completion-map (kbd "C-w") #'ido-delete-backward-word-updir)
+ (define-key ido-file-completion-map (kbd "C-w") #'ido-delete-backward-word-updir)
+ (define-key ido-file-dir-completion-map (kbd "C-w") #'ido-delete-backward-updir)
+ ;; (define-key ido-file-dir-completion-map (kbd "C-i") #'ido-copy-current-word)
+
+ ;; (dolist (map (list
+ ;; ido-buffer-completion-map
+ ;; ido-file-completion-map
+ ;; ido-file-dir-completion-map
+ ;; ido-common-completion-map))
+ ;; (define-key map (kbd "C-w") #'ido-delete-backward-word-updir)
+ ;; ;; (define-key map (kbd "C-i") #'ido-copy-current-file-name)
+ ;; )
+ )
(icomplete-mode t)
#+END_SRC
(use-package org-bullets
:ensure t
:init
- (add-hook 'org-mode-hook
- (lambda ()
- (org-bullets-mode t))))
+ (add-hook 'org-mode-hook (apply-partially #'org-bullets-mode t)))
(setq org-bullets-bullet-list '("⦿" "✪" "◉" "○" "►" "◆"))
*** Agenda Setup
Setting agenda files and the agenda view
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (setq org-agenda-files (quote ("~/org/gtd.org"
- "~/org/work.org")))
+ (setq org-agenda-files (quote ("~/org/gtd.org")))
;; only show today's tasks in agenda view
;; (setq org-agenda-span 'day)
(setq org-agenda-show-all-dates t)
#+END_SRC
+** Org mobile
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (with-eval-after-load "org"
+ (require 'org-mobile)
+ ;; Set to the location of your Org files on your local system
+ ;; (setq org-directory "~/org")
+ ;; Set to the name of the file where new notes will be stored
+ (setq org-mobile-inbox-for-pull "~/org/flagged.org")
+ ;; Set to <your Dropbox root directory>/MobileOrg.
+ (setq org-mobile-directory "~/Dropbox/Apps/MobileOrg"))
+#+END_SRC
+
** Export PDF
Install MacTex-basic [[http://www.tug.org/mactex/morepackages.html][MacTex-basic]] and some tex packages
#+BEGIN_SRC sh
*** 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)
+ (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)
+ ;; (add-hook 'text-mode-hook 'variable-pitch-mode)
;; Install Ubuntu Mono fonts and apply it in org-table to align Chinese fonts
(with-eval-after-load "org"
(mapc (lambda (face)
(set-face-attribute face nil :inherit 'fixed-pitch))
- (list 'org-code 'org-block 'org-block-background))
+ (list 'org-code 'org-block 'org-block-background 'org-block-begin-line 'org-block-end-line))
(set-face-attribute 'org-table nil :family "Ubuntu Mono" :height 140)
+ (set-face-attribute 'org-formula nil :family "Ubuntu Mono" :height 140)
;; org-special-keyword inherited from font-lock-keywork originally; as org is changed to variable-pitch, it cause
;; the font in special-keywords are not monospace
(set-face-attribute 'org-special-keyword nil :inherit '(font-lock-keyword-face fixed-pitch))
*** Org-head face
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (with-eval-after-load "org"
- (let* ((base-height (face-attribute 'variable-pitch :height))
- (base-font-color (face-foreground 'default nil 'default)))
- (set-face-attribute 'org-document-title nil :weight 'bold :height (+ 60 base-height))
- (set-face-attribute 'org-level-1 nil :weight 'bold :height (+ 40 base-height))
- (set-face-attribute 'org-level-2 nil :weight 'bold :height (+ 30 base-height))
- (set-face-attribute 'org-level-3 nil :weight 'bold :height (+ 20 base-height))
- (set-face-attribute 'org-level-4 nil :weight 'bold :height (+ 10 base-height))
- (set-face-attribute 'org-level-5 nil :weight 'bold)
- (set-face-attribute 'org-level-6 nil :weight 'bold)
- (set-face-attribute 'org-level-7 nil :weight 'bold)
- (set-face-attribute 'org-level-8 nil :weight 'bold)))
+ ;; (with-eval-after-load "org"
+ ;; (let* ((base-height (face-attribute 'variable-pitch :height))
+ ;; (base-font-color (face-foreground 'default nil 'default)))
+ ;; (set-face-attribute 'org-document-title nil :weight 'bold :height (+ 60 base-height))
+ ;; (set-face-attribute 'org-level-1 nil :weight 'bold :height (+ 40 base-height))
+ ;; (set-face-attribute 'org-level-2 nil :weight 'bold :height (+ 30 base-height))
+ ;; (set-face-attribute 'org-level-3 nil :weight 'bold :height (+ 20 base-height))
+ ;; (set-face-attribute 'org-level-4 nil :weight 'bold :height (+ 10 base-height))
+ ;; (set-face-attribute 'org-level-5 nil :weight 'bold)
+ ;; (set-face-attribute 'org-level-6 nil :weight 'bold)
+ ;; (set-face-attribute 'org-level-7 nil :weight 'bold)
+ ;; (set-face-attribute 'org-level-8 nil :weight 'bold)))
#+END_SRC
** Org Blog
** Eshell erase buffer
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (defun sd/eshell-clear-buffer ()
- "Clear eshell buffer"
- (interactive)
- (let ((inhibit-read-only t))
- (erase-buffer)
- (eshell-send-input)))
+ (require 'utilities)
- (add-hook 'eshell-mode-hook (lambda ()
- (local-set-key (kbd "C-l") 'sd/eshell-clear-buffer)))
+ ;; (add-hook 'eshell-mode-hook (lambda ()
+ ;; (local-set-key (kbd "C-l") 'sd/eshell-clear-buffer)))
+ (add-hook 'eshell-mode-hook (apply-partially #'local-set-key (kbd "C-l") 'sd/eshell-clear-buffer))
+ ;; (add-hook 'eshell-mode-map (lambda () (interactive)
+ ;; (define-key eshell-mode-map (kbd "<tab>") 'completion-at-point)))
#+END_SRC
** Toggle Eshell
** Which key
[[https://github.com/justbur/emacs-which-key][which-key]] show the key bindings
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (use-package which-key
- :ensure t
- :config
- (which-key-mode))
+ ;; (use-package which-key
+ ;; :ensure t
+ ;; :config
+ ;; (which-key-mode))
#+END_SRC
** View only for some directory
** 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
(use-package lispy
:ensure t
:init
+ (setq lispy-delete-backward-recenter 0)
(with-eval-after-load "lispy"
(define-key lispy-mode-map (kbd "M-o") nil)
(define-key lispy-mode-map (kbd "g") 'special-lispy-goto-local)
(define-key lispy-mode-map (kbd "G") 'special-lispy-goto)
(define-key lispy-mode-map (kbd "M-m") 'back-to-indentation))
:config
- (add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1))))
-
-
+ (add-hook 'emacs-lisp-mode-hook (apply-partially #'lispy-mode 1)))
#+END_SRC
** Perl
(setq cperl-tab-always-indent t)
;(setq cperl-brace-offset 0)
- (add-hook 'cperl-mode-hook
- '(lambda ()
- (cperl-set-style "C++")))
+ (add-hook 'cperl-mode-hook (apply-partially #'cperl-set-style "C++"))
(defalias 'perldoc 'cperl-perldoc)
#+END_SRC
#+END_SRC
-*** Run Perl
-Change the compile-command to set the default command run when call =compile=
-Mapping =s-r= (on Mac, it's =Command + R= to run the script. Here =current-prefix-arg= is set
-to call =compilation= interactively.
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (defun my-perl-hook ()
- (progn
- (setq-local compilation-read-command nil)
- (set (make-local-variable 'compile-command)
- (concat "/usr/bin/perl "
- (if buffer-file-name
- (shell-quote-argument buffer-file-name))))
- (local-set-key (kbd "s-r")
- (lambda ()
- (interactive)
- ; (setq current-prefix-arg '(4)) ; C-u
- (call-interactively 'compile)))))
-
- (add-hook 'cperl-mode-hook 'my-perl-hook)
-#+END_SRC
-
** C & C++
C/C++ ide tools
1. completion (file name, function name, variable name)
#+END_SRC
#+BEGIN_SRC sh
- cmake -DLIBCLANG_LIBRARY\=/usr/local/Cellar/llvm/3.6.2/lib/libclang.dylib \
- -DLIBCLANG_INCLUDE_DIR=/usr/local/Cellar/llvm/3.6.2/include \
- -DCMAKE_INSTALL_PREFIX\=/Users/peli3/.emacs.d/irony/ \
- /Users/peli3/.emacs.d/elpa/irony-20160713.1245/server && cmake --build . --use-stderr --config Release --target install
+ cmake -DLIBCLANG_LIBRARY\=/usr/local/Cellar/llvm/4.0.1/lib/libclang.dylib \
+ -DLIBCLANG_INCLUDE_DIR=/usr/local/Cellar/llvm/4.0.1/include \
+ -DCMAKE_INSTALL_PREFIX\=/Users/peng/.emacs.d/irony/ \
+ /Users/peng/.emacs.d/elpa/irony-20160713.1245/server && cmake --build . --use-stderr --config Release --target install
#+END_SRC
**** irony config
(use-package company-c-headers
:ensure t
:config
- (add-to-list 'company-c-headers-path-system "/usr/include/c++/4.2.1/"))
+ (add-to-list 'company-c-headers-path-system "/usr/include/c++/4.2.1/")
+ (add-to-list 'company-c-headers-path-system "/usr/local/include/"))
;; (with-eval-after-load 'company
;; (add-to-list 'company-backends 'company-irony)
*** google C style
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (use-package google-c-style
- :ensure t
- :config
- (add-hook 'c-mode-hook 'google-set-c-style)
- (add-hook 'c++-mode-hook 'google-set-c-style))
+ ;; (use-package google-c-style
+ ;; :ensure t
+ ;; :config
+ ;; (add-hook 'c-mode-hook 'google-set-c-style)
+ ;; (add-hook 'c++-mode-hook 'google-set-c-style))
+#+END_SRC
+
+*** Compile and Run the C file
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (defun my-cpp-hook ()
+ (let* ((current-file-name)
+ (out-file-name))
+ (when buffer-file-name
+ (setq current-file-name (shell-quote-argument buffer-file-name))
+ (setq out-file-name (shell-quote-argument (concat (file-name-sans-extension buffer-file-name) ".out"))))
+ (setq-local compilation-read-command t)
+ (set (make-local-variable 'compile-command)
+ (concat "g++ -Wall "
+ current-file-name
+ " -o "
+ out-file-name
+ " && "
+ out-file-name
+ ))
+ (local-set-key (kbd "s-r") 'compile)))
+
+ (add-hook 'c-mode-hook 'my-cpp-hook)
+ (add-hook 'c++-mode-hook 'my-cpp-hook)
#+END_SRC
** Lua
(setq compilation-environment (cons "LC_ALL=C" compilation-environment))
(setq compilation-auto-jump-to-first-error t)
(setq compilation-auto-jump-to-next t)
- (setq compilation-scroll-output 'first-error))
+ (setq compilation-scroll-output 'first-error)
+ ;; this will save all the modified buffers before compile
+ (setq compilation-ask-about-save nil))
;; super-r to compile
(with-eval-after-load "compile"
(define-key compilation-mode-map (kbd "p") 'compilation-previous-error)
(define-key compilation-mode-map (kbd "r") #'recompile))
+
+ ;; (loop for (mode . program) in '(
+ ;; (lua-mode-hook . "lua")
+ ;; (perl-mode-hook . "perl")
+ ;; (python-mode-hook . "python")
+ ;; (shell-mode-hook . "sh"))
+ ;; do (add-hook mode `(lambda ()
+ ;; (unless (or (file-exists-p "makefile")
+ ;; (file-exists-p "Makefile"))
+ ;; (set (make-local-variable 'compile-command)
+ ;; (concat ,program
+ ;; " "
+ ;; (if buffer-file-name
+ ;; (shell-quote-argument buffer-file-name))))))))
+
+ ;; here note dynamic binding the value of vv, otherwise it will resport error when run the hook.
+ ;; https://emacs.stackexchange.com/questions/10394/scope-in-lambda
+ (dolist (vv '(
+ (cperl-mode-hook . "perl")
+ (lua-mode-hook . "lua")
+ (python-mode-hook . "python")
+ (shell-mode-hook . "sh")))
+ (add-hook (car vv) `(lambda ()
+ (unless (or (file-exists-p "makefile")
+ (file-exists-p "Makefile"))
+ (set (make-local-variable 'compile-command)
+ (concat (cdr ',vv)
+ " "
+ (if buffer-file-name
+ (shell-quote-argument buffer-file-name))))))))
+
(global-set-key (kbd "s-r") 'compile)
#+END_SRC
** 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
;; (with-eval-after-load 'gnus-summary-mode
;; (define-key gnus-summary-mode-map (kbd "C-o") 'sd/hydra-window/body))
- (add-hook 'gnus-summary-mode-hook (lambda ()
- (define-key gnus-summary-mode-map (kbd "C-o") nil)))
+ ;; (add-hook 'gnus-summary-mode-hook (lambda ()
+ ;; (define-key gnus-summary-mode-map (kbd "C-o") nil)))
+ ;(add-hook 'gnus-summary-mode-hook (apply-partially #'define-key gnus-summary-mode-map (kbd "C-o") nil))
#+END_SRC
: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
(add-to-list 'projectile-globally-ignored-files "GTAGS")
(projectile-global-mode t))
- ;; (use-package persp-projectile
- ;; :ensure t
- ;; :config
- ;; (persp-mode)
- ;; :bind
- ;; ;; (:map projectile-mode-map
- ;; ;; ("s-t" . projectile-persp-switch-project))
- ;; )
-
;; change default-directory of scratch buffer to projectile-project-root
(defun sd/project-switch-action ()
"Change default-directory of scratch buffer to current projectile-project-root directory"
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(winner-mode 1)
- (defun sd/delete-current-window ()
- (interactive)
- (if (> (length (window-list)) 1)
- (delete-window)
- (message "Only one Windows now!")))
-
- (defun sd/toggle-max-windows ()
- "Set maximize current if there are multiple windows, if only
- one window, window undo"
- (interactive)
- (if (equal (length (window-list)) 1)
- (winner-undo)
- (delete-other-windows)))
-
+ (require 'utilities)
(defhydra sd/hydra-window (:color red :columns nil)
"C-o"
;; windows switch
Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba8281255a594/setup/.emacs.d/loader-init/_90-kill-region-or-backward-kill-word.el][kill-region-or-backward-kill-word]]
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (defun sd/kill-region-or-backward-kill-word ()
- (interactive)
- (if (region-active-p)
- (kill-region (point) (mark))
- (backward-kill-word 1)))
-
+ (require 'utilities)
(global-set-key (kbd "C-w") 'sd/kill-region-or-backward-kill-word)
#+END_SRC
(define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab)
(define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab))
#+END_SRC
-
-* TODO todolist
-** Rucket
-** player video on iphone for
-** SICP
-** music searcher
-search music on some music web site
-
+* Evil Mode
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (org-babel-load-file "~/.emacs.d/emacs-evil.org")
+#+END_SRC
-** Need separate the Key-bindings and package-initialization
* Note
** Check if emacs is in terminal of graphic mode
Use =display-graphic-p= instead of =window-system=
blog with modify list
draw one line top of the windows
+* test
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; test local mode line
+ ;; (add-to-list 'load-path "~/.emacs.d/elisp")
+ ;; (require 'my-mode-line)
+#+END_SRC