Disable scroll bar, tool-bar and menu-bar
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(scroll-bar-mode 0)
(tool-bar-mode 0)
(menu-bar-mode 1)
(defalias 'yes-or-no-p 'y-or-n-p)
(show-paren-mode 1)
-
-
-
+ ;; don't backupf
+ (setq make-backup-files nil)
#+END_SRC
set custom file
#+END_SRC
+Setting scroll right/left
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ; (global-set-key (kbd "C-,") 'scoll-left)
+ ; (global-set-key (kbd "C-.") 'scoll-right)
+#+END_SRC
+
* Package Management Tools
** Use-package
(if window-system
(defvar sd/fixed-font-family
(cond ((x-list-fonts "Hasklig") "Hasklig")
- ((x-list-fonts "Source Code Pro") "Source Code Pro")
+ ((x-list-fonts "Source Code Pro") "Source Code Pro:weight: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."))
(if window-system
(when sd/fixed-font-family
(set-frame-font sd/fixed-font-family)
- (set-face-attribute 'default nil :font sd/fixed-font-family :height 140)
+ (set-face-attribute 'default nil :font sd/fixed-font-family :height 130)
(set-face-font 'default sd/fixed-font-family)))
#+END_SRC
use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 charactes
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(use-package org-bullets
:ensure t
:init
(lambda ()
(org-bullets-mode t))))
+ (setq org-bullets-bullet-list '("⦿" "✪" "◉" "○" "►" "◆"))
#+END_SRC
** Worf Mode
Replace the list bullet =-=, =+=, with =•=, a litter change based [[https://github.com/howardabrams/dot-files/blob/master/emacs-org.org][here]]
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (use-package org-mode
- :init
- (font-lock-add-keywords 'org-mode
- '(("^ *\\([-+]\\) "
- (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•")))))))
+ ;; (use-package org-mode
+ ;; :init
+ ;; (font-lock-add-keywords 'org-mode
+ ;; '(("^ *\\([-+]\\) "
+ ;; (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•")))))))
#+END_SRC
*** Todo Keywords
("DONE" ("WAITING") ("CANCELLED") ("HOLD")))))
#+END_SRC
+Logging Stuff
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; log time when task done
+ ;; (setq org-log-done (quote time))
+ ;; save clocking into to LOGBOOK
+ (setq org-clock-into-drawer t)
+ ;; save state change notes and time stamp into LOGBOOK drawer
+ (setq org-log-into-drawer t)
+#+END_SRC
+
+*** Tags
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (setq org-tag-alist (quote ((:startgroup)
+ ("@office" . ?e)
+ ("@home" . ?h)
+ (:endgroup)
+ ("WAITING" . ?w)
+ ("HOLD" . ?h)
+ ("CANCELLED" . ?c))))
+
+ ;; Allow setting single tags without the menu
+ (setq org-fast-tag-selection-single-key (quote expert))
+#+END_SRC
+
*** Capture - Refile - Archive
Capture lets you quickly store notes with little interruption of your work flow.
(setq org-capture-templates
(quote (("t" "Todo" entry (file org-default-notes-file)
- "* TODO %?\n%a\n" :clock-in t :clock-resume t)
+ "* TODO %?\n:LOGBOOK:\n- Added: %U\t\tAt: %a\n:END:")
("n" "Note" entry (file org-default-notes-file)
- "* %? :NOTE:\n%a\n" :clock-in t :clock-resume t)
+ "* %? :NOTE:\n:LOGBOOK:\n- Added: %U\t\tAt: %a\n:END:")
("j" "Journal" entry (file+datetree sd/org-diary-file)
- "* %?\n" :clock-in t :clock-resume t)
+ "* %?\n:LOGBOOK:\n:END:" :clock-in t :clock-resume t)
("h" "Habit" entry (file org-default-notes-file)
- "* NEXT %?\n%a\nSCHEDULED: %(format-time-string \"%<<%Y-%m-%d %a .+1d/3d>>\")\n:PROPERTITES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n "))))
+ "* NEXT %?\n:LOGBOOK:\n%a\nSCHEDULED: %(format-time-string \"%<<%Y-%m-%d %a .+1d/3d>>\")\n:END:\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n "))))
#+END_SRC
-*** Agenda Setup
+
+**** Refiling Tasks
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (setq org-agenda-files (quote ("~/org/plan.org"
- "~/org/test.org")))
+ (setq org-refile-targets (quote (;; (nil :maxlevel . 9)
+ (org-agenda-files :maxlevel . 9))))
+
+ (setq org-refile-use-outline-path t)
+
+ (setq org-refile-allow-creating-parent-nodes (quote confirm))
#+END_SRC
-** Capture
+*** Agenda Setup
+Setting agenda files and the agenda view
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (setq org-agenda-files (quote ("~/org/gtd.org"
+ "~/org/work.org")))
+
+ ;; only show today's tasks in agenda view
+ (setq org-agenda-span 'day)
+ ;; Use current windows for agenda view
+ (setq org-agenda-window-setup 'current-window)
+
+ ;; show all feature entries for repeating tasks,
+ ;; this is already setting by default
+ (setq org-agenda-repeating-timestamp-show-all t)
+
+ ;; Show all agenda dates - even if they are empty
+ (setq org-agenda-show-all-dates t)
+#+END_SRC
** Export PDF
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)
;; (global-set-key (kbd "M-`") (lambda ()
;; (interactive)
;; (if (buffer-name))))
-
#+END_SRC
* Misc Settings