30     ;; For graphical environment.

    30     ;; For graphical environment.

    31     (progn

    31     (progn

    32       (set-background-color "white")

    32       (set-background-color "white")

    33       (set-foreground-color "black")

    33       (set-foreground-color "black")

    34       (set-cursor-color "brown")

    34       (set-cursor-color "brown")

    35       (setq cursor-type 'box)           ; box, hollow, bar, hbar

    36       (setq cursor-type 'box)           ; box, hollow, bar, hbar

    36       ;;(setq blink-matching-delay 0.01)

    37       ;;(setq blink-matching-delay 0.01)

    37       (blink-cursor-mode 1)

    38       (blink-cursor-mode 1)

    38       ;; (set-face-font 'default "7x14")

    39       ;; (set-face-font 'default "7x14")

    39       (fringe-mode 'default)

    40       (fringe-mode 'default)

   595       (setq org-directory (expand-file-name "~/.gtd"))

   596       (setq org-directory (expand-file-name "~/.gtd"))

   596       (setq org-default-notes-file (expand-file-name "~/.gtd/notes"))

   597       (setq org-default-notes-file (expand-file-name "~/.gtd/notes"))

   597       (setq org-agenda-ndays 14

   598       (setq org-agenda-ndays 14

   598             org-deadline-warning-days 7

   599             org-deadline-warning-days 7

   599             org-agenda-show-all-dates t

   600             org-agenda-show-all-dates t

   600             org-agenda-skip-deadline-if-done t

   602             org-agenda-skip-deadline-if-done t

   601             org-agenda-skip-scheduled-if-done t

   603             org-agenda-skip-scheduled-if-done t

   602             org-agenda-start-on-weekday nil

   604             org-agenda-start-on-weekday nil

   603             org-reverse-note-order t

   605             org-reverse-note-order t

   604             org-hide-leading-stars t

   606             org-hide-leading-stars t