From: Louis Turk <lou@dayspringpublisher.com>
To: Noorul Islam K M <noorul@noorul.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: org-default-notes-file
Date: Mon, 18 Oct 2010 17:53:48 +0800 [thread overview]
Message-ID: <4CBC192C.1010700@dayspringpublisher.com> (raw)
In-Reply-To: <87pqv7oo04.fsf@noorul.maa.corp.collab.net>
On 10/18/2010 05:20 PM, Noorul Islam K M wrote:
> Louis Turk<lou@dayspringpublisher.com> writes:
>
>> On 10/18/2010 05:09 PM, Noorul Islam K M wrote:
>>
>>> Louis Turk<lou@dayspringpublisher.com> writes:
>>>
>>>> On 10/18/2010 03:16 PM, Noorul Islam K M wrote:
>>>>
>>>>> Louis Turk<lou@dayspringpublisher.com> 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
next prev parent reply other threads:[~2010-10-18 9:55 UTC|newest]
Thread overview: 19+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-10-18 6:43 org-default-notes-file Louis Turk
2010-10-18 7:16 ` org-default-notes-file Noorul Islam K M
2010-10-18 8:45 ` org-default-notes-file Andreas Röhler
2010-10-18 9:02 ` org-default-notes-file Noorul Islam K M
2010-10-18 9:39 ` org-default-notes-file Andreas Röhler
2010-10-18 11:10 ` org-default-notes-file Louis Turk
2010-10-18 11:54 ` org-default-notes-file Andreas Röhler
2010-10-18 18:16 ` org-default-notes-file David Maus
2010-10-18 18:59 ` Andreas Röhler
2010-10-18 19:18 ` Andreas Röhler
[not found] ` <4CBC0BC1.40304@dayspringpublisher.com>
2010-10-18 9:09 ` org-default-notes-file Noorul Islam K M
[not found] ` <4CBC101F.3020103@dayspringpublisher.com>
2010-10-18 9:20 ` org-default-notes-file Noorul Islam K M
2010-10-18 9:53 ` Louis Turk [this message]
2010-10-18 10:03 ` org-default-notes-file Noorul Islam K M
2010-10-18 11:05 ` org-default-notes-file Louis Turk
2010-10-18 11:17 ` org-default-notes-file Noorul Islam K M
2010-10-18 11:36 ` org-default-notes-file Louis Turk
2010-10-18 17:28 ` org-default-notes-file Eric S Fraga
2010-10-18 21:10 ` org-default-notes-file Sébastien Vauban
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=4CBC192C.1010700@dayspringpublisher.com \
--to=lou@dayspringpublisher.com \
--cc=emacs-orgmode@gnu.org \
--cc=noorul@noorul.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).