added initial org-mode config and default input-method

riffm · Jul 24, 2014 · ba881cb · ba881cb
1 parent 7031ec7
commit ba881cb
Show file tree

Hide file tree

Showing 6 changed files with 80 additions and 1 deletion.
diff --git a/.emacs.d/config.el b/.emacs.d/config.el
@@ -220,3 +220,30 @@
 
 (eval-after-load 'flycheck
   '(add-hook 'flycheck-mode-hook #'flycheck-haskell-setup))
+
+(setq org-log-done 'time)
+(define-key mode-specific-map [?a] 'org-agenda)
+(custom-set-variables
+ '(org-agenda-files (quote ("~/Dropbox/tasks.org")))
+ '(org-default-notes-file "~/Dropbox/notes.org")
+ '(org-agenda-show-all-dates t)
+ '(org-agenda-start-on-weekday nil)
+ '(org-deadline-warning-days 2)
+ '(org-agenda-show-all-dates t)
+ '(org-agenda-skip-deadline-if-done t)
+      '(org-agenda-skip-scheduled-if-done t))
+
+(custom-set-variables
+ '(org-todo-keywords
+   '((sequence "TODO(t)" "STARTED(s!)" "WAITING(w@)" "DELEGATED(l@)"
+               "|" "DONE(d!)" "DEFERRED(f@)" "CANCELLED(x@)"))))
+
+(add-hook 'remember-mode-hook 'org-remember-apply-template)
+(define-key global-map [(control ?x) ( meta ?r)] 'remember)
+(custom-set-variables
+ '(org-remember-store-without-prompt t)
+ '(org-remember-templates
+   (quote ((116 "* TODO %?\n  %u" "~/Dropbox/tasks.org" "Tasks")
+           (110 "* %u %?" "~/Dropbox/notes.org" "Notes"))))
+ '(remember-annotation-functions (quote (org-remember-annotation)))
+ '(remember-handler-functions (quote (org-remember-handler))))
diff --git a/.emacs.d/config.elc b/.emacs.d/config.elc
diff --git a/.emacs.d/config.org b/.emacs.d/config.org
@@ -312,3 +312,40 @@
     (eval-after-load 'flycheck
       '(add-hook 'flycheck-mode-hook #'flycheck-haskell-setup))
   #+end_src
+* org
+  Agenda settings
+  #+BEGIN_SRC emacs-lisp
+    (setq org-log-done 'time)
+    (define-key mode-specific-map [?a] 'org-agenda)
+    (custom-set-variables
+     '(org-agenda-files (quote ("~/Dropbox/tasks.org")))
+     '(org-default-notes-file "~/Dropbox/notes.org")
+     '(org-agenda-show-all-dates t)
+     '(org-agenda-start-on-weekday nil)
+     '(org-deadline-warning-days 2)
+     '(org-agenda-show-all-dates t)
+     '(org-agenda-skip-deadline-if-done t)
+          '(org-agenda-skip-scheduled-if-done t))
+  #+END_SRC
+  Custom task statuses and switches
+  #+BEGIN_SRC emacs-lisp
+    (custom-set-variables
+     '(org-todo-keywords
+       '((sequence "TODO(t)" "STARTED(s!)" "WAITING(w@)" "DELEGATED(l@)"
+                   "|" "DONE(d!)" "DEFERRED(f@)" "CANCELLED(x@)"))))
+
+   #+END_SRC
+
+** remember
+   Using global shortcut
+   #+BEGIN_SRC emacs-lisp
+     (add-hook 'remember-mode-hook 'org-remember-apply-template)
+     (define-key global-map [(control ?x) ( meta ?r)] 'remember)
+     (custom-set-variables
+      '(org-remember-store-without-prompt t)
+      '(org-remember-templates
+        (quote ((116 "* TODO %?\n  %u" "~/Dropbox/tasks.org" "Tasks")
+                (110 "* %u %?" "~/Dropbox/notes.org" "Notes"))))
+      '(remember-annotation-functions (quote (org-remember-annotation)))
+      '(remember-handler-functions (quote (org-remember-handler))))
+  #+END_SRC
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
@@ -16,13 +16,27 @@
  '(ansi-color-names-vector ["#212526" "#ff4b4b" "#b4fa70" "#fce94f" "#729fcf" "#ad7fa8" "#8cc4ff" "#eeeeec"])
  '(column-number-mode t)
  '(custom-safe-themes (quote ("e16a771a13a202ee6e276d06098bc77f008b73bbac4d526f160faa2d76c1dd0e" "c7359bd375132044fe993562dfa736ae79efc620f68bab36bd686430c980df1c" "90b5269aefee2c5f4029a6a039fb53803725af6f5c96036dee5dc029ff4dff60" "29a4267a4ae1e8b06934fec2ee49472daebd45e1ee6a10d8ff747853f9a3e622" default)))
+ '(default-input-method "russian-computer")
  '(global-font-lock-mode t)
  '(global-linum-mode nil)
  '(global-visual-line-mode t)
  '(haskell-process-type (quote cabal-repl))
  '(ido-enable-flex-matching t)
  '(ido-mode (quote both) nil (ido))
  '(ledger-reports (quote (("april" "ledger -f 2014.dat bal ^expenses:") ("aprit" "ledger ") ("bal" "ledger -f %(ledger-file) bal") ("reg" "ledger -f %(ledger-file) reg") ("payee" "ledger -f %(ledger-file) reg @%(payee)") ("account" "ledger -f %(ledger-file) reg %(account)"))))
+ '(org-agenda-files (quote ("~/Dropbox/tasks.org")))
+ '(org-agenda-show-all-dates t)
+ '(org-agenda-skip-deadline-if-done t)
+ '(org-agenda-skip-scheduled-if-done t)
+ '(org-agenda-start-on-weekday nil)
+ '(org-deadline-warning-days 2)
+ '(org-default-notes-file "~/Dropbox/notes.org")
+ '(org-remember-store-without-prompt t)
+ '(org-remember-templates (quote ((116 "* TODO %?
+  %u" "~/Dropbox/tasks.org" "Tasks") (110 "* %u %?" "~/Dropbox/notes.org" "Notes"))))
+ '(org-todo-keywords (quote ((sequence "TODO(t)" "STARTED(s!)" "WAITING(w@)" "DELEGATED(l@)" "|" "DONE(d!)" "DEFERRED(f@)" "CANCELLED(x@)"))))
+ '(remember-annotation-functions (quote (org-remember-annotation)))
+ '(remember-handler-functions (quote (org-remember-handler)))
  '(setq-default case-fold-search)
  '(show-paren-mode t))
 (custom-set-faces

diff --git a/.emacs.d/init.elc b/.emacs.d/init.elc
diff --git a/.gitignore b/.gitignore
@@ -12,4 +12,5 @@ gnus/.newsrc*
 .emacs.d/url/
 .emacs.d/elpa/archives/
 .emacs.d/jabber-avatar-cache
-.emacs.d/semanticdb
+.emacs.d/semanticdb
+.emacs.d/bookmarks