* Re: [BUG] org-collector.el broken by 8.3 beta
2015-08-05 0:01 ` Bastien Guerry
@ 2015-08-06 12:19 ` Charles Millar
0 siblings, 0 replies; 3+ messages in thread
From: Charles Millar @ 2015-08-06 12:19 UTC (permalink / raw
To: Bastien Guerry; +Cc: emacs-orgmode@gnu.org
[-- Attachment #1: Type: text/plain, Size: 3249 bytes --]
Hi Bastien,
On 08/04/2015 08:01 PM, Bastien Guerry wrote:
> Hi Charles,
>
> Charles Millar <millarc@verizon.net> writes:
>
>> org-collector works as expected using
>>
>> GNU Emacs 24.4.1 (i586-pc-linux-gnu, GTK+ Version 3.14.5)
>> of 2015-03-07 on binet, modified by Debian
>> Org: 8.2.10 release_8.2.10
>>
>> but fails if
>>
>> GNU Emacs 24.4.1 (i586-pc-linux-gnu, GTK+ Version 3.14.5)
>> of 2015-03-07 on binet, modified by Debian
>> Org: 8.3beta release_8.3beta-1030-g65bbb1
> Can you be more specific on the kind of failure do you have?
>
To start off -
Linux Mint Mate 17.1
GNU Emacs 24.3.1 (x86_64-pc-linux-gnu, GTK+ Version 3.10.7) of
2014-03-07 on lamiak, modified by Debian
Org-mode version 8.3.1 (release_8.3.1-1-gb5f5d6.dirty @
/usr/share/emacs/site-lisp/org-mode/lisp/)
If I copy the code blocks that are in Eric's explanation at
http://orgmode.org/worg/org-contrib/org-collector.html
into my org-collector-example.org file and then evaluate (execute?) the
src blocks the results are
#+BEGIN: propview :id "december" :conds ((string= spendtype "food"))
:cols (ITEM amount)
| ITEM | amount |
|------+--------|
|------+--------|
| | |
#+END:
#+BEGIN: propview :cols (ITEM (+ 400 amount)) :scope tree :match "example"
| ITEM | (+ 400 amount) |
|---------------------------------------+----------------|
| "** December Spending" | 0 |
| "*** Week One" | 0 |
| "**** Grocery Store [2008-12-01 Mon]" | 0 |
| "**** Athletic club [2008-12-02 Tue]" | 0 |
| "*** Week Two" | 0 |
| "**** Restaurant [2008-12-08 Mon]" | 0 |
|---------------------------------------+----------------|
| | |
#+END:
This happens both in Lint mate 17.1 environment as well as in terminal
if simply load emacs, i.e. click on the icon, call emacs in the command
line, etc.
On the other hand if I go to a terminal and load emacs -q and then load
org-collector.org I get the expected results, i.e.
#+BEGIN: propview :id "december" :conds ((string= spendtype "food"))
:cols (ITEM amount)
| ITEM | amount |
|----------------------------------+--------|
| "Grocery Store [2008-12-01 Mon]" | 56.77 |
| "Restaurant [2008-12-08 Mon]" | 30.67 |
|----------------------------------+--------|
| | |
#+END:
#+BEGIN: propview :cols (ITEM (+ 400 amount)) :scope tree :match "example"
| ITEM | (+ 400 amount) |
|----------------------------------+----------------|
| "December Spending" | 0 |
| "Week One" | 0 |
| "Grocery Store [2008-12-01 Mon]" | 456.77 |
| "Athletic club [2008-12-02 Tue]" | 475.0 |
| "Week Two" | 0 |
| "Restaurant [2008-12-08 Mon]" | 430.67 |
|----------------------------------+----------------|
| | |
#+END:
Just in case I attach a copy of my init file which is a mess.
Also, version 8.2.10 appears to have no problem.
Charlie
[-- Attachment #2: init.el --]
[-- Type: text/x-emacs-lisp, Size: 32243 bytes --]
;;; Started 2014-10-26 /home/charlie00
;;;; GNU Emacs 24.3.1 (i486-pc-linux-gnu, GTK+ Version 3.12.2) of 2014-06-06 on babin, modified by Debian
;;;; Org-mode version 8.3beta (release_8.3beta-482-g926553 @ /usr/share/emacs/24.3/site-lisp/org-mode/lisp/)
;;; Look for .customs.emacs file and load it if found
;(if "~/.emacs-w3m.el"
; (load "~/.emacs-w3m.el" t t))
(if "~/.customs.emacs"
(load "~/.customs.emacs" t t))
;;; Art: added with v. 23.1 to make spacebar complete filenames (8/17/2009)
;;; may be from Brendt or Adams, can't recall
(progn
(define-key minibuffer-local-completion-map " " 'minibuffer-complete-word)
(define-key minibuffer-local-filename-completion-map " " 'minibuffer-complete-word)
(define-key minibuffer-local-must-match-filename-map " " 'minibuffer-complete-word))
;;; Art: added with v. 23.1
;;; Set env variable this way? I used the traditional way instead
;(info "(emacs) Windows HOME")
;;; turn off the menu, tool and scroll bars
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
;;; display column information in mode line
(column-number-mode t)
;;; show size of the buffer
(size-indication-mode t)
;;; display time in 24 hour mode
(display-time)
(setq display-time-24hr-format t)
;;; display battery charge
(setq display-battery-mode t)
;;; no blinking cursor
(setq blink-cursor-mode t)
;;; turn off transient mode mark - my option
(setq transient-mark-mode nil)
;;; turn on word wrap for all modes
;(global-visual-line-mode nil)
;;; enable narrow to region
(put 'narrow-to-region 'disabled nil)
;;; increase recursion depth
(setq max-specpdl-size 10000)
(setq max-lisp-eval-depth 10000)
(setq debug-on-error t)
;;; New bell/warning sound (from emacs wiki)
;(setq ring-bell-function (lambda ()
; (call-process "Windows Media Player" nil 0 nil
; "c:\\Windows\\Media\\Characters\\nautical024.wav")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;CALENDAR AND DIARY CONFIGURATION;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq diary-file "/mnt/Data/ActiveFiles/Diary.org") ; to keep all scheduling in the org directory
(setq calendar-week-start-day 1) ; start calendar buffer on Monday (day of week = 1) not Sunday (day of week = 0) as set up in calendar.el
(setq calendar-date-style 'iso) ; so that all calendar entries are consistent
; also the YYYY-MM-DD format is better
; for sorting purposes
(setq calendar-latitude 43.1)
(setq calendar-longitude -75.3)
(setq calendar-location-name "Utica, NY")
;;;;;;;;;;;;;;;;;;;;;;;;;;ASPELL;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;copied from emacswiki/elisp/;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;Comments are not CM's;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; You need to add the path of the aspell exec to your emacs exec-path. I tried the path string without the C: at the beginning but it did not work consistently.
; (add-to-list 'exec-path "C:/Program Files/Aspell/bin/")
; We need tell emacs to use aspell, and where your custom dictionary is.
(setq ispell-program-name "aspell")
(setq ispell-personal-dictionary "~/.emacs.d/.ispell")
; Then, we need to turn it on.
(require 'ispell)
; From mailing list so that ispell does not flag TeX
(add-hook 'org-mode-hook (lambda () (setq ispell-parser 'tex)))
;; Declare the flyspell-mode function as auto-load. For this, add to your .emacs file the following expression:
(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t)
(autoload 'flyspell-delay-command "flyspell" "Delay on command." t)
(autoload 'tex-mode-flyspell-verify "flyspell" "" t)
;; At that stage, you are ready to use Flyspell with M-x flyspell-mode.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;INTERACTIVELY DO THINGS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;otherwise known as IDO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Use for target completion
(require 'ido)
(ido-mode 1)
(setq ido-everywhere t)
(setq ido-enable-flex-matching t)
(setq ido-max-directory-size 100000)
(setq ido-file-extensions-order '(".org" ".tex" ".dat" ".txt" ".emacs" ".el" ".ini" ".cfg" ".cnf"))
(setq ido-max-directory-size 100000)
(ido-mode (quote both))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;ORG MODE CONFIGURATION;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; following are paths used in multiple instances or
;;; for that matter just once and then just change the
;;; the following if and when this .emacs is moved from
;;; one system to another; just change the quoted path
;;; NOTE - the / must be included when used
;;; e.g. emacspath/ not just emacspath
;(let
;;; for loading packages not included in emacs
;(defvar emacspath "c:/emacs/emacs-24.3/site-lisp")
;;; org mode path
;(defvar orgpath "c:/cygwin/home/Charlie01/.elisp/Org-Mode")
;;; for most but not all cpature template locations
; 'capturepath "c:/Data/Emacs-Files/Org-Files"
;;; Special location for ledger capture template
; 'ledgerpath "c:/Data/Emacs-Files"
; )
;; Following pasted in from Russell Adams video
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Installing orgmode
;; Load org-mode
;;; following was added 2013-09-23; documentation requires
;;; that this be loaded before org.el
(setq org-list-allow-alphabetical t)
;;;; current org is loaded via /usr/share/emacs/site-lisp/.emacs
;;;; follwoing comment out, but use for Windows with cygwin
;(add-to-list 'load-path "c:/cygwin/home/Charlie01/.elisp/org-mode/lisp")
;(add-to-list 'load-path "c:/cygwin/home/Charlie01/.elisp/org-mode/contrib/lisp")
;;;; Following may be used if Org-Mode is in Windows directory
;(add-to-list 'load-path "c:\\Org-Mode\\org-mode\\lisp")
;(add-to-list 'load-path "c:\\Org-Mode\\org-mode\\contrib\\lisp")
(add-to-list 'load-path "/usr/share/emacs/site-lisp/org-mode/lisp")
(add-to-list 'load-path "/usr/share/emacs/site-lisp/org-mode/contrib/lisp")
;(add-to-list 'load-path "usr/share/emacs/site-lisp/org-mode/addlcontrib/lisp")
;(require 'org-install) ;; ?not required since emacs v 6(?) becuase
;; Org is part of emacs package
(require 'org) ;; must be loaded when .emacs is run so org is loaded
;; at start up; this way capture may be used
;; prior to any other use of org
;; note this is placed after the add-to-list; makes sense
;; since Org may be distributed with emacs but is separate
;; i.e. not part of emacs lisp.el
;;
; Following needed for habits in agenda
(provide 'org-habit)
; Following added using Brendt Hansen .emacs; not sure it it will be in the way
; I believe it is the first time I have used a hook (2012-09-08)
; Turn on flyspell for all org files
(add-hook 'org-mode-hook 'turn-on-flyspell 'append)
;; The following lines are always needed. Choose your own keys.
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(add-hook 'org-mode-hook 'turn-on-font-lock) ; not needed when
(global-set-key "\C-cl" 'org-store-link) ;; global-font-lock-mode is on
(global-set-key "\C-ca" 'org-agenda)
; (global-set-key "\C-cj" 'org-journal-entry)
(global-set-key (kbd "\C-cm") 'org-capture)
;;;; set-key is CM defined for tables in Org-Mode
;;;; see below for Carsten Dominick's code for iteration all tables
;;;; if using radio tables
(global-set-key "\C-cj" 'org-table-iterate-buffer-tables)
;(global-set-key "\C-cr' 'org-capture) commented out for the
; above stolen from Charles Cave (I think); use what is essentially
; one key-stoke instead of two i.e \C-cr
;(global-set-key "\C-cb" 'org-iswitchb) commented out when IDO added
(setq org-indent-mode)
(setq org-catch-invisible-edits 'error)
;;;;;;;; calc precision, so that tables can have 10 to the 9th plus change
;;;;; cheated and used customized first
(setq org-calc-default-modes (quote (calc-internal-prec 12 calc-float-format (float 12) calc-angle-mode deg calc-prefer-frac nil calc-symbolic-mode nil calc-date-format (YYYY "-" MM "-" DD " " Www (" " hh ":" mm)) calc-display-working-message t)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;ORG-AGENDA.EL CUSTOM SETTINGS;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq org-agenda-files (list "/mnt/Data/ActiveFiles/Diary.org")) ;file locations to search
(setq org-agenda-span 14)
(setq org-agenda-include-diary t)
(setq org-agenda-remove-tags t)
(setq org-agenda-skip-additional-timestamps-same-entry nil)
;if same appointment is scheduled over more
;than one hour it shows for each hour
;(setq org-agenda-repeating-timestamp-show-all nil) ;if same task or
; whatever is repeated over a
; period of days, only the current
; day or nearest day in the future
; is shown in the agenda
(setq org-agenda-skip-scheduled-if-done t) ; "Done" items will not
; be displayed in agenda
(setq org-agenda-start-on-weekday nil) ;starts agenda week view "today"
;rather than a fixed day each week
(setq org-timeline-show-empty-dates t) ;shows all seven days even
;though nothing is scheduled
(setq org-agenda-use-time-grid nil)
(setq org-agenda-time-grid ;may change "daily" to "weekly"
'((daily today require-timed remove-match) ;to show grid for entire week
""
(500 600 700 800 830 900 930 1000 1030 1100 1130 1200 1230 1300 1330 1400 1430 1500 1530 1600 1630 1700 1800 1900 2000 2100 2200)))
;changes default time grid from 0800
;through 2000 in two hour increments
(setq org-agenda-show-current-time-in-grid nil) ;gets rid of the pesky
;dotted line and "now" and
;time - why use it since
;time is in the mode line
;see above setq display time
;;;;;;;;;;;;;;;;;;;;Export (ox.el) Settings ;;;;;;;;;;;;;;;;;;;
(setq org-export-with-author nil
org-export-with-creator nil
org-export-with-date nil
org-export-with-archived-trees nil
; org-export-headline-levels nil
)
(setq org-latex-default-table-environment "longtable")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; My custom LaTeX class for Org-mode export. require is needed for it to work.
(require 'ox-latex)
(setq org-latex-title-command nil
org-latex-toc-command nil
; org-latex-with-hyperref nil
org-latex-tables-centered nil
org-export-with-date nil
org-export-with-author nil
org-export-with-creator nil
org-export-with-archived-trees nil
org-export-headline-levels nil
; org-latex-hyperref-template "\\hypersetup{}"
org-latex-hyperref-template ""
)
;;; From http://lists.gnu.org/archive/html/emacs-orgmode/2013-03/msg00312.html ;;;
;;; emails between Eric S. Fraga and Nicolas Goaziou
;;; Re: [O] [new exporter] ignoring a headline on export to PDF via latex
;;; following is the second source code in Goaziou's answer
;;; BE SURE TO ADD tag :ignoreheading: to each headline that will be exported
;;; so that no section, item, etc is to be entered by enumerate or itemize packages
;;; only :export: :noexport: need to be changed depending on
;;; which documents are to be exported; only the in-file headline labled
;;; Latex Headers are always exported
;;; if desired can change ignoreheading in the code, etc.
(defun org-latex-ignore-heading-filter-headline (headline backend info)
"Strip headline from HEADLINE. Ignore BACKEND and INFO."
(when (and (org-export-derived-backend-p backend 'latex)
(string-match "\\`.*ignoreheading.*\n" headline))
(replace-match "" nil nil headline)))
(add-to-list 'org-export-filter-headline-functions
'org-latex-ignore-heading-filter-headline)
;;; end of code ;;;;;;;;;;;;;;;;;;
;;; begin my Latex setups; change names later on
;;; see LaTeX Export for Org Mode < 8.0
;;; http://orgmode.org/worg/org-tutorials/org-latex-export.html
(add-to-list 'org-latex-classes
'("mysetup"
"\\documentclass[11pt,letterpaper,oneside]{scrartcl}
\\usepackage{verbatim}
% \\usepackage[T1]{fontenc}
% \\usepackage{charter,parskip,setspace,layout}
\\usepackage{charter,setspace,layout}
\\usepackage{array,graphicx}
\\usepackage{tabularx,tabulary}
\\usepackage{longtable}
\\usepackage{tabu}
\\usepackage{numprint}
\\npstyleenglish
\\usepackage[at]{easylist}
\\usepackage{csquotes}
%\\usepackage[letterpaper,margin=1.00in]{geometry}
\\usepackage[letterpaper,left=1.00in,right=1.00in,top=1.00in,bottom=0.50in]{geometry}
% \\usepackage[top=1.0in,bottom=0.4in,left=1.2in,nohead]{geometry}
%\\pagestyle{empty}
\\pagenumbering{arabic}
\\newcommand\\foo{bar}
[NO-DEFAULT-PACKAGES]
[NO-PACKAGES]
[EXTRA]"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
(add-to-list 'org-latex-packages-alist "tabu")
;;; Carsten Dominick's code for updating all radio tables
;;; when using tables in LaTeX
(defun my-org-send-all-tables ()
(interactive)
(org-table-map-tables
(lambda () (orgtbl-send-table 'maybe))))
;;; Babel set for when I get around to using it
(org-babel-do-load-languages
'org-babel-load-languages '((awk . t)
(calc . t)
(C . t)
(clojure . t)
(emacs-lisp . t)
(latex . t)
(ledger . t)
(lisp . t)
(rec . t)
(org . t)
(scheme . t)
(sh . t)))
;;; files for org-babel-library-of-babel
(setq org-babel-lob-files t)
;;; fontify code blocks
(setq org-src-fontify-natively t)
;;; use indent for code blocks
(setq org-src-tab-acts-natively t)
;;; do not ask for confimration when executing or evaluating code blocks
;;;;; DANGEROUS ;;;;;;;
(setq org-confirm-babelA-execute nil)
(setq org-confirm-babel-evaluate nil)
;;;;;;;;;;;;;;;;;;;;;;;ORG-INVOICE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(require 'org-invoice)
;(autoload 'org-invoice-report "org-invoice")
;(autoload 'org-dblock-write:invoice "org-invoice")
;;;;;;;;;;;;;;;;;;;;ORG-COLLECTOR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'org-collector)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;Refile C-c C-w Configuration;;;;;;;;;;;;;;;;;;
;;;Bernt Hansen tutorial;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;REFILE TARGETS TO GO HERE;;;;;;;;;;;;;;;
;;;;;;IS IDO NECESSARY, IF SO WHERE TO LOAD IT ;;;;;;;;;;;;;;;;
;;;;;;;SEE BRENDT HANSEN ORG MODE TUTORIAL ;;;;;;;;;;;;;;;;;;;;
;;;Org-refile settings follow - after experimentation
;;; All I want is to refile directly to a file at the bottom
;;; of that file and as a top level entry so that I can use
;;; M-up and then change level, etc. using the C-M-S combo keys
;;; Targets include this file and any file contributing to the agenda - up to __ levels deep; chose levels only, not maxlevel
(setq org-refile-targets (quote ((org-agenda-files :level . 3) (nil :level . 3))))
;;; Stop using paths for refile targets - we file directly with IDO
;;; If true OK, I think that this allows just to enter the file
;;; name and presents a completion buffer - see below
(setq org-refile-use-outline-path 'file)
;;; Targets complete directly with IDO
(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 for both buffer and file completion and ido-everywhere to t
(setq org-completion-use-ido t)
; (setq ido-everywhere t)
;;;; Additional Refile settings
; Exclude DONE state tasks from refile targets
;(defun bh/verify-refile-target () COMMENTED OUT
; "Exclude todo keywords with a done state from refile targets" COMMENTED OUT
; (not (member (nth 2 (org-heading-components)) org-done-keywords))) COMMENTED OUT
;(setq org-refile-target-verify-function 'bh/verify-refile-target) COMMENTED OUT
;;;;;;;;;;;;;;;;;;;;;;;HEADLINE KEYWORDS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;TODO KEYWORDS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq org-todo-keywords
'(
;; start most sequences with one of the following
(type "TODO(t)" "IN-PROCESS(i@/!)" "ON-HOLD(h@/!)" "|")
;; appointment, schedule self-contained sequence keywords
(type "APPOINTMENT(a)" "RESCHEDULED(x@/!)" "|")
;; sequence for exercise habit
(sequence "Exercise" "|" "Missed(m)" "Did_it(i@/!)")
;; sequence for paying bills
(type "PAY(p)" "|")
;; final sequence for all other TODO's
(type "|" "NOT-ATTENDED(n@/!)" "CANCELLED(c@/!)" "DONE(d@/!)" )
))
;(setq org-log-done 'note)
(setq org-todo-keyword-faces
(quote (("TODO" :foreground "red" :weight bold :underline t)
("IN-PROCESS" :foreground "red")
("ON-HOLD" :foreground "red")
("APPOINTMENT" :foreground "red" :weight bold :background "#87ceeb")
("PAY" :foreground "red" :weight bold :background "gold")
("RESCHEDULED" :foreground "blue" :weight bold)
("NOT-ATTENDED" :foreground "black" :weight bold)
("CANCELLED" :foreground "black" :weight bold)
("DONE" :foreground "black" :weight bold))))
; Another Brendt Hansen .emacs setting (2012-09-08)
; allows changing todo states with S-left and S-right skipping
; all of the normal processing when entering or leaving a todo
; state. This cycles through the todo states but skips setting
; timestamps and entering notes which is very convenient when
; all you want to do is fix up the status of an entry.
(setq org-treat-S-cursor-todo-selection-as-state-change nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TAGS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq org-tag-alist '(
("Estate" . nil) ("Trust" . nil) ("Client" . nil) ("Decedent" . nil) ("Grantor" . nil) ("Executor" . nil) ("Administrator" . nil) ("Trustee" . nil) ("Distributee" . nil) ("Legatee" . nil) ("Beneficiary" . nil) ("Remainderman" . nil) ("Appraiser" . nil) ("Lawyer" . nil) ("Bank" . nil) ("Broker" . nil)
(:newline . nil)
(:startgroup . nil) ("@lawyers" . ?L)
(:grouptags . nil)
("Earl" . ?E) ("Williams" . ?W) ("Hallak" . ?J) ("ShafferBobrow" . ?S) ("Bobrow" . ?B) ("Nackley" . ?N) ("Ludlow" . ?L) ("Hobika" . ?H) ("Palewski" . ?P)
(:endgroup . nil) (:newline . nil)
(:startgroup . nil) ("Open" . ?O) ("Closed" . ?C) (:endgroup . nil) (:newline )
(:startgroup . nil) ("124" . ?A) ("LACNY" . ?W) ("Sunset" . ?S) ("River" . ?R) ("Libertarian" . nil) ("MLM" . nil) ("CM" . nil) ("Buy" . nil) ("Pay" . nil) (:endgroup . nil) (:newline . nil)
(:startgroup . nil) ("Meeting" . nil) ("Phone" . ?T) ("Appointment" . nil) ("Court" . nil) ("EBT" . nil) (:endgroup . nil)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Capture;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq org-default-notes-file "/mnt/Data/ActiveFiles/Bucket.org")
;; Original if any left taken from Capture from Russell Adams snips
;; Modified as to target files and removed interactive date from TODO template
(add-to-list 'org-modules 'org-habit) ; so that habit is added to
; module list in org.el
(setq /mnt/Data/ActiveFiles '(there))
(setq org-capture-templates '(
; Added Ocotber 23, 2011
("b" "Buy" entry
(file "mnt/Data/ActiveFiles/Diary.org")
"* TODO %? %i :Buy: \n - Date Entered %U\n"
:empty-lines 2)
; Added January 5, 2012
("p" "Pay" entry
(file "/mnt/Data/ActiveFiles/Diary.org")
"* PAY %?%^{DueDate}t %^{Payee} %i %^{AmountDue} :%^{Who pays}: "
:empty-lines 1)
; Added April 16, 2013
("m" "MakePhoneCall" entry
(file "/mnt/Data/ActiveFiles/Diary.org")
"* TODO %? %i :Phone: \n - Date Entered %U\n"
:empty-lines 2)
; Added January 6, 2012
("a" "Appointment" entry
(file "/mnt/Data/ActiveFiles/Diary.org")
"* APPOINTMENT %?%^{BeginTimeDuration}T %^{Location} %^{Reason} %^{with whom} %i %^g\n :OTHERINFO:\n\t%^{Enter other pertinent info} %i\n :END:"
:empty-lines 1)
; one of the original try for a Capture Template
("n" "Notes" entry
(file "/mnt/Data/ActiveFiles/Diary.org")
"* %? %i \n - Date Entered %U\n"
:empty-lines 1)
; Added January 5, 2012
;; ("r" "ReadingList" entry
;; (file "/mnt/Data/ActiveFiles/Bucket.org")
;; "* RESEARCH %? %i \n - Date Entered %U\n"
;; :empty-lines 1)
; Added February 11, 2012
("i" "Itinerary" entry
(file "/mnt/Data/ActiveFiles/Journal.org")
"* %?%^{BeginTimeDuration}T %^{Location} %i :Itinerary:\n"
:empty-lines 1)
;; created sometime in July 2011
;; following template is my own after experimenting with the format
;; for a couple of hours, probably would have been easier to look
;; it up elsewhere
;; However, good learning experience in using scratch buffer as
;; as well as learning from mistakes
("s" "timeslip" table-line
(file "/mnt/Data/ActiveFiles/timeslips.org")
"\| %(org-read-date)\| %^{FileName} %i\| %^{Narrative} %i\| %^{Time} %i\| %^{Expense} %i"
;; Note that there is no escape and pipe after the final content input expansion
;; if there were a \| then an empty column is added
;; (org-read-date) added 2013-07-12; see Sacha Chua's use of same as in
;; the ledger templates below.
:empty-lines 1)
;;;;Contacts as PROPERTIES entries, drafted 2015-04-23
("c" "Contacts" entry
(file+olp (buffer-file-name) "Contacts")
"* %^{Enter full name or firm} %^G %^{Relationship}p %^{InterestOne}p %^{InterestTwo}p %^{InterestThree}p %^{InterestFour}p %^{LastNameOrFirmName}p %^{FirstNameOrContactNameOne}p %^{MiddleNameOrContactNameTwo}p %^{AddressOne}p %^{AddressTwo}p %^{City}p %^{State}p %^{ZIP}p %^{County}p %^{Phone}p %^{CellPhone}p %^{OfficePhone}p %^{Fax}p %^{EmailOne}p %^{EmailTwo}p %^{website}p %^{SSNorEIN}p %^{MailAddressOne}p %^{MailAddressTwo}p %^{MailCity}p %^{MailState}p %^{MailZIP}p %^{OfficeAddressOne}p %^{OfficeAddressTwo}p %^{OfficeCity}p %^{OfficeState}p %^{OfficeZIP}p %^{OtherInfoOne}p %^{OtherInfoTwo}p \n :NOTES:\n\t%^{Other information} %i\n :END:"
:empty-lines 1)
;;; for Estate entries
;;;; see http://stackoverflow.com/questions/19800926/how-can-i-load-an-emacs-capture-template-into-an-open-file
;;;; for using (buffer-file-name) for target buffer; not sure if this is best or
;;;; whether it is better to use a default file and use /C-0 to call in a current buffer
("E" "EstateTransactions" entry
(file+olp (buffer-file-name) "Accounting")
"* %?%^{TransactionDescription} %U %^{Date}p %^{CheckNumorDeposit}p %^{Cleared}p %^{Description}p %^{Memo}p %^{BasisCredit}p %^{ProceedsDebit}p %^{AccountSchedule}p %^{EstateTaxSchedule}p \n :NOTES:\n\t%^{Other information} %i\n :END:"
:empty-lines 1)
;;;; Maple Sap log
("z" "Sap log" entry
(file+olp "/mnt/Data/ActiveFiles/LearnOrg.org" "Sap")
"** %^t %^{Time}p %^{Cups}p %^{Conditions}p %^{Comments}p"
:empty-lines 0)
("f" "Foodlog" table-line
(file "/mnt/Data/ActiveFiles/Foodlog.org")
"\| %u %i\| %^{Time} %i\| %^{Food} %i\| %^{Weight} %i"
;; Note that there is no escape and pipe after the final content input expansion
;; if there were a \| then an empty column is added
:empty-lines 1)))
;;; Modified, from Sacha Chua, a template for entries to Ledger
(setq org-capture-templates
;;; for account payable entries
(append '(("l" "Ledger entries")
("lp" "AccountPayable" plain
( file "/mnt/Data/ActiveFiles/CMLedger.dat")
"%(org-read-date) %^{Payee}
Liability:%^{Who pays}:Payable:%^{Payee}: \t -%^{Amount}
Equity: %i \n"\
:prepend t :empty-lines 1)
;;; for cash paid out-of-pocket
("lc" "CashPaid" plain
( file "/mnt/Data/ActiveFiles/CMLedger.dat")
"%(org-read-date) Cash Paid
Asset:%^{whose cash}:Cash: \t -%^{Amount}
Expenses:%^{Payee}:%^{Category}: \t %^{Amount} \n"\
:prepend t :empty-lines 1))
org-capture-templates))
;;; Added 2015-06-30 for recutils entries into an emacs interface
;;; file for recutil estate records
(setq org-capture-templates
;;; tasks todo on a specific date, not appointments
(append '(("r" "recutil estate entries")
("ra" "estate asset and income entries" plain
(file (buffer-file-name))
"Description: %^{Description}\nFile: %^{File}\nAssetDate: %^{AssetDate}\nBasis: %^{Basis}\nAccountSchedule: %^{AccountSchedule}\nEstateTaxSchedule: %^{EstateTaxSchedule}\nAccountSchedule: %^{AccountSchedule}\nProceedsDate: %^{ProceedsDate}\nProceeds: %^{Proceeds}\n#AccountSchedule: Checkbook\n#CheckDate: %^{CheckDate}\n#CheckNumber: %^{CheckNumber}\n#CheckAmount: %^{CheckAmount}\n#CheckCleared: "
:empty-lines 1)
("rl" "estate sales, debts and expenses" plain
(file (buffer-file-name))
"Description: %^{Description}\nFile: %^{File}\nProceedsDate: %^{PorceedsDate}\nProceeds: %^{Proceeds}\nAccountSchedule: %^{AccountSchedule}\nEstateTaxSchedule: %^{EstateTaxSchedule}\nAccountSchedule: Checkbook\nCheckDate: %^{CheckDate}\nCheckNumber: %^{CheckNumber}\nCheckAmount: %^{CheckAmount}\nCheckCleared: "
:empty-lines 1))
org-capture-templates))
;;; Added the following 2013-08-11; used Sacha Chua's code
;;; for ledger entries as a template
;;; intended for different TODO type of entries
(setq org-capture-templates
;;; tasks todo on a specific date, not appointments
(append '(("t" "Todo entries")
("ts" "Scheduled" entry
(file "/mnt/Data/ActiveFiles/Diary.org")
"* TODO %?%^{What do you want to do?} %i\ SCHEDULED: %^{enter a timestamp}t\n\t:OTHERINFO:\n\t\t%^{Enter other pertinent info} %i\n\t:END:\n\t\tDate Entered %U\n"
:empty-lines 1)
;; tasks wtih a target date
("tt" "Target dates" entry
(file "/mnt/Data/ActiveFiles/Diary.org")
"* TODO %?%^{What do you want to do?} %i\ TARGET-DATE: %^{enter a timestamp}t\n\t:OTHERINFO:\n\t\t%^{Enter other pertinent info} %i\n\t:END:\n\t\tDate Entered %U\n"
:empty-lines 1)
;; tasks with definite deadlines
("td" "Deadline" entry
(file "/mnt/Data/ActiveFiles/Diary.org")
"* TODO %?%^{What do you want to do?} %i\ DEADLINE: %^{enter a timestamp}t\n\t:OTHERINFO:\n\t\t%^{Enter other pertinent info} %i\n\t:END:\n\t\tDate Entered %U\n"
:empty-lines 1)
;; plain vanilla task todo's
("tp" "PlainTODO" entry
(file "/mnt/Data/ActiveFiles/Diary.org")
"* TODO %?%^{What do you want to do?} %i\ %^{enter a timestamp}t\n\t:OTHERINFO:\n\t\t%^{Enter other pertinent info} %i\n\t:END:\n\t\tDate Entered %U\n"
:empty-lines 1))
org-capture-templates))
;;;; org-aggregate.el
(add-to-list 'load-path "/usr/share/emacs/site-lisp/org-aggregate.el")
(add-to-list 'load-path "usr/share/emacs/site-lisp/org-insert-dblock.el")
;;;; From Daniel Doherty, Esq. email of 5/23/12 easy templates
;#+begin_src emacs-lisp
(eval-after-load 'org
'(progn
(add-to-list 'org-structure-template-alist
'("m" "#+begin_src emacs-lisp\n?\n#+end_src" ""))
(add-to-list 'org-structure-template-alist
'("j"
"#+begin_quote\n||Dr|Cr|\n|-\n|?|$||\n|||$|\n#+end_quote"
""))
(add-to-list 'org-structure-template-alist
'("r" "#+begin_src rec :data ? :type\n\n#+end_src" ""))))
;#+end_src
(setq org-mode-hook (lambda () (abbrev-mode)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;FOLLOWING FROM METJACK SITE AND IS HIS CODE TO SET UP A JOURNAL;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar org-journal-file "/mnt/Data/ActiveFiles/Journal.org"
"Path to OrgMode journal file.")
(defvar org-journal-date-format "%Y-%m-%d-%R"
"Date format string for journal headings.")
(defun org-journal-entry ()
"Create a new diary (journal (added by CM)) entry for today or append to an existing one."
(interactive)
(switch-to-buffer (find-file org-journal-file))
(widen)
(let ((today (format-time-string org-journal-date-format)))
(beginning-of-buffer)
(unless (org-goto-local-search-headings today nil t)
((lambda ()
(org-insert-heading)
(insert today)
(insert "\n**"))))
; (insert "\n\n\n"))))
(beginning-of-buffer)
(org-show-entry)
(org-narrow-to-subtree)
(end-of-buffer)
(backward-char 2)
(unless (= (current-column) 2)
; (insert "\n\n ")
)))
;;;;;;;;;;;;;;simple emacs spreadsheet;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ses)
;;;;;;;;;;;;;;;;;;;;;;Bank;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(add-to-list 'load-path "c:/Emacs/emacs-24.0.93/site-lisp")
;add-to-list 'load-path (expand-file-name "~/bank-el-0.7/bank"))
;(autoload 'bank-journal-mode "bank" "Major mode for managing bank accounts." t)
;(add-to-list 'auto-mode-alist '("\\.journal\\'" . bank-journal-mode))
; (add-to-list 'load-path "c:/emacs/emacs-24.0.93/site-lisp/bank-el-0.7/bank") first attempt
; (require 'bank)
;;;;;;;;;;;;;;;;;;;;;Ledger;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; (add-to-list 'load-path "c:/emacs/emacs-24.3/site-lisp/ledger-2.6.3/ledger")
;(add-to-list 'load-path "/usr/bin/ledger")
;(load "ledger")
; (require 'ledger)
;(add-to-list 'load-path "/etc/ledger/lisp/ledger-init.el")
(autoload 'ledger-mode "ledger-mode" "A major mode for Ledger" t)
(add-to-list 'load-path (expand-file-name "/etc/ledger/lisp/"))
(add-to-list 'auto-mode-alist '("\\.ledger$" . ledger-mode))
;;;Insiduous Big Brother Data Base;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; (add-to-list 'load-path "c:/emacs/emacs-24.3/site-lisp/bbdb-2.35\\lisp")
(load "bbdb")
(require 'bbdb)
(bbdb-initialize)
(setq bbdb-file "~/.emacs.d/.bbdb")
;;;;;;;;;;;;;;;;;;;;;RecUtils;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "/usr/share/emacs/site-lisp/rec-mode.el")
(require 'rec-mode)
(add-to-list 'auto-mode-alist '("\\.rec\\'" . rec-mode))
;;;;;;;;;;;;;;;;;;;;;;;;Quicklisp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load (expand-file-name "~/quicklisp/slime-helper.el"))
;; Replace "sbcl" with the path to your implementation
(setq inferior-lisp-program "/usr/bin/sbcl")
;(require 'remember)
;(global-set-key (kbd "\C-cr") 'remember)
(add-to-list 'load-path "/usr/share/emacs/24.3/git/git.el")
(add-to-list 'load-path "/usr/share/emacs/24.3/git/git-blame.el")
(require 'git)
(require 'git-blame)
(add-to-list 'load-path "usr/share/emacs/24.3/site-lisp/magit/magit.elc")
(require 'magit)
(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.
)
(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.
)
^ permalink raw reply [flat|nested] 3+ messages in thread