(lambda ()
(org-bullets-mode t))))
- (setq org-bullets-bullet-list '("⦿" "â\9cª" "â\9a«" "â\97\89" "â\97\8b" "â\96º" "â\97\86"))
+ (setq org-bullets-bullet-list '("⦿" "✪" "◉" "○" "►" "◆"))
#+END_SRC
** Worf Mode
(setq org-clock-into-drawer t)
;; save state change notes and time stamp into LOGBOOK drawer
(setq org-log-into-drawer t)
+ (setq org-clock-into-drawer "CLOCK")
#+END_SRC
*** Tags
(setq org-capture-templates
(quote (("t" "Todo" entry (file org-default-notes-file)
- "* TODO %^{Description}\n%?\n:LOGBOOK:\n- Added: %U\t\tAt: %a\n:END:")
+ "* TODO %?\n:LOGBOOK:\n- Added: %U\t\tAt: %a\n:END:")
("n" "Note" entry (file org-default-notes-file)
"* %? :NOTE:\n:LOGBOOK:\n- Added: %U\t\tAt: %a\n:END:")
("j" "Journal" entry (file+datetree sd/org-diary-file)
(setq org-agenda-show-all-dates t)
#+END_SRC
-
** Export PDF
Install MacTex-basic and some tex packages
#+END_SRC
+Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github.com/abo-abo/oremacs/blob/c5cafdcebc88afe9e73cc8bd40c49b70675509c7/modes/ora-nextmagit.el][here]]
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (dolist (map (list magit-status-mode-map
+ magit-log-mode-map
+ magit-diff-mode-map
+ magit-staged-section-map))
+ (define-key map "j" 'magit-section-forward)
+ (define-key map "k" 'magit-section-backward)
+ (define-key map "n" nil)
+ (define-key map "p" nil)
+ (define-key map "v" 'recenter-top-bottom)
+ (define-key map "i" 'magit-section-toggle))
+#+END_SRC
+
* IDO & SMEX
** IDO
;; (global-set-key (kbd "s-y") 'projectile-find-file)
(global-set-key (kbd "s-f") 'projectile-find-file)
- (global-set-key (kbd "s-[") 'persp-next)
- (global-set-key (kbd "s-]") 'persp-prev)
+ ;; (global-set-key (kbd "s-[") 'persp-next)
+ ;; (global-set-key (kbd "s-]") 'persp-prev)
(global-set-key (kbd "s-`") 'mode-line-other-buffer)
Quickly start eshll in split window below, refer [[http://www.howardism.org/Technical/Emacs/eshell-fun.html][eshell-here]]
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(defun eshell-x ()
(insert "exit")
(eshell-send-input)
(insert (concat "ls"))
(eshell-send-input)))))
- ;; (global-set-key (kbd "M-`") (lambda ()
- ;; (interactive)
- ;; (if (buffer-name))))
+ (global-unset-key (kbd "M-`"))
+ (global-set-key (kbd "M-`") #'eshell-here)
+#+END_SRC
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (defun sd/window-has-eshell ()
+ "Check if current windows list has a eshell buffer, and return the window"
+ (interactive)
+ (let ((ret nil))
+ (dolist (window (window-list))
+ (let ((modename (with-current-buffer (window-buffer window)
+ major-mode)))
+ (if (equal modename 'eshell-mode)
+ (setq ret window))))
+ ret))
+
+ (defun sd/toggle-eshell-here ()
+ "Toggle a eshell buffer vertically"
+ (interactive)
+ (if (sd/window-has-eshell)
+ (if (equal major-mode 'eshell-mode)
+ (delete-window)
+ (select-window (sd/window-has-eshell)))
+ (progn
+ (split-window-vertically (- (/ (window-total-height) 3)))
+ (other-window 1)
+ (unless (get-buffer eshell-buffer-name)
+ (eshell))
+ (switch-to-buffer eshell-buffer-name)
+ (goto-char (point-max))
+ (eshell-kill-input)
+ (message "wowo is %s" default-directory)
+ (message "wowo is %s" (file-name-directory (buffer-name)))
+ (insert (format "cd %s" default-directory))
+ (eshell-send-input))))
+
+ (global-unset-key (kbd "M-`"))
+ (global-set-key (kbd "M-`") 'sd/toggle-eshell-here)
#+END_SRC
* Misc Settings
** [[https://github.com/abo-abo/hydra][Hydra]]
-
+*** hydra install
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(use-package hydra
:ensure t)
-
+ ;; disable new line in minibuffer when hint hydra
+ (setq hydra-lv nil)
#+END_SRC
*** Font Zoom
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (defhydra sd/font-zoom (global-map "<f2>")
- (defhydra sd/font-zoom (global-map "<f2>")
"zoom"
("g" text-scale-increase "in")
("l" text-scale-decrease "out"))
-
#+END_SRC
*** Windmove Splitter
*** hydra-window
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(winner-mode 1)
(defhydra sd/hydra-window (:color red :columns nil)
"window"
- ("h" windmove-left nil)
- ("j" windmove-down nil)
- ("k" windmove-up nil)
- ("l" windmove-right nil)
+ ("h" windmove-left nil :exit t)
+ ("j" windmove-down nil :exit t)
+ ("k" windmove-up nil :exit t)
+ ("l" windmove-right nil :exit t)
("H" hydra-move-splitter-left nil)
("J" hydra-move-splitter-down nil)
("K" hydra-move-splitter-up nil)
(interactive)
(split-window-right)
(windmove-right))
- "vert")
+ "vert" :exit t)
("x" (lambda ()
(interactive)
(split-window-below)
(windmove-down))
- "horz")
+ "horz" :exit t)
("o" delete-other-windows "one" :exit t)
("a" ace-window "ace")
("s" ace-swap-window "swap")
("d" ace-delete-window "ace-one" :exit t)
("i" ace-maximize-window "ace-one" :exit t)
("b" ido-switch-buffer "buf")
- ("m" headlong-bookmark-jump "bmk")
+ ;; ("m" headlong-bookmark-jump "bmk")
("q" nil "cancel")
("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo")
("r" (progn (winner-redo) (setq this-command 'winner-redo)) "redo")
("f" nil))
- (global-unset-key (kbd "M-o"))
- (global-set-key (kbd "M-o") 'sd/hydra-window/body)
+ (global-unset-key (kbd "C-o"))
+ (global-set-key (kbd "C-o") 'sd/hydra-window/body)
(defun triggle-windows-max-size ()
(interactive)
We can use [[https://www.gnu.org/software/emms/quickstart.html][Emms]] for multimedia in Emacs
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(use-package emms
:ensure t
:init
- (setq emms-source-file-default-directory "~/Music/emms/")
+ (setq emms-source-file-default-directory "~/Music/")
:config
(emms-standard)
(emms-default-players)
projects / dotfiles.git / blobdiff