diff options
| -rw-r--r-- | org-conf.el | 72 |
1 files changed, 36 insertions, 36 deletions
diff --git a/org-conf.el b/org-conf.el index 0d2d0c6..2cd4906 100644 --- a/org-conf.el +++ b/org-conf.el @@ -261,42 +261,6 @@ in Lisp code use `org-set-tags' instead." (advice-add 'org-set-tags-command :override 'durand-org-set-tags-command) -;;; Accounts - -(load-file "account.el") - -;; ;;;###autoload -;; (defvar durand-org-capture-account-which-list -;; '("breakfast" "brunch" "brunverage" "lunch" "dinner" "beverage" "snack" "fruit") -;; "The list of purposes of accounts in the capture-template for accounting.") - -;; ;;;###autoload -;; (defun durand-org-capture-account-template () -;; "Org capture template for account." -;; (let* ((shop-and-items (durand-org-complete-capture-account)) -;; (which (completing-read -;; "For what? " -;; durand-org-capture-account-which-list)) -;; (cost (number-to-string -;; (read-number "Cost: " 0))) -;; (from (completing-read "From: " '("Cash" "etique"))) -;; (active-time (format-time-string -;; (cdr org-time-stamp-formats))) -;; (inactive-time -;; (let ((temp active-time)) -;; (while (string-match "<\\|>" temp) -;; (setf temp -;; (replace-match -;; (cond -;; ((string= (match-string-no-properties 0 temp) "<") "[") -;; ((string= (match-string-no-properties 0 temp) ">") "]")) -;; nil nil temp))) -;; temp))) -;; (format "%s\n :PROPERTIES:\n :cost: %s\n :FROM: %s\n :RECORD_TIME: %s\n :END: \n %s%%?" -;; which cost from inactive-time shop-and-items))) - -(require 'org-protocol) - ;;; Capture templates (setq org-capture-templates @@ -411,6 +375,42 @@ in Lisp code use `org-set-tags' instead." ;; ((durand-agenda-command-sections-time))) )) +;;; Accounts + +(load-file "account.el") + +;; ;;;###autoload +;; (defvar durand-org-capture-account-which-list +;; '("breakfast" "brunch" "brunverage" "lunch" "dinner" "beverage" "snack" "fruit") +;; "The list of purposes of accounts in the capture-template for accounting.") + +;; ;;;###autoload +;; (defun durand-org-capture-account-template () +;; "Org capture template for account." +;; (let* ((shop-and-items (durand-org-complete-capture-account)) +;; (which (completing-read +;; "For what? " +;; durand-org-capture-account-which-list)) +;; (cost (number-to-string +;; (read-number "Cost: " 0))) +;; (from (completing-read "From: " '("Cash" "etique"))) +;; (active-time (format-time-string +;; (cdr org-time-stamp-formats))) +;; (inactive-time +;; (let ((temp active-time)) +;; (while (string-match "<\\|>" temp) +;; (setf temp +;; (replace-match +;; (cond +;; ((string= (match-string-no-properties 0 temp) "<") "[") +;; ((string= (match-string-no-properties 0 temp) ">") "]")) +;; nil nil temp))) +;; temp))) +;; (format "%s\n :PROPERTIES:\n :cost: %s\n :FROM: %s\n :RECORD_TIME: %s\n :END: \n %s%%?" +;; which cost from inactive-time shop-and-items))) + +(require 'org-protocol) + ;;; elisp in link confirmation (setq org-link-elisp-confirm-function 'y-or-n-p) |