#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(scroll-bar-mode 0)
(tool-bar-mode 0)
- (menu-bar-mode 1)
+
+ (if window-system
+ (menu-bar-mode 1)
+ (menu-bar-mode 0))
;; (setq debug-on-error t)
(setq inhibit-startup-message t)
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
;; Setup font size based on emacs-font-size-pair
- (set-font emacs-english-font emacs-cjk-font '(13 . 16))
+ (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)
+ ;; (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 "cjk-misc" :font "STHeiti" :height 160))
+ (buffer-face-mode))
+
+ ;; (add-hook 'org-mode-hook 'sd/org-buffer-font)
#+END_SRC
** Color Theme
(setq org-startup-with-inline-images t)
;; latex preview
(setq org-startup-with-latex-preview t)
- (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.2)))
+ (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.2))
+ (require 'org-habit)
+ (add-to-list 'org-modules 'org-habit)
+ (setq org-habit-graph-column 50))
(el-get-bundle hasu/emacs-ob-racket
:features ob-racket)
"~/org/work.org")))
;; only show today's tasks in agenda view
- (setq org-agenda-span 'day)
+ ;; (setq org-agenda-span 'day)
;; Use current windows for agenda view
- (setq org-agenda-window-setup 'current-window)
+ ;; (setq org-agenda-window-setup 'current-window)
;; show all feature entries for repeating tasks,
;; this is already setting by default
#+END_SRC
** Line Number
-
Enable linum mode on programming modes
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(add-hook 'prog-mode-hook 'linum-mode)
- ;; (add-hook 'prog-mode-hook (lambda ()
- ;; (setq-default indicate-empty-lines t)))
#+END_SRC
Fix the font size of line number
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(defun fix-linum-size ()
- (interactive)
- (set-face-attribute 'linum nil :height 110))
+ (interactive)
+ (set-face-attribute 'linum nil :height 110))
(add-hook 'linum-mode-hook 'fix-linum-size)
-
#+END_SRC
I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like the =set relativenumber= on =vim=
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(use-package linum-relative
:ensure t
#+END_SRC
** Save File Position
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(require 'saveplace)
(setq-default save-place t)
(setq save-place-forget-unreadable-files t)
(setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)")
-
#+END_SRC
** Multi-term
(unless (equal major-mode 'Info-mode)
(unless (> (length (window-list)) 1)
(split-window-right))
- (other-window 1)
- ;; (info)
- ))
-
- ;; (global-set-key (kbd "C-h i") 'sd/info-mode)
+ (other-window 1)))
;; open Info buffer in other window instead of current window
(defadvice info (before my-info (&optional file buf) activate)
** Demo It
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- ;; (el-get-bundle howardabrams/demo-it)
-
(use-package org-tree-slide
:ensure t)
-
- ;; (use-package yasnippet
- ;; :ensure t)
#+END_SRC
** Presentation
(:map projectile-mode-map
("s-t" . projectile-persp-switch-project)))
- ;; (defun sd/change-default-directory (buffer dir)
- ;; "change defafult directory of buffer to dir"
- ;; (with-current-buffer buffer
- ;; (cd dir)))
-
;; 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"
(buffer-name buffer))
(let ((root (projectile-project-root)))
(with-current-buffer buffer
- (cd root)))
- ;; (sd/change-default-directory buffer (projectile-project-root))
- )))
+ (cd root))))))
#+END_SRC
*** project config =super= keybindings
*** TODO make expand-region hydra work with lispy selected
** =C-w= delete backward word
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)
#+END_SRC
+
* TODO todolist
** rucket
** player video on iphone for