(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
;; (require 'org-indent)
;; (set-face-attribute 'org-indent nil :inherit '(org-hide fixed-pitch)))
- (with-eval-after-load "org"
- (let ((default-font-size (if (display-graphic-p)
- (- (face-attribute 'default :height) 20)
- (face-attribute 'default :height))))
- (set-face-attribute 'org-code nil :height default-font-size)
- (set-face-attribute 'org-block nil :height default-font-size)
- (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)
- (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)))
+ ;; (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
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
(let ((root (projectile-project-root)))
(with-current-buffer buffer
(cd root))))))
+
+
+
+ ;; https://emacs.stackexchange.com/questions/16497/how-to-exclude-files-from-projectile
+ (setq projectile-enable-caching t)
+ (if (executable-find "rg")
+ (progn
+ (defconst modi/rg-arguments
+ `("--line-number" ; line numbers
+ "--smart-case"
+ "--follow" ; follow symlinks
+ "--mmap") ; apply memory map optimization when possible
+ "Default rg arguments used in the functions in `projectile' package.")
+
+ (defun modi/advice-projectile-use-rg ()
+ "Always use `rg' for getting a list of all files in the project."
+ (mapconcat 'identity
+ (append '("\\rg") ; used unaliased version of `rg': \rg
+ modi/rg-arguments
+ '("--null" ; output null separated results,
+ "--files")) ; get file names matching the regex '' (all files)
+ " "))
+
+ (advice-add 'projectile-get-ext-command :override #'modi/advice-projectile-use-rg))
+ (message "rg is not found"))
#+END_SRC
*** project config =super= keybindings