Org Folded View when Startup

* Org Folded View when Startup
@ 2010-01-21 23:48 Chao Lu
  2010-01-22  9:18 ` Carsten Dominik
  0 siblings, 1 reply; 4+ messages in thread
From: Chao Lu @ 2010-01-21 23:48 UTC (permalink / raw)
  To: emacs-orgmode

[-- Attachment #1.1: Type: text/plain, Size: 447 bytes --]

Hey,

I found my Org refuse to do the overview view correctly. Although I have
explicitly set the org-startup-folded to be t. Each time when I open an org
file, it still in plain view (not folded). So I have to M-x org-mode, then
it enters the fold view, which is really annoying...

Could anybody help me?

My version of Emacs is 23.1.90.1 (WinNT), Org-mode is 6.33trans.

And my configure for org is included in attachment.

Thanks a lot.

Chao

[-- Attachment #1.2: Type: text/html, Size: 492 bytes --]

[-- Attachment #2: org.el --]
[-- Type: application/octet-stream, Size: 11330 bytes --]

;;; org.el -- org mode
;;; ==================
(require 'org-install)
(add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" .
				org-mode))

(add-to-list 'auto-mode-alist '("README$" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)

(setq major-mode 'org-mode)
(setq org-completion-use-ido t)
(setq org-hide-leading-stars t)
(setq org-log-done t)

(setq org-directory "~/.emacs.d/org/org/")
(setq org-agenda-files (file-expand-wildcards "~/.emacs.d/org/org/*.org"))

(setq org-todo-keywords '((sequence "TODO(t)" "WAIT(w/!)" "|"
                                    "DONE(d!)" "CANCELED(c)")
                          (sequence "REPORT(r)" "BUG(b)" "|" "FIXED(f)")))
;(setq org-todo-keywords '((type "Fred" "Sara" "Lucy" "|" "DONE")))
(setq org-todo-keyword-faces
      '(("TODO" . org-warning)
        ("DEFERRED" . shadow)
        ("CANCELED" . (:foreground "blue" :weight bold))))

(setq org-ditaa-jar-path "~/.emacs.d/org/var/ditaa0_9.jar")

;; (setq org-tag-alist
;;       (quote ((#("PHONE" 0 5 (face nil)) . 116)
;;            (#("BUY" 0 3 (face nil)) . 98)
;;            (#("PROJECT" 0 7 (face nil)) . 112)
;;            (#("QUOTE" 0 5 (face nil)) . 113)
;;            (#("NEXT" 0 4 (face nil)) . 110)
;;            (#("NORANG" 0 6 (face nil)) . 78)
;;            (#("SAPPI" 0 5 (face nil)) . 83)
;;            (#("BZFLAG" 0 6 (face nil)) . 66)
;;            (#("HOME" 0 4 (face org-done)) . 72)
;;            (#("CANCELLED" 0 9 (face nil)) . 99)
;;            (#("WAITING" 0 7 (face nil)) . 119))))

(setq org-tag-alist '(("Audio" . ?a)
                      ("Book" . ?b)
                      ("Culture" . ?c)
                      ("ComputerSE" . ?C)
                      ("English" . ?e)
                      ("GuoXue" . ?g)
                      ("Mathematic" . ?m)
                      ("Obtain" . ?o)
                      ("Physics" . ?p)
                      ("Video" . ?v)
                      ))

(setq org-fast-tag-selection-single-key t)
(setq org-log-done (quote (state)))

(setq org-tag-faces
      '(("Mathematic" . (:foreground "blue" :weight bold))
        ("Physics" . (:foreground "yellow" :weight bold))
        ))

;; org-agenda-ndays specifies how many days ahead the default agenda view should look. It is important to set this to seven!
(setq org-agenda-ndays 7
      org-deadline-warning-days 14
      org-agenda-skip-deadline-if-done t
      org-agenda-skip-scheduled-if-done t
      org-agenda-show-all-dates t
      org-agenda-start-on-weekday nil
      org-agenda-include-diary t
      org-publish-use-timestamps-flag t
      org-agenda-skip-timestamp-if-done t)
(setq org-publish-timestamp-directory "~/.emacs.d/org/.org-timestamps/")
(setq org-reverse-note-order t)
(org-remember-insinuate)
(defun make-remember-frame ()  
  "Create a new frame and run org-remember"
  (interactive)  
  (make-frame '((name . "*Remember*") (width . 80) (height . 10)))
  (select-frame-by-name "*Remember*")
(org-remember))

;(define-key global-map [(control meta ?r)] 'make-remember-frame)
(setq org-remember-store-without-prompt t)
(setq remember-annotation-functions '(org-remember-annotation))
(setq remember-handler-functions '(org-remember-handler))
(add-hook 'remember-mode-hook 'org-remember-apply-template)
(setq org-remember-templates
    '(
      ("Daily Review" ?a "** %t :COACH: \n%[~/.emacs.d/org/org/templates/.DRevTPL.org]\n" "~/.emacs.d/org/org/Journal.org")
      ("Book" ?b "** %^{Book Title} %t :BOOK: \n%[~/.emacs.d/org/org/templates/.BookTPL.org]\n" "~/.emacs.d/org/org/Journal.org")
      ("Clipboard" ?c "** %^{Head Line} %U %^g\n%c\n%?"  "~/.emacs.d/org/org/Journal.org")
      ("Contact" ?C "\n* %^{Name} :CONTACT:\n%[~/.emacs.d/org/org/.ContactTPL.org]\n" "~/.emacs.d/org/org/iNbox.org")
      ("Download" ?d "* DL %?\n %i\n %a" "~/.emacs.d/org/org/iNbox.org" "Download")      
      ("Emacs" ?e "* %^{Title}\n %? %i " "~/.emacs.d/org/org/Emacs.org")
      ("Elisp" ?E "* %^{Title}\n %? %i " "~/.emacs.d/org/org/Emacs.org" "Elisp")      
      ("Film" ?f "** %^{Film Title} %t :FILM: \n%[~/.emacs.d/org/org/templates/.FilmTPL.org]\n" "~/.emacs.d/org/org/Journal.org")
      ("Journal"   ?j "** %^{Head Line} %U %^g\n%i%?"  "~/.emacs.d/org/org/Journal.org")
      ("Humor" ?h "* %^{Title}\n %? %i " "~/.emacs.d/org/org/Humor.org" bottom)
;      ("Idea" ?i "* %^{Title|Style|Confusing}\n  %i\n  %a %u %t" "~/.emacs.d/org/org/iNbox.org" bottom)
      ("Idea" ?i "* %^{Title}\n %?" "~/.emacs.d/org/org/iNbox.org")
      ("iLog" ?2 "** %^{Title}\n %?" "~/.emacs.d/org/org/Private.org" "iLog")            
      ("Library" ?l "* %U %?\n\n  %i\n" "~/.emacs.d/org/org/iNbox.org")
      ("Lovetip" ?L "* %?  %i\n" "~/.emacs.d/org/org/Life.org" "Lovetip")
      ("Love" ?1 "* %?  %i\n" "~/.emacs.d/org/org/Life.org" "Love")      
      ("Misc" ?m "* %^{Title}\n %?" "~/.emacs.d/org/org/Misc.org" bottom)
      ("Music" ?M "* MUSIC %?\n %i\n %a" "~/.emacs.d/org/org/iNbox.org" "Music")      
      ("Note" ?n   "* NOTE %?\n %i\n %a" "~/.emacs.d/org/org/iNbox.org" "Notes")
      ("Org" ?o "* %^{Title}\n %? %i " "~/.emacs.d/org/org/Org.org")
      ("Pearl" ?p "*%? %&" "~/.emacs.d/org/org/Pearl.org")      
      ("Private" ?P "\n* %^{Topic} %T \n%i%?\n" "~/.emacs.d/org/org/privnotes.org")
      ("Receipt"   ?r "** %^{BriefDesc} %U %^g\n%?"   "~/.emacs.d/org/org/Finance.org")
      ("Soft" ?s "* %^{Title}\n %? %i " "~/.emacs.d/org/org/Humor.org")
      ("Someday"   ?S "** %^{Someday Heading} %U\n%?\n"  "~/.emacs.d/org/org/Someday.org") 
      ("Todo" ?t "* TODO %^{Brief Description} %^g\n %&" "~/.emacs.d/org/org/iNbox.org" "Tasks")
      ("Vobal"   ?v "** %^{Word?}\n%?\n"  "~/.emacs.d/org/org/Vobal.org")
     )
   )
;; (define-prefix-command 'f8-map)
;; (global-set-key (kbd "<f8>") 'f8-map)
;; (define-key global-map (kbd "<f8> r") 'org-remember)
(define-key global-map (kbd "<f8>") 'org-remember)

(setq org-tags-column 60)
(setq org-agenda-custom-commands
   (quote (
       ("A" agenda ""
        ((org-agenda-skip-function
          (lambda nil
        (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]")))
         (org-agenda-ndays 1)
         (org-agenda-overriding-header "Today's Priority #A tasks: ")))    
       ("c" todo "DONE|DEFERRED|CANCELLED" nil)
       ("d" todo "DELEGATED" nil)
       ;If you check certain lists often, you might want to create a custom agenda command for them.
;       ("m" tags "PROJECT&MAYBE" nil)
       ("p" tags "Physics" nil)
       ("s" todo "WORK&URGENT" nil) 
       ("u" alltodo ""
        ((org-agenda-skip-function
          (lambda nil
        (org-agenda-skip-entry-if (quote scheduled) (quote deadline)
                      (quote regexp) "<[^>\n]+>")))
         (org-agenda-overriding-header "Unscheduled TODO entries: ")))
       ("w" todo "WAITING" nil)
       ("W" agenda "" ((org-agenda-ndays 21)))

       )))

; Inline images in HTML instead of producting links to the image
(setq org-export-html-inline-images t)

;(setq org-export-with-sub-superscripts nil)

(require 'org-publish)
(setq org-publish-project-alist
      '(
        ("org-notes"
         :base-directory "~/.emacs.d/org/org/" ;The components root directory.
         :base-extension "org" ;Filename suffix without the dot.
         :recursive t ;If t, include subdirectories - we want that. Subdirectories in :publishing-directory are created if they don't yet exist.
         :publishing-function org-publish-org-to-html ;If and how org should process the files in this component. In this case: convert the Org-mode files to HTML.
         :publishing-directory "~/.emacs.d/org/public_html/" ;The base directory where all our files will be published.
         :headline-levels 4             ; Just the default for this project.
         :auto-preamble t
         :footnotes t
;        :section-numbers nil
         :language "utf-8"
         :author-info nil
         :creator-info nil
         :auto-index t                  ; Generate index.org automagically...
         :index-filename "index.org"  ; ... call it sitemap.org ...
         :index-title "Sitemap"         ; ... with title 'Sitemap'.
         :style-include-default nil
;        :publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs"
         :style "<link rel=\"stylesheet\" href=\"theme/org.css\"  type=\"text/css\"/>
         <script type=\"text/javascript\" src=\"theme/org-info.js\"></script>
         <script type=\"text/javascript\" src=\"http://orgmode.org/org-info.js\"></script>"
         )
        ("org-static"
         :base-directory "~/.emacs.d/org/org/"
         :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
         :publishing-directory "~/.emacs.d/org/public_html/"
         :recursive t
         :publishing-function org-publish-attachment
         )
        ("org" :components ("org-notes" "org-static"))

        ;; °ÑorgÎÄ¼þ¼ÐÖÐµÄcss js¶¼¿½¹ýÀ´
        ("B-inherit"
         :base-directory "~/org/"
         :recursive t
         :base-extension "css\\|js"
         :publishing-directory "~/public_html/B/"
         :publishing-function org-publish-attachment
         )

        ("B-org"
         :base-directory "~/B/"
         :auto-index t
         :index-filename "sitemap.org"
         :index-title "Sitemap"
         :recursive t
         :base-extension "org"
         :publishing-directory "~/public_html/B/"
         :publishing-function org-publish-org-to-html
         :headline-levels 3
         :auto-preamble t
         )
        ("B-static"
         :base-directory "~/B/"
         :recursive t
         :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
         :publishing-directory "~/public_html/B/"
         :publishing-function org-publish-attachment)
        ;; f you want to track the changes to ~org/*.css directly in ~/B, you must ensure, that B-inherit is the first component in B since the components in B are executed in the sequence listed: first get the new stylesheet into B, then execute B-static. 
        ("B" :components ("B-inherit" "B-notes" "B-static"))
      ))

(define-prefix-command 'f6-map)
(global-set-key (kbd "<f6>") 'f6-map)

(defun bh/save-then-publish ()
  (interactive)
  (save-buffer)
  (org-save-all-org-buffers)
  (org-publish-current-project))
(global-set-key (kbd "<f6> 1") 'bh/save-then-publish)
(global-set-key (kbd "<f6> 2") 'org-publish)

(setq org-drawers (quote ("PROPERTIES" "DATA")))
(setq org-enforce-todo-dependencies t)
(setq org-export-with-LaTeX-fragments t)

(autoload 'iimage-mode "iimage" "Support Inline image minor mode." t)
(autoload 'turn-on-iimage-mode "iimage" "Turn on Inline image minor mode." t)
(add-hook 'org-mode-hook 'turn-on-iimage-mode)
(add-hook 'org-mode-hook (lambda()
            (auto-fill-mode t)
            (set-fill-column 78)
            (setq truncate-lines nil)))
;; (add-hook 'org-mode-hook
;; (lambda ()
;; (make-variable-buffer-local 'yas/trigger-key)
;; (setq yas/trigger-key [tab])
;; (define-key yas/keymap [tab] 'yas/next-field-group)))

(setq org-startup-folded t)

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

^ permalink raw reply	[flat|nested] 4+ messages in thread