Error on OSX

[tuhdo]

I copied the example elsewhere and do it again, and this is the error:

Error during redisplay: (ucs-normalize-hfs-nfd-pre-write-conversion 1 64) signaled (error "Variable binding depth exceeds max-specpdl-size")
Error during redisplay: (ucs-normalize-hfs-nfd-post-read-conversion 12) signaled (error "Variable binding depth exceeds max-specpdl-size")
find-file-noselect: Wrong type argument: wholenump, nil

Toggle debug on error, this is the log:

Debugger entered--Lisp error: (error "Variable binding depth exceeds max-specpdl-size")
  evil-get-property(((hybrid :name "Hybrid state for hybrid mode" :toggle evil-hybrid-state :mode evil-hybrid-state-minor-mode :keymap evil-hybrid-state-map :local evil-hybrid-state-local-minor-mode :local-keymap evil-hybrid-state-local-map :tag evil-hybrid-state-tag :message evil-hybrid-state-message :cursor evil-hybrid-state-cursor :entry-hook evil-hybrid-state-entry-hook :exit-hook evil-hybrid-state-exit-hook :modes evil-hybrid-state-modes :input-method t :predicate evil-hybrid-state-p :enable nil) (evilified :name "Evilified state" :toggle evil-evilified-state :mode evil-evilified-state-minor-mode :keymap evil-evilified-state-map :local evil-evilified-state-local-minor-mode :local-keymap evil-evilified-state-local-map :tag evil-evilified-state-tag :message evil-evilified-state-message :cursor evil-evilified-state-cursor :entry-hook evil-evilified-state-entry-hook :exit-hook evil-evilified-state-exit-hook :modes evil-evilified-state-modes :input-method nil :predicate evil-evilified-state-p :enable (emacs)) (emacs :name "Emacs state" :toggle evil-emacs-state :mode evil-emacs-state-minor-mode :keymap evil-emacs-state-map :local evil-emacs-state-local-minor-mode :local-keymap evil-emacs-state-local-map :tag evil-emacs-state-tag :message evil-emacs-state-message :cursor evil-emacs-state-cursor :entry-hook evil-emacs-state-entry-hook :exit-hook evil-emacs-state-exit-hook :modes evil-emacs-state-modes :input-method t :predicate evil-emacs-state-p :enable nil) (motion :name "Motion state" :toggle evil-motion-state :mode evil-motion-state-minor-mode :keymap evil-motion-state-map :local evil-motion-state-local-minor-mode :local-keymap evil-motion-state-local-map :tag evil-motion-state-tag :message evil-motion-state-message :cursor evil-motion-state-cursor :entry-hook evil-motion-state-entry-hook :exit-hook evil-motion-state-exit-hook :modes evil-motion-state-modes :input-method nil :predicate evil-motion-state-p :enable nil) (replace :name "Replace state" :toggle evil-replace-state :mode evil-replace-state-minor-mode :keymap evil-replace-state-map :local evil-replace-state-local-minor-mode :local-keymap evil-replace-state-local-map :tag evil-replace-state-tag :message evil-replace-state-message :cursor evil-replace-state-cursor :entry-hook evil-replace-state-entry-hook :exit-hook evil-replace-state-exit-hook :modes evil-replace-state-modes :input-method t :predicate evil-replace-state-p :enable nil) (operator :name "Operator-Pending state" :toggle evil-operator-state :mode evil-operator-state-minor-mode :keymap evil-operator-state-map :local evil-operator-state-local-minor-mode :local-keymap evil-operator-state-local-map :tag evil-operator-state-tag :message evil-operator-state-message :cursor evil-operator-state-cursor :entry-hook evil-operator-state-entry-hook :exit-hook evil-operator-state-exit-hook :modes evil-operator-state-modes :input-method nil :predicate evil-operator-state-p :enable (evil-operator-shortcut-map operator motion normal)) (visual :name "Visual state" :toggle evil-visual-state :mode evil-visual-state-minor-mode :keymap evil-visual-state-map :local evil-visual-state-local-minor-mode :local-keymap evil-visual-state-local-map :tag evil-visual-state-tag :message evil-visual-state-message :cursor evil-visual-state-cursor :entry-hook evil-visual-state-entry-hook :exit-hook evil-visual-state-exit-hook :modes evil-visual-state-modes :input-method nil :predicate evil-visual-state-p :enable (motion normal)) (insert :name "Insert state" :toggle evil-insert-state :mode evil-insert-state-minor-mode :keymap evil-insert-state-map :local evil-insert-state-local-minor-mode :local-keymap evil-insert-state-local-map :tag evil-insert-state-tag :message evil-insert-state-message :cursor evil-insert-state-cursor :entry-hook evil-insert-state-entry-hook :exit-hook evil-insert-state-exit-hook :modes evil-insert-state-modes :input-method t :predicate evil-insert-state-p :enable nil) (normal :name "Normal state" :toggle evil-normal-state :mode evil-normal-state-minor-mode :keymap evil-normal-state-map :local evil-normal-state-local-minor-mode :local-keymap evil-normal-state-local-map :tag evil-normal-state-tag :message evil-normal-state-message :cursor evil-normal-state-cursor :entry-hook evil-normal-state-entry-hook :exit-hook evil-normal-state-exit-hook :modes evil-normal-state-modes :input-method nil :predicate evil-normal-state-p :enable (motion))) normal :cursor)
  evil-state-property(normal :cursor t)
  evil-refresh-cursor()
  ad-Advice-select-window(#<subr select-window> #<window 18 on pam-2017-04-24.org>)
  apply(ad-Advice-select-window #<subr select-window> #<window 18 on pam-2017-04-24.org>)
  select-window(#<window 18 on pam-2017-04-24.org>)
  #[769 "\301!\211\302 =\204o\303 \203\"
\203\304\305!\210\202o\306
\"\210\202o\307 \310=\203<
\2034\304\311!\210\202o\306
\"\210\202o\211\312 \236\313=\205J\314\315\"\316\317\"\210
\203m\310=\204]\211\203m\320\321 A@\310#\210\322\317\3238\"\210\266\204x\324\321 !\210\211q\207" [switch-to-buffer-preserve-window-point window-normalize-buffer-to-switch-to window-buffer window-minibuffer-p user-error "Cannot switch buffers in minibuffer window" pop-to-buffer window-dedicated-p t "Cannot switch buffers in a dedicated window" window-prev-buffers already-displayed get-buffer-window 0 set-window-buffer nil set-window-start selected-window set-window-point 2 select-window] 10 2770685 (byte-code "\301 \203    \302\202M\303 \304=\204\305\202M\204\306\307!\202M\310=\203=\311\312\313\314 \"!\2037\315\302\211\"\210\305\202M\306\307!\202M\316=\203G\302\202M\315\302\211\"\210\305\317\320!\302E\207" [switch-to-buffer-in-dedicated-window window-minibuffer-p nil window-dedicated-p t force-same-window user-error "Cannot switch buffers in a dedicated window" prompt y-or-n-p format "Window is dedicated to %s; undedicate it" window-buffer set-window-dedicated-p pop read-buffer-to-switch "Switch to buffer: "] 4)](#<buffer pam-2017-04-24.org> nil nil)
  ad-Advice-switch-to-buffer(#[769 "\301!\211\302 =\204o\303 \203\"
\203\304\305!\210\202o\306
\"\210\202o\307 \310=\203<
\2034\304\311!\210\202o\306
\"\210\202o\211\312 \236\313=\205J\314\315\"\316\317\"\210
\203m\310=\204]\211\203m\320\321 A@\310#\210\322\317\3238\"\210\266\204x\324\321 !\210\211q\207" [switch-to-buffer-preserve-window-point window-normalize-buffer-to-switch-to window-buffer window-minibuffer-p user-error "Cannot switch buffers in minibuffer window" pop-to-buffer window-dedicated-p t "Cannot switch buffers in a dedicated window" window-prev-buffers already-displayed get-buffer-window 0 set-window-buffer nil set-window-start selected-window set-window-point 2 select-window] 10 2770685 (byte-code "\301 \203 \302\202M\303 \304=\204\305\202M\204\306\307!\202M\310=\203=\311\312\313\314 \"!\2037\315\302\211\"\210\305\202M\306\307!\202M\316=\203G\302\202M\315\302\211\"\210\305\317\320!\302E\207" [switch-to-buffer-in-dedicated-window window-minibuffer-p nil window-dedicated-p t force-same-window user-error "Cannot switch buffers in a dedicated window" prompt y-or-n-p format "Window is dedicated to %s; undedicate it" window-buffer set-window-dedicated-p pop read-buffer-to-switch "Switch to buffer: "] 4)] #<buffer pam-2017-04-24.org>)
  apply(ad-Advice-switch-to-buffer #[769 "\301!\211\302 =\204o\303 \203\"
\203\304\305!\210\202o\306
\"\210\202o\307 \310=\203<
\2034\304\311!\210\202o\306
\"\210\202o\211\312 \236\313=\205J\314\315\"\316\317\"\210
\203m\310=\204]\211\203m\320\321 A@\310#\210\322\317\3238\"\210\266\204x\324\321 !\210\211q\207" [switch-to-buffer-preserve-window-point window-normalize-buffer-to-switch-to window-buffer window-minibuffer-p user-error "Cannot switch buffers in minibuffer window" pop-to-buffer window-dedicated-p t "Cannot switch buffers in a dedicated window" window-prev-buffers already-displayed get-buffer-window 0 set-window-buffer nil set-window-start selected-window set-window-point 2 select-window] 10 2770685 (byte-code "\301 \203   \302\202M\303 \304=\204\305\202M\204\306\307!\202M\310=\203=\311\312\313\314 \"!\2037\315\302\211\"\210\305\202M\306\307!\202M\316=\203G\302\202M\315\302\211\"\210\305\317\320!\302E\207" [switch-to-buffer-in-dedicated-window window-minibuffer-p nil window-dedicated-p t force-same-window user-error "Cannot switch buffers in a dedicated window" prompt y-or-n-p format "Window is dedicated to %s; undedicate it" window-buffer set-window-dedicated-p pop read-buffer-to-switch "Switch to buffer: "] 4)] #<buffer pam-2017-04-24.org>)
  switch-to-buffer(#<buffer pam-2017-04-24.org>)
  find-file-literally("pam-2017-04-24.org")
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let ((sched-file (pam-todo-file)) (save-silently t) cards) (if (= arg 1) (progn (setq arg (read-number "how many cards: ")))) (setq arg (min 100 arg)) (switch-to-buffer sched-file) (save-current-buffer (set-buffer (find-file (expand-file-name "pampile.org" (file-name-directory (buffer-file-name sched-file))))) (goto-char (point-min)) (end-of-line arg) (setq cards (pam-delete-region (point-min) (min (1+ (point)) (point-max)))) (pam-save-buffer) (kill-buffer)) (pam-goto-schedule-part) (insert cards) (pam-save-buffer))
  pam-pull(10)
  (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))
  (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards")))
  (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer))
  (let ((default-directory (pam-default-directory)) (todo-file (pam-schedule-file (time-add (current-time) (days-to-time offset)))) (save-silently t)) (if (file-exists-p todo-file) nil (find-file-literally todo-file) (insert "#+SEQ_TODO: TODO REVIEW | DONE\n") (if (eq offset 0) (progn (pam-pull 10) (message "Schedule was empty, used `pam-pull' for 10 cards"))) (pam-save-buffer) (kill-buffer)) (find-file-noselect todo-file))
  pam-todo-file()
  (let* ((today-file (pam-todo-file)) (today-file-name (file-name-nondirectory (buffer-file-name today-file))) (pdir (pam-default-directory)) (all-files (directory-files pdir nil "org$")) (idx (cl-position today-file-name all-files :test (quote equal))) (old-files (reverse (cl-subseq all-files 0 idx)))) (let ((--dolist-tail-- old-files)) (while --dolist-tail-- (let ((old-file (car --dolist-tail--))) (setq old-file (expand-file-name old-file pdir)) (let (cards) (save-current-buffer (set-buffer (find-file-noselect old-file)) (goto-char (point-min)) (while (re-search-forward "^\\* \\(TODO\\|REVIEW\\) " nil t) (setq cards ...))) (pam-schedule-today (mapcar (function ...) (nreverse cards))) (delete-file old-file)) (setq --dolist-tail-- (cdr --dolist-tail--))))))
  (if (and pam-last-rechedule (< (calendar-absolute-from-gregorian today) (calendar-absolute-from-gregorian pam-last-rechedule))) nil (setq pam-last-rechedule today) (let* ((today-file (pam-todo-file)) (today-file-name (file-name-nondirectory (buffer-file-name today-file))) (pdir (pam-default-directory)) (all-files (directory-files pdir nil "org$")) (idx (cl-position today-file-name all-files :test (quote equal))) (old-files (reverse (cl-subseq all-files 0 idx)))) (let ((--dolist-tail-- old-files)) (while --dolist-tail-- (let ((old-file (car --dolist-tail--))) (setq old-file (expand-file-name old-file pdir)) (let (cards) (save-current-buffer (set-buffer ...) (goto-char ...) (while ... ...)) (pam-schedule-today (mapcar ... ...)) (delete-file old-file)) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
  (let ((today (calendar-current-date))) (if (and pam-last-rechedule (< (calendar-absolute-from-gregorian today) (calendar-absolute-from-gregorian pam-last-rechedule))) nil (setq pam-last-rechedule today) (let* ((today-file (pam-todo-file)) (today-file-name (file-name-nondirectory (buffer-file-name today-file))) (pdir (pam-default-directory)) (all-files (directory-files pdir nil "org$")) (idx (cl-position today-file-name all-files :test (quote equal))) (old-files (reverse (cl-subseq all-files 0 idx)))) (let ((--dolist-tail-- old-files)) (while --dolist-tail-- (let ((old-file ...)) (setq old-file (expand-file-name old-file pdir)) (let (cards) (save-current-buffer ... ... ...) (pam-schedule-today ...) (delete-file old-file)) (setq --dolist-tail-- (cdr --dolist-tail--))))))))
  pam-reschedule-maybe()
  pam-drill()
  funcall-interactively(pam-drill)
  call-interactively(pam-drill record nil)
  command-execute(pam-drill record)
  helm-M-x(nil #("pam-drill" 0 9 (match-part "pam-drill")))
  funcall-interactively(helm-M-x nil #("pam-drill" 0 9 (match-part "pam-drill")))
  call-interactively(helm-M-x nil nil)
  command-execute(helm-M-x)

[abo-abo]

Thanks, should be fixed. Please test.

[tuhdo]

Good now. Thanks.

[mgirod]

Sorry, what was the fix? I am getting the same error now on a new install of emacsformacos 26.1, after installing tramp, and trying to use it.

[abo-abo]

@mgirod The fix was internal, you don't have to do anything as a user. If you still have a problem, please open a new issue.

[mgirod]

Thanks abo-abo. However, I am not using pamparam at all --that I know. I got here via Google search... I am using GNU Emacs on OSX. Trying to find out where to report this... Probably not a coincidence it looks so similar:

Error during redisplay: (ucs-normalize-hfs-nfd-pre-write-conversion 1 9) signaled (error "Variable binding depth exceeds max-specpdl-size") [2 times] byte-code: Variable binding depth exceeds max-specpdl-size

I get this by invoking dired in a tramp context. BTW, I have debug-on-error set, but it doesn't get me more info than this...?