(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
** 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 ()
+ (add-hook 'eshell-mode-hook (lambda ()
(local-set-key (kbd "C-l") 'sd/eshell-clear-buffer)))
#+END_SRC
#+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