emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] Re: org-default-notes-file


From: Noorul Islam K M
Subject: [Orgmode] Re: org-default-notes-file
Date: Mon, 18 Oct 2010 15:33:22 +0530
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux)

Louis Turk <address@hidden> writes:

>  On 10/18/2010 05:20 PM, Noorul Islam K M wrote:
>> Louis Turk<address@hidden>  writes:
>>
>>>   On 10/18/2010 05:09 PM, Noorul Islam K M wrote:
>>>
>>>> Louis Turk<address@hidden>   writes:
>>>>
>>>>>    On 10/18/2010 03:16 PM, Noorul Islam K M wrote:
>>>>>
>>>>>> Louis Turk<address@hidden>    writes:
>>>>>>
>>>>>>>     Hi everyone,
>>>>>>>
>>>>>>> I trying to set up capture to use refile.org as the default notes file.
>>>>>>>
>>>>>>> lat-a-ws% locate refile.org
>>>>>>> /home/lat/org/refile.org
>>>>>>> lat-a-ws%
>>>>>>>
>>>>>>> (setq org-default-notes-file "~/org/refile.org")
>>>>>>>
>>>>>>> But I get:
>>>>>>>
>>>>>>> Debugger entered--Lisp error: (void-function org-string-nw-p)
>>>>>>>      (org-string-nw-p file)
>>>>>>>      (or (org-string-nw-p file) org-default-notes-file (error "No notes
>>>>>>> file specified, and no default available"))
>>>>>>>      (setq file (or (org-string-nw-p file) org-default-notes-file (error
>>>>>>> "No notes file specified, and no default available")))
>>>>>>>      org-capture-target-buffer("~/org/refile.org")
>>>>>>>      (set-buffer (org-capture-target-buffer (nth 1 target)))
>>>>>>>
>>>>>>> How do I fix this?
>>>>>>>
>>>>>> This function is defined in org-macs.el. I think you should have in your
>>>>>> .emacs.
>>>>>>
>>>>>> (require 'org-macs)
>>>>>>
>>>>>> Thanks and Regards
>>>>>> Noorul
>>>>> Thanks for responding, but that doesn't seem to cure the problem. I
>>>>> still get the same error message.
>>>>>
>>>> Which version of emacs and org-mode are you using?
>>>>
>>>> M-x emacs-version
>>>> M-x org-version
>>>>
>>>> Thanks and Regards
>>>> Noorul
>>> GNU Emacs 23.2.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.20.0) of
>>> 2010-05-08 on pidsley.hoetzel.info
>>>
>>> Org-mode version 6.33x (release_7.01h.718.g0cb3c5.dirty)
>>>
>>> also, I'm using archlinux
>>>
>> I think you should use "Reply-To All" so that everyone in the list can
>> see your message and help out.
> Thanks. I didn't realize I wasn't replying to the list.
>> It looks like there is a collision of org-mode versions? Do you have
>> multiple org-mode installations?
> Not on purpose, but probably. I think I used git to get the latest
> org-mode.
>> I think 6.33x is the one that comes with emacs and release 7.01h is the
>> latest. Ensure that you have the latest version ahead in load path.
>>
>> Thanks and Regards
>> Noorul
> This is my .emacs, if that will help. Perhaps something in my .emacs
> is conflicting. It probably needs a lot of cleaning up.
>
> (custom-set-variables
>   ;; custom-set-variables was added by Custom.
>   ;; If you edit it by hand, you could mess it up, so be careful.
>   ;; Your init file should contain only one such instance.
>   ;; If there is more than one, they won't work right.
>  '(canlock-password "129de665b1f8f1c95eaaa9daca897b054d323b2b")
>  '(column-number-mode t)
>  '(current-language-environment "UTF-8")
>  '(debug-on-error t)
>  '(muse-project-alist (quote (("WikiPlanner" ("~/plans" :default
> "index" :major-mode planner-mode :visit-link planner-visit-link)))))
>  '(org-agenda-files (quote ("~/org/anniversaries.org"
> "~/org/schedule.org" "~/org/projects.org")))
>  '(safe-local-variable-values (quote ((Package . CL-PPCRE) (Syntax
> . COMMON-LISP) (Package . CL-USER) (Base . 10))))
>  '(save-place t nil (saveplace))
>  '(scroll-bar-mode (quote right))
>  '(show-paren-mode t)
>  '(size-indication-mode t)
>  '(uniquify-buffer-name-style (quote forward) nil (uniquify))
>  '(vc-handled-backends (quote (Git SVN CVS RCS SCCS Arch))))
> (custom-set-faces
>   ;; custom-set-faces was added by Custom.
>   ;; If you edit it by hand, you could mess it up, so be careful.
>   ;; Your init file should contain only one such instance.
>   ;; If there is more than one, they won't work right.
>  '(default ((t (:inherit nil :stipple nil :background "honeydew"
> :foreground "black" :inverse-video nil :box nil :strike-through nil
> :overline nil :underline nil :slant normal :weight normal :height 136
> :width normal :foundry "unknown" :family "Gentium")))))
> (global-set-key "\C-x\C-m" 'execute-extended-command)
> (global-set-key "\C-c\C-m" 'execute-extended-command)
> ;(setq custom-file "~/.emacs-custom.elc")
> ;(load custom-file)
> (setq inhibit-splash-screen '(t))
>
> (put 'downcase-region 'disabled nil)
> (put 'upcase-region 'disabled nil)
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Maltron keyboard navagation
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> ;; Moving down ----------------
> (global-set-key (kbd "s-k") 'next-line)
> (global-set-key (kbd "s-o") 'forward-char)
> (global-set-key (kbd "s-r") 'forward-word)
> (global-set-key (kbd "s-'") 'forward-sentence)
> (global-set-key (kbd "s-l") 'forward-paragraph)
> (global-set-key (kbd "s-z") 'forward-page)
> (global-set-key (kbd "s-x") 'end-of-buffer)
>
> ;; Moving up ---------------------
> (global-set-key (kbd "s-u") 'previous-line)
> (global-set-key (kbd "s-t") 'backward-char)
> (global-set-key (kbd "s-d") 'backward-word)
> (global-set-key (kbd "s-m") 'backward-sentence)
> (global-set-key (kbd "s-v") 'backward-paragraph)
> (global-set-key (kbd "s-w") 'backward-page)
> (global-set-key (kbd "s-;") 'beginning-of-buffer)
>
> ;; Move to middle ----------------
> (defun goto-middle-of-line ()
>   (interactive)
>   (let ((begin (progn (beginning-of-line) (point)))
>         (end   (progn (end-of-line) (point))))
>     (goto-char (/ (+ begin end) 2))))
> (global-set-key (kbd "s-h") 'goto-middle-of-line)
>
> ;; Search forward
> (global-set-key (kbd "C-s-=") 'isearch-backward)
> (global-set-key (kbd "s-=") 'isearch-forward)
>
> ;; Move the contents of the buffer up or down without changing the
> cursor position ======
> (global-set-key (kbd "M-<down>") (lambda () (interactive) (scroll-up 1)))
> (global-set-key (kbd "M-<up>") (lambda () (interactive) (scroll-down 1)))
>
> ;; =====================================================
> (setq x-select-enable-clipboard t)
>
> (setq imap-log t)
>
> ;; I hate tabs!
> (setq-default indent-tabs-mode nil)
>
> ;; Remove tabs while saving.
>   (defun java-mode-untabify ()
>     (save-excursion
>       (goto-char (point-min))
>       (while (re-search-forward "[ \t]+$" nil t)
>         (delete-region (match-beginning 0) (match-end 0)))
>       (goto-char (point-min))
>       (if (search-forward "\t" nil t)
>           (untabify (1- (point)) (point-max))))
>     nil)
>
>   (add-hook 'java-mode-hook
>             '(lambda ()
>                (make-local-variable 'write-contents-hooks)
>                (add-hook 'write-contents-hooks 'java-mode-untabify)))
>
>
> (set-background-color "honeydew")
>
> ;(set-face-font 'default "-bitstream-bitstream vera sans
> mono-medium-r-normal-*-*-120-100-100-m-0-iso8859-16")
> ;(set-face-font 'default "-jmk-neep
> alt-medium-r-*-*-20-*-*-*-c-*-iso8859-1")
> ;(set-face-font       'default      "*courier-bold-r*140-100-100*")
>
> (setq-default truncate-lines t)
>
> (setq imap-log t)
>
> (setq load-path (cons "/usr/bin" load-path))
> ;(load "rebview")
> ;(require 'rebol)
> ;(add-hook 'rebol-mode-hook (lambda () (font-lock-mode 1)))
> ;(setq auto-mode-alist
> ;      (cons (cons "\\.r$" 'rebol-mode) auto-mode-alist))
>
> ;(load-file "/home/lat/emacros/emacros.elc")
>
> ;(global-set-key "\C-cA" 'emacros-name-last-kbd-macro-add)
> ;(global-set-key "\C-ce" 'emacros-execute-named-macro)
> ;(global-set-key "\C-cc" 'emacros-auto-execute-named-macro)
>
> ;; Display full path name if appropriate on mode line.
> (add-hook 'find-file-hooks
>       '(lambda ()
>          (setq mode-line-buffer-identification 'buffer-file-truename)))
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; TRAMP settings
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (setq tramp-default-method "psftp")
> (setq tramp-default-user "daysprin")
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; GIT settings
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (load "/usr/share/doc/git-core/contrib/emacs/git.el" t)
> (load "/usr/share/doc/git-core/contrib/emacs/git-blame.el" t)
> (load "/usr/share/doc/git-core/contrib/emacs/vc-git.el" t)
> (add-to-list 'vc-handled-backends 'GIT)
>
>
> (defmacro elscreen-create-automatically (ad-do-it)
>    (` (if (not (elscreen-one-screen-p))
>           (, ad-do-it)
>         (elscreen-create)
>         (elscreen-notify-screen-modification 'force-immediately)
>         (elscreen-message "New screen is automatically created"))))
>
>  (defadvice elscreen-next (around elscreen-create-automatically activate)
>    (elscreen-create-automatically ad-do-it))
>
>  (defadvice elscreen-previous (around elscreen-create-automatically
> activate)
>    (elscreen-create-automatically ad-do-it))
>
>  (defadvice elscreen-toggle (around elscreen-create-automatically activate)
>    (elscreen-create-automatically ad-do-it))
>
> (defun elscreen-frame-title-update ()
>   (when (elscreen-screen-modified-p 'elscreen-frame-title-update)
>     (let* ((screen-list (sort (elscreen-get-screen-list) '<))
>        (screen-to-name-alist (elscreen-get-screen-to-name-alist))
>        (title (mapconcat
>            (lambda (screen)
>              (format "%d%s %s"
>                  screen (elscreen-status-label screen)
>                  (get-alist screen screen-to-name-alist)))
>            screen-list " ")))
>       (if (fboundp 'set-frame-name)
>       (set-frame-name title)
>     (setq frame-title-format title)))))
>
> (eval-after-load "elscreen"
>   '(add-hook 'elscreen-screen-update-hook 'elscreen-frame-title-update))
>
>
>
>  (require 'executable)
>
>  ;(let ((w3mmee (executable-find "w3mmee"))
>  ;      (mbconv (executable-find "mbconv")))
>  ;  (when (and w3mmee mbconv)
>  ;    (setq w3m-command w3mmee)))
>
>  ;(require 'w3m)
>
>
> ;;---------------- Planner ---------------------------
>
>      (add-to-list 'load-path "~/elisp/muse/lisp")
>      (add-to-list 'load-path "~/elisp/planner")
>      (add-to-list 'load-path "~/elisp/remember")
>
>      (setq planner-project "WikiPlanner")
>      (setq muse-project-alist
>            '(("WikiPlanner"
>              ("~/plans"   ;; Or wherever you want your planner files to be
>              :default "index"
>              :major-mode planner-mode
>          :visit-link planner-visit-link))))
>      (require 'planner)
>
> ;;------------
>
> (setq common-lisp-hyperspec-root "/home/lat/l/Lisp HyperSpec/")
>
> ;;-------------- "open file in the same window when clicking on it in
> dired" by mnemonikk
>
> ;(defadvice dired-mouse-find-file-other-window (around
> dired-mouse-find-file-advice activate)
> ;  (flet ((find-file-other-window (filename) (find-file filename)))
> ;    ad-do-it))
>
> (defadvice dired-mouse-find-file-other-window (around
> dired-mouse-find-file-advice activate)
>   (flet ((find-file-other-window (filename) (find-file filename))
>          (dired-other-window (filename) (dired filename)))
>     ad-do-it))
>
> (global-visual-line-mode 1) ; 1 for on, 0 for off.
> (global-linum-mode 1) ; always show line numbers
>
>
> ;;-------------------
> ;; highlight the current line; set a custom face, so we can
> ;; recognize from the normal marking (selection)
> ;(defface hl-line '((t (:background "Yellow")))
> ;  "Face to use for `hl-line-face'." :group 'hl-line)
> ;(setq hl-line-face 'hl-line)
> ;(global-hl-line-mode t) ; turn it on for all modes by default
> ;;-------------------
>
>  ;; Support functions for `stesla-rotate-buffers'.  From the EmacsWiki.
>
>  (defvar stesla-hated-buffers '("KILL" "*Apropos*" "*Completions*" "*grep*"
>                                 ".newsrc-dribble" ".bbdb" "sent-mail"
> "*vc*"
>                                "*Compile-Log*" "*Help*" "*Messages*"))
>
>  (defvar stesla-hated-buffer-regexps '("^ " "*Buffer" "^\\*trace"
> "^\\*tramp"))
>
>  (setq iswitchb-buffer-ignore (append stesla-hated-buffer-regexps
> stesla-hated-buffers))
>
>  (defmacro stesla-buffer-regexp-mapcar (regexp buffers)
>   "Find BUFFERS whose name matches REGEXP"
>   `(mapcar (lambda (this-buffer)
>              (if (string-match ,regexp (buffer-name this-buffer))
>                  this-buffer))
>            ,(if (symbolp buffers) (symbol-value buffers) buffers)))
>
>  (defmacro stesla-hated-buffer-from-regexps (regexps)
>   "Generate a one-dimensional list of buffers that match REGEXPS"
>   (append
>    '(append)
>    (mapcar (lambda (regexp)
>              `(delete nil (stesla-buffer-regexp-mapcar ,regexp
>                                                        (buffer-list))))
>            (if (symbolp regexps) (symbol-value regexps) regexps))))
>
>  (defun stesla-delete-from-list (delete-these from-list)
>   "Delete DELETE-THESE from FROM-LIST."
>   (cond
>    ((car delete-these)
>     (if (member (car delete-these) from-list)
>         (stesla-delete-from-list (cdr delete-these)
>                                 (delete (car delete-these) from-list))
>       (stesla-delete-from-list (cdr delete-these) from-list)))
>    (t from-list)))
>
>  (defun stesla-hated-buffers ()
>   "List of buffers I never want to see."
>   (delete nil
>           (append
>            (mapcar 'get-buffer stesla-hated-buffers)
>            (stesla-hated-buffer-from-regexps
> stesla-hated-buffer-regexps))))
>
>  ;; `stesla-rotate-buffers': Like `bury-buffer' but with the capability to
>  ;; exclude certain specified buffers.
>
>  (defun stesla-rotate-buffers (&optional n)
>   "Switch to the Nth next buffer.  Negative arguments move backwards."
>   (interactive)
>   (unless n
>     (setq n 1))
>   (let ((my-buffer-list
>          (stesla-delete-from-list (stesla-hated-buffers)
>                                  (buffer-list (selected-frame)))))
>     (switch-to-buffer
>      (if (< n 0)
>          (nth (+ (length my-buffer-list) n)
>               my-buffer-list)
>        (bury-buffer)
>        (nth n my-buffer-list)))))
>
>  ;; Windows-style C-TAB and C-M-TAB to switch buffers.
>
>  (global-set-key (kbd "C-<tab>") 'stesla-rotate-buffers)
>  (global-set-key (kbd "C-M-<tab>") (lambda ()
>                                     (interactive)
>                                     (stesla-rotate-buffers -1)))
>
>  ;; This is C-TAB and C-M-TAB for the Linux console.  This requires special
>  ;; setup; namely, you need to load a keymap file with /usr/bin/loadkeys
>  ;; containing the following lines:
>  ;;
>  ;; control keycode 15 = Macro
>  ;; control alt keycode 15 = Pause
>  ;;
>  ;; If you actually -have- a key that generates the Macro or Pause
> keysyms,  you
>  ;; have a better keyboard than I.  For me, this makes Emacs DWIW.
> Credit for
>  ;; this hack goes to Alex Schroeder.
>
>  (global-set-key (kbd "ESC [ M") 'stesla-rotate-buffers)
>  (global-set-key (kbd "ESC [ P") (lambda ()
>                                   (interactive)
>                                   (stesla-rotate-buffers -1)))
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; SLIME setup
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> ;(setq slime-lisp-implementations
> ;      '((sbcl ("sbcl" "--core" "/usr/bin/sbcl"))))
>
> ;; possibly controversial as a global default, but shipping a lisp
> ;; that dies trying to talk to slime is stupid, so:
> (set-language-environment "UTF-8")
> (setq slime-net-coding-system 'utf-8-unix)
>
> ;; load slime:
> (setq load-path (cons "/home/lat/clbuild/source/slime" load-path))
> (setq load-path (cons "/home/lat/clbuild/source/slime/contrib" load-path))
> (setq slime-backend "/home/lat/clbuild/.swank-loader.lisp")
> (setq inhibit-splash-screen t)
> (load "/home/lat/clbuild/source/slime/slime")
> (setq inferior-lisp-program "/usr/local/bin/sbcl")
> (setq slime-use-autodoc-mode nil)
> (slime-setup '(slime-fancy slime-tramp slime-asdf))
> (slime-require :swank-listener-hooks)
> (define-key slime-mode-map (kbd "C-M-x")  'slime-eval-defun)
>
> (setq slime-backend "/home/lat/clbuild/.swank-loader.lisp")
> (setq inhibit-splash-screen t)
> (load "/home/lat/clbuild/source/slime/slime")
> (setq inferior-lisp-program "/usr/bin/sbcl")
> (setq slime-use-autodoc-mode nil)
> (slime-setup '(slime-fancy slime-tramp slime-asdf))
> (slime-require :swank-listener-hooks)
> (define-key slime-mode-map (kbd "C-M-x")  'slime-eval-defun)
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; AUCTEX settings
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (load "auctex.el" nil t t)
> (load "preview-latex.el" nil t t)
>
> (setq TeX-PDF-mode t)
> (defun pdfevince ()
>    (add-to-list 'TeX-output-view-style
>                     (quote ("^pdf$" "." "evince %o %(outpage)")))
> )
>
> (add-hook  'LaTeX-mode-hook  'pdfevince  t) ; AUCTeX LaTeX mode
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; erc --- irc client
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (add-to-list 'load-path "~/elisp/erc")
> (require 'erc)
> (setq erc-echo-notices-in-minibuffer-flag t)
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Wanderlust
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> ;; autoload configuration
> ;; (Not required if you have installed Wanderlust as XEmacs package)
> (autoload 'wl "wl" "Wanderlust" t)
> (autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
> (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Misc.
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (global-auto-revert-mode t)
>
> (set-default-font "DejaVu Sans Mono-14")
> (set-fontset-font (frame-parameter nil 'font)
>                   'han '("cwTeXHeiBold" . "unicode-bmp"))
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; emacros
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (load-file "/home/lat/emacros/emacros.elc")
> (global-set-key (kbd "<f5>") 'emacros-name-last-kbd-macro-add)
> (global-set-key (kbd "C-M-x") 'slime-eval-defun)
> (global-set-key "\C-cs" 'slime-selector)
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Org-mode settings
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
> (global-set-key "\C-cl" 'org-store-link)
> (global-set-key "\C-ca" 'org-agenda)
> (global-font-lock-mode 1)
>
> (setq org-clock-persist t)
> (setq org-clock-in-resume t)
> (require 'org-clock)
> (org-clock-persistence-insinuate)
>
> ;; (setq org-agenda-include-diary t)
>
> (setq org-agenda-skip-scheduled-if-done t)
> (setq org-agenda-skip-deadline-if-done t)
> (setq org-agenda-skip-timestamp-if-done t)
>
> (setq org-tag-alist '(("@malls-45" . ?m) ("@computers" . ?c)
> ("@hardware" . ?h) ("@gov" . ?g) ("@books" . ?b)))
>
> ;(org-remember-insinuate)
> ;(setq org-directory "~/org/")
> ;(setq org-default-notes-file (concat org-directory "/notes.org"))
> ;(define-key global-map "\C-cr" 'org-remember)
> ;(setq org-remember-templates
> ;      '(("Journal" ?j "* %U %?\n\n %i\n %a" "~/org/journal.org"
> ;"Journal")))
>
> ;; popup alarm windows for org-mode ------------------- 
> http://article.gmane.org/gmane.emacs.orgmode/5271
> ;; Add appointments from the diary to the agenda at startup and make
> org-agenda-redo rescan the appt list:
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Org-mode latex export book class
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (require 'org-latex)
>
> (add-to-list 'org-export-latex-classes
>              '("book"
>                "\\documentclass[11pt,letter]{book}"
>                ("\\part{%s}" . "\\part*{%s}")
>                ("\\chapter{%s}" . "\\chapter*{%s}")
>                ("\\section{%s}" . "\\section*{%s}")
>                ("\\subsection{%s}" . "\\subsection*{%s}")
>                ("\\subsubsection{%s}" . "\\subsubsection*{%s}")))
>
> (setq load-path (cons "/home/lat/org-mode/lisp/org-taskjuggler.el"
> load-path))
> (add-to-list 'load-path "~/org-mode/lisp/")
> (require 'org-taskjuggler)
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Begin org-mode setting from norang
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (add-to-list 'load-path (expand-file-name "~/org-mode/lisp"))
> (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$"
> . org-mode))
>
> (load-file "/home/lat/org-mode/lisp/org-capture.el")
>
> (require 'org-install)
> ;;
> ;; Standard key bindings
> (global-set-key "\C-cl" 'org-store-link)
> (global-set-key "\C-ca" 'org-agenda)
> (global-set-key "\C-cb" 'org-iswitchb)
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Org-mode for gnus
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (setq message-mode-hook
>       (quote (orgstruct++-mode
>               (lambda nil (setq fill-column 72) (flyspell-mode 1))
>               turn-on-auto-fill
>               bbdb-define-all-aliases)))
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Enable yasnippet
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (add-to-list 'load-path
>               "~/.emacs.d/plugins")
> (require 'yasnippet-bundle)
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Enable flyspell-mode
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> ;; Make TAB the yas trigger key in the org-mode-hook and enable
> flyspell mode and autofill
> (add-hook 'org-mode-hook
>           (lambda ()
>             ;; yasnippet
>             (make-variable-buffer-local 'yas/trigger-key)
>             (org-set-local 'yas/trigger-key [tab])
>             (define-key yas/keymap [tab] 'yas/next-field-group)
>             ;; flyspell mode for spell checking everywhere
>             (flyspell-mode 1)
>             ;; auto-fill mode on
>             (auto-fill-mode 1)))
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; agenda setup
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (setq org-agenda-files (quote ("~/org/refile.org"
>                                "~/org.org"
>                                "~/org/schedule.org"
>                                "~/org/npa.org"
>                                "~/org/anniv.org")))
>
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Org-mode key bindings
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> ;; Custom Key Bindings
> (global-set-key (kbd "<f12>") 'org-agenda)
> (global-set-key (kbd "<f5>") 'bh/org-todo)
> (global-set-key (kbd "<S-f5>") 'bh/widen)
> (global-set-key (kbd "<f7>") 'set-truncate-lines)
> (global-set-key (kbd "<f8>") 'org-cycle-agenda-files)
> (global-set-key (kbd "<f9> b") 'bbdb)
> (global-set-key (kbd "<f9> c") 'calendar)
> (global-set-key (kbd "<f9> f") 'boxquote-insert-file)
> (global-set-key (kbd "<f9> g") 'gnus)
> (global-set-key (kbd "<f9> h") 'bh/hide-other)
>
> (defun bh/hide-other ()
>   (interactive)
>   (save-excursion
>     (org-back-to-heading)
>     (org-shifttab)
>     (org-reveal)
>     (org-cycle)))
>
> (global-set-key (kbd "<f9> i") 'bh/org-info)
>
> (defun bh/org-info ()
>   (interactive)
>   (info "~/org-mode/doc/org.info"))
>
> (global-set-key (kbd "<f9> I") 'bh/clock-in)
> (global-set-key (kbd "<f9> O") 'bh/clock-out)
> (global-set-key (kbd "<f9> r") 'boxquote-region)
> (global-set-key (kbd "<f9> s") 'bh/go-to-scratch)
>
> (defun bh/go-to-scratch ()
>   (interactive)
>   (switch-to-buffer "*scratch*")
>   (delete-other-windows))
>
> (global-set-key (kbd "<f9> t") 'bh/insert-inactive-timestamp)
> (global-set-key (kbd "<f9> u") 'bh/untabify)
>
> (defun bh/untabify ()
>   (interactive)
>   (untabify (point-min) (point-max)))
>
> (global-set-key (kbd "<f9> v") 'visible-mode)
> (global-set-key (kbd "<f9> SPC") 'bh/clock-in-last-task)
> (global-set-key (kbd "C-<f9>") 'previous-buffer)
> (global-set-key (kbd "C-x n r") 'narrow-to-region)
> (global-set-key (kbd "C-<f10>") 'next-buffer)
> (global-set-key (kbd "<f11>") 'org-clock-goto)
> (global-set-key (kbd "C-<f11>") 'org-clock-in)
> (global-set-key (kbd "C-s-<f12>") 'bh/save-then-publish)
> (global-set-key (kbd "M-<f11>") 'org-resolve-clocks)
> (global-set-key (kbd "C-M-r") 'org-capture)
> (global-set-key (kbd "M-<f9>") (lambda ()
>                                  (interactive)
>                                  (unless (buffer-modified-p)
>                                    (kill-buffer (current-buffer)))
>                                  (delete-frame)))
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; TODO keywords
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (setq org-todo-keywords '((sequence "TODO(t)" "|" "NEXT(n)" "|"
> "DONE(d!)" "|" "CANC(n@)")
>                           (sequence "lat(l)" "cgt(c)" "skt(s)"
> "kiy(k)" "cet(e)" "lst(v)")))
>
> (setq org-todo-keyword-faces
>       (quote (("TODO"      :foreground "red"          :weight bold)
>               ("NEXT"      :foreground "blue"         :weight bold)
>               ("DONE"      :foreground "forest green" :weight bold)
>               ("CANC"      :foreground "forest green" :weight bold)
>               ("WAITING"   :foreground "yellow"       :weight bold)
>               ("SOMEDAY"   :foreground "goldenrod"    :weight bold))))
>
>
> (setq org-use-fast-todo-selection t)
> (setq org-treat-S-cursor-todo-selection-as-state-change nil)
>
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;; Org Capture
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> (require 'org-macs)
>
> ;(setq org-default-notes-file (concat org-directory "~/org/notes.org"))
> ;(define-key global-map "\C-cc" 'org-capture)
>
> (setq org-default-notes-file "~/org/refile.org")
>
> ;; I use C-M-r to start capture mode
> (global-set-key (kbd "C-M-r") 'org-capture)
>
> ;; 3 capture templates for TODO tasks, Notes, and org-protocol (untested)
> (setq org-capture-templates (quote (("t" "todo" entry (file
> "~/org/refile.org") "* TODO %?
>   %U
>   %a" :clock-in t :clock-resume t)
>                                     ("n" "note" entry (file
> "~/org/refile.org") "* %?
> :NOTE:
>   %U
>   %a
>   :CLOCK:
>   :END:" :clock-in t :clock-resume t)
>                                     ("w" "org-protocol" entry (file
> "~/org/refile.org") "* TODO Review %c
>   %U" :immediate-finish t :clock-in t :clock-resume t))))
>
> ;; Remove empty CLOCK drawers on clock out
> (defun bh/remove-empty-drawer-on-clock-out ()
>   (interactive)
>   (save-excursion
>     (beginning-of-line 0)
>     (org-remove-empty-drawer-at "CLOCK" (point))))
>
> (add-hook 'org-clock-out-hook 'bh/remove-empty-drawer-on-clock-out 'append)
>
> ; Use IDO for target completion
> (setq org-completion-use-ido t)
>
> ; Targets include this file and any file contributing to the agenda -
> up to 5 levels deep
> (setq org-refile-targets (quote ((org-agenda-files :maxlevel . 5) (nil
> :maxlevel . 5))))
>
> ; Targets start with the file name - allows creating level 1 tasks
> (setq org-refile-use-outline-path (quote file))
>
> ; Targets complete in steps so we start with filename, TAB shows the
> next level of targets etc
> (setq org-outline-path-complete-in-steps t)
>
> ; Allow refile to create parent tasks with confirmation
> (setq org-refile-allow-creating-parent-nodes (quote confirm))
>
> ; Use IDO only for buffers
> ; set ido-mode to buffer and ido-everywhere to t via the customize interface
> ; '(ido-mode (quote both) nil (ido))
> ; '(ido-everywhere t)
>
> Thanks again,
> Lou

Can you move following line to the beginning for org-mode settings?

(add-to-list 'load-path "~/org-mode/lisp/")

Thanks and Regards
Noorul



reply via email to

[Prev in Thread] Current Thread [Next in Thread]