(when (display-graphic-p)
(fringe-mode '(0 . 0)))
+ ;; (setq-default indicate-empty-lines t)
+ ;; (setq-default indicate-abuffer-boundaries 'right)
#+END_SRC
*** Custom file
(setq large-file-warning-threshold nil)
#+END_SRC
+*** Xterm mode
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (unless (display-graphic-p)
+ (xterm-mouse-mode))
+#+END_SRC
* Package Management Tools
** Use-package
Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs packages
(if window-system
(defvar sd/fixed-font-family
(cond ((x-list-fonts "Hasklig") "Hasklig")
- ((x-list-fonts "Source Code Pro") "Source Code Pro:weight") ;; weigth=light
+ ((x-list-fonts "Source Code Pro") "Source Code Pro:weight=light") ;; weigth=light
((x-list-fonts "Anonymous Pro") "Anonymous Pro")
((x-list-fonts "M+ 1mn") "M+ 1mn"))
"The fixed width font based on what is installed, `nil' if not defined."))
*** 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
- (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"))
+ (when (display-graphic-p)
+ (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)
;; 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 '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))
- ;; same as above
- (set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
+ ;; (with-eval-after-load "org"
+ ;; (mapc (lambda (face)
+ ;; (set-face-attribute face nil :inherit 'fixed-pitch))
+ ;; (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))
+ ;; ;; same as above
+ ;; (set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
+ ;; (set-face-attribute 'org-block-begin-line nil :inherit 'shadow :slant 'italic :foreground nil)
+ ;; (set-face-attribute 'org-block-end-line nil :inherit 'shadow :slant 'italic :foreground nil)
- ;; fix indent broken by variable-pitch-mode
- ;; http://emacs.stackexchange.com/questions/26864/variable-pitch-face-breaking-indentation-in-org-mode
- (require 'org-indent)
- (set-face-attribute 'org-indent nil :inherit '(org-hide fixed-pitch)))
+ ;; ;; fix indent broken by variable-pitch-mode
+ ;; ;; http://emacs.stackexchange.com/questions/26864/variable-pitch-face-breaking-indentation-in-org-mode
+ ;; (require 'org-indent)
+ ;; (set-face-attribute 'org-indent nil :inherit '(org-hide fixed-pitch)))
+
+ ;; (with-eval-after-load "org"
+ ;; (let ((default-font-size (- (face-attribute 'default :height) (if (display-graphic-p) 20 0))))
+ ;; (set-face-attribute 'org-code nil :height default-font-size)
+ ;; (set-face-attribute 'org-block nil :height default-font-size)
+ ;; (set-face-attribute 'org-block-begin-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size)
+ ;; (set-face-attribute 'org-block-end-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size)
+ ;; (when (find-font (font-spec :name "Ubuntu Mono"))
+ ;; (set-face-attribute 'org-table nil :family "Ubutu Mono" :height default-font-size)
+ ;; (set-face-attribute 'org-formula nil :family "Ubutu Mono" :height default-font-size))))
+
+ (add-hook 'org-mode-hook
+ (lambda ()
+ (let ((default-font-size (- (face-attribute 'default :height) (if (display-graphic-p) 20 0))))
+ (set-face-attribute 'org-code nil :height default-font-size)
+ (set-face-attribute 'org-block nil :height default-font-size)
+ (set-face-attribute 'org-block-begin-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size)
+ (set-face-attribute 'org-block-end-line nil :background nil :foreground nil :inherit 'shadow :slant 'italic :height default-font-size)
+ (when (find-font (font-spec :name "Ubuntu Mono"))
+ (set-face-attribute 'org-table nil :family "Ubutu Mono" :height default-font-size)
+ (set-face-attribute 'org-formula nil :family "Ubutu Mono" :height default-font-size)))))
#+END_SRC
Also correct the face of =org-meta-line= in =org-table=
** Smart Parens
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (use-package smartparens
- :ensure t
- :config
- (progn
- (require 'smartparens-config)
- (add-hook 'prog-mode-hook 'smartparens-mode)))
+ ;; (use-package smartparens
+ ;; :ensure t
+ ;; :config
+ ;; (progn
+ ;; (require 'smartparens-config)
+ ;; (add-hook 'prog-mode-hook 'smartparens-mode)))
#+END_SRC
** Ace-Windows
(dired-up-directory)
(kill-buffer old)))
#+END_SRC
+
** Dired bindings
=C-o= is defined as a global key for window operation, here unset it in dired mode
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
** Color identiifiers mode
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(use-package color-identifiers-mode
- :ensure t)
-#+END_SRC
-** Font lock face
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (set-face-attribute 'font-lock-keyword-face nil :weight 'bold)
- (set-face-attribute 'font-lock-builtin-face nil :weight 'bold)
-#+END_SRC
-** Emacs Lisp
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (use-package color-identifiers-mode
:ensure t
:init
- (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode)
-
+ (dolist (mode '(emacs-lisp-mode-hook
+ c-mode-hook
+ c++-mode-hook))
+ (add-hook mode #'color-identifiers-mode))
:diminish color-identifiers-mode)
(global-prettify-symbols-mode t)
#+END_SRC
+** Font lock face
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (set-face-attribute 'font-lock-keyword-face nil :foreground "#F92672" :weight 'bold)
+ (set-face-attribute 'font-lock-builtin-face nil :weight 'bold)
+ (set-face-attribute 'font-lock-function-name-face nil :foreground "#A6E22E" :weight 'normal :slant 'normal)
+ (set-face-attribute 'font-lock-variable-name-face nil :foreground "#00FF00")
+
+ (font-lock-add-keywords 'c-mode
+ ;; highlight %s \n
+ '(("\\([%\\][a-zA-Z]\\)" (1 font-lock-keyword-face prepend))
+ ("[^[:alpha:]]\\([[:digit:]]*\\)[^[:alpha:]]" (1 font-lock-constant-face append))
+ ;; hex number
+ ("[^[:alpha:]]\\(0[x\\|X][0-9a-fA-F]*\\)[^[:alpha:]]" (1 font-lock-constant-face append))
+ ;; hightlight the function call
+ ("\\s\"?\\(\\(\\sw\\|\\s_\\)+\\(<-\\)?\\)\\s\"?*\\s-*(" (1 font-lock-function-name-face))) t)
+#+END_SRC
+
+** Emacs Lisp
In Lisp Mode, =M-o= is defined, but I use this for global hydra window. So here disable this key
bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questions/298048/how-to-handle-conflicting-keybindings][here]]
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(font-lock-add-keywords 'cperl-mode
'(("\\(say\\)" . cperl-nonoverridable-face)
("\\([0-9.]\\)*" . font-lock-constant-face)
- ("\".*\\(\\\n\\).*\"" . font-lock-constant-face)
- ("\n" . font-lock-constant-face)
+ ("\".*\\(\\\n\\).*\"" 1 font-lock-constant-face prepend)
+ ("\n" 0 font-lock-constant-face prepend)
+ ;; ("[%\\][[:alpha:]]" . font-lock-constant-face)
("\\(^#!.*\\)$" . cperl-nonoverridable-face)))
#+END_SRC
3. tags jump
*** c/c++ style
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (setq c-default-style "stroustrup"
- c-basic-offset 4)
+ ;; (setq c-default-style "stroustrup"
+ ;; c-basic-offset 4)
;; "C-M-j" is my global binding for avy goto line below
;; disable it in c mode
(add-to-list 'auto-mode-alist '("\\.mm\\'" . objc-mode))
(setq c-hungry-delete-key t)
+
+
+ ;; Looks `c-hanging-braces-alist' doesn't work as expected when `electric-pair-mode' is enabled.
+ (electric-pair-mode 1)
+
+ (defconst sd/c-style
+ '("stroustrup"
+ (c-tab-always-indent . t)
+ (c-basic-offset . 4)
+ (c-hanging-braces-alist . ((substatement-open before)
+ (statement-block-intro before)))
+ (c-hanging-colons-alist . ())
+ (c-echo-syntactic-information-p . nil)
+ (c-hanging-semi&comma-criteria . ()))
+ "My C programming style")
+
+ (c-add-style "sd-c-style" sd/c-style)
+
+ (setq c-default-style "sd-c-style")
+
+ (add-hook 'c-mode-hook '(lambda ()
+ (c-toggle-auto-newline 1)
+ (c-set-style "sd-c-style")))
+
+ ;; (advice-add 'c-electric-brace :after (lambda (arg) "Add new line after insert {}" (newline-and-indent)))
#+END_SRC
*** irony
("\\.markdown\\'" . markdown-mode))
:init (setq markdown-command "multimarkdown"))
- (add-hook 'gfm-mode-hook (lambda ()
- (set-face-attribute 'markdown-inline-code-face nil :inherit 'fixed-pitch)
- (set-face-attribute 'markdown-pre-face nil :inherit 'fixed-pitch)))
- (with-eval-after-load "gfm-mode"
- (set-face-attribute 'markdown-inline-code-face nil :inherit 'fixed-pitch)
- (set-face-attribute 'markdown-pre-face nil :inherit 'fixed-pitch))
+ ;; (add-hook 'gfm-mode-hook (lambda ()
+ ;; (set-face-attribute 'markdown-inline-code-face nil :inherit 'fixed-pitch)
+ ;; (set-face-attribute 'markdown-pre-face nil :inherit 'fixed-pitch)))
+ ;; (with-eval-after-load "gfm-mode"
+ ;; (set-face-attribute 'markdown-inline-code-face nil :inherit 'fixed-pitch)
+ ;; (set-face-attribute 'markdown-pre-face nil :inherit 'fixed-pitch))
#+END_SRC
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
draw one line top of the windows
* test
+This is a test.
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
;; test local mode line
;; (add-to-list 'load-path "~/.emacs.d/elisp")