.emacs.d/my-org.el

   1 ;; This want to be a replacement of Calendar/Diary/ToDo part of
   2 ;; my-pages.
   3 ;; Org-mode is integrated in emacs. In my emacs.fanaj (my init-file)
   4 ;; Org-mode is automatically turn on for files ending with `.org'
   5
   6 ;; In this file i want configure Org and Agenda to learn it.
   7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   8 ;; I can still to use diary.
   9 (setq org-agenda-include-diary t)
  10 ;; less stars
  11 (setq org-hide-leading-stars t)
  12 (setq org-odd-levels-only t)
  13
  14 ;; enter follow
  15 (setq org-return-follows-link t)
  16
  17 ;; To cooperate with `remember'
  18 (setq org-default-notes-file (expand-file-name (concat user-emacs-directory ".notes")))
  19 (defun view-notes () "" (interactive) (view-file org-default-notes-file))
  20
  21 ;; set org files --- XXX ;; (setq org-agenda-files nil)
  22 (setq org-agenda-files
  23       (cons "~/AGENDA"
  24             (append
  25              (file-expand-wildcards "~/org/*.org")
  26              (file-expand-wildcards "~/emacs/Worg/worg-todo.org"))
  27             ))
  28
  29 ;(add-to-list 'org-agenda-files (list my-org-agenda-files))
  30
  31 ;; To test ...
  32 (require 'facemenu)
  33 (load (expand-file-name "~/gnu-src/onVersion/Emacs/emacswikicode/org-annotate-file.el") t)
  34
  35 ;; org-publish and org-blog to achieve to make org-wiki
  36 (load (expand-file-name "~/gnu-src/onVersion/Emacs/emacswikicode/org-publish.el") t)
  37 (load (expand-file-name "~/gnu-src/onVersion/Emacs/emacswikicode/org-blog.el") t)
  38
  39
  40
  41 ;; Key Bindings Map ... o stands for Org,
  42 ;; but O is for `org-agenda' directly
  43 (define-key my-prefix-map "O" 'org-agenda)
  44 (define-prefix-command 'my-org-map)
  45 (define-key my-prefix-map "o" 'my-org-map)
  46 (define-key my-org-map "l" 'org-store-link)
  47
  48 ;;;;;;;;;;;;;;;;;
  49 (provide 'my-org)
  50
  51
  52 \f;;;; Other stuff ... diary, page , ...for writing
  53
  54 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  55 ;; For Calendar/Diary  &  TODOo
  56 (add-hook 'diary-display-hook 'fancy-diary-display) ;; (setq diary-display-hook nil)
  57 (setq european-calendar-style t)
  58 (add-hook 'list-diary-entries-hook 'sort-diary-entries t)
  59 ;(setq todoo-file-name "~/TODO")
  60 ;(setq todo-file-do "~/TODOit")
  61 ;todo-file-top
  62