kiwanami / emacs-calfw

A calendar framework for Emacs
1.16k stars 100 forks source link

Issue writing diary (org-journal) entries to calfw-cal #126

Open cloudnine opened 3 years ago

cloudnine commented 3 years ago

cfw:open-diary-calendar and my-open-calendar functions trigger the same error see here:

Debugger entered--Lisp error: (file-error "Opening input file" "Permission denied" "c:/Users/Comp/Dropbox/documents/orgfiles/jou...")
  insert-file-contents("c:/Users/Comp/Dropbox/documents/orgfiles/jou...")
  diary-list-entries((9 1 2020) 30 t)
  cfw:cal-schedule-period-to-calendar((9 1 2020) (9 30 2020))
  cfw:contents-merge((9 1 2020) (9 30 2020) (#s(cfw:source :name "calendar diary" :data cfw:cal-schedule-period-to-calendar :update nil :color "SaddleBrown" :period-bgcolor nil :period-fgcolor nil :opt-face nil :opt-period-face nil)))
  cfw:view-model-make-common-data(((init-date 9 15 2020) (contents-sources #s(cfw:source :name "calendar diary" :data cfw:cal-schedule-period-to-calendar :update nil :color "SaddleBrown" :period-bgcolor nil :period-fgcolor nil :opt-face nil :opt-period-face nil)) (annotation-sources) (sorter . string-lessp)) (9 1 2020) (9 30 2020) ((headers 0 1 2 3 4 5 6) (weeks ((8 30 2020) (8 31 2020) (9 1 2020) (9 2 2020) (9 3 2020) (9 4 2020) (9 5 2020)) ((9 6 2020) (9 7 2020) (9 8 2020) (9 9 2020) (9 10 2020) (9 11 2020) (9 12 2020)) ((9 13 2020) (9 14 2020) (9 15 2020) (9 16 2020) (9 17 2020) (9 18 2020) (9 19 2020)) ((9 20 2020) (9 21 2020) (9 22 2020) (9 23 2020) (9 24 2020) (9 25 2020) (9 26 2020)) ((9 27 2020) (9 28 2020) (9 29 2020) (9 30 2020) (10 1 2020) (10 2 2020) (10 3 2020)))))
  cfw:view-model-make-common-data-for-weeks(((init-date 9 15 2020) (contents-sources #s(cfw:source :name "calendar diary" :data cfw:cal-schedule-period-to-calendar :update nil :color "SaddleBrown" :period-bgcolor nil :period-fgcolor nil :opt-face nil :opt-period-face nil)) (annotation-sources) (sorter . string-lessp)) (9 1 2020) (9 30 2020))
  cfw:view-month-model(((init-date 9 15 2020) (contents-sources #s(cfw:source :name "calendar diary" :data cfw:cal-schedule-period-to-calendar :update nil :color "SaddleBrown" :period-bgcolor nil :period-fgcolor nil :opt-face nil :opt-period-face nil)) (annotation-sources) (sorter . string-lessp)))
  cfw:view-month(#s(cfw:component :dest #s(cfw:dest :type buffer :buffer #<buffer *cfw-calendar*> :min-func point-min :max-func point-max :width 171 :height 42 :clear-func (lambda (&rest --cl-rest--) (apply #'#f(compiled-function (G74 G75 G76) #<bytecode 0x7409801>) '--dest-- '--window-- '--buffer-- --cl-rest--)) :before-update-func nil :after-update-func nil :select-ol nil :today-ol nil) :model ((init-date 9 15 2020) (contents-sources #s(cfw:source :name "calendar diary" :data cfw:cal-schedule-period-to-calendar :update nil :color "SaddleBrown" :period-bgcolor nil :period-fgcolor nil :opt-face nil :opt-period-face nil)) (annotation-sources) (sorter . string-lessp)) :selected (9 15 2020) :view month :update-hooks nil :selection-change-hooks nil :click-hooks nil))
  cfw:cp-update(#s(cfw:component :dest #s(cfw:dest :type buffer :buffer #<buffer *cfw-calendar*> :min-func point-min :max-func point-max :width 171 :height 42 :clear-func (lambda (&rest --cl-rest--) (apply #'#f(compiled-function (G74 G75 G76) #<bytecode 0x7409801>) '--dest-- '--window-- '--buffer-- --cl-rest--)) :before-update-func nil :after-update-func nil :select-ol nil :today-ol nil) :model ((init-date 9 15 2020) (contents-sources #s(cfw:source :name "calendar diary" :data cfw:cal-schedule-period-to-calendar :update nil :color "SaddleBrown" :period-bgcolor nil :period-fgcolor nil :opt-face nil :opt-period-face nil)) (annotation-sources) (sorter . string-lessp)) :selected (9 15 2020) :view month :update-hooks nil :selection-change-hooks nil :click-hooks nil))
  cfw:cp-new(#s(cfw:dest :type buffer :buffer #<buffer *cfw-calendar*> :min-func point-min :max-func point-max :width 171 :height 42 :clear-func (lambda (&rest --cl-rest--) (apply #'#f(compiled-function (G74 G75 G76) #<bytecode 0x7409801>) '--dest-- '--window-- '--buffer-- --cl-rest--)) :before-update-func nil :after-update-func nil :select-ol nil :today-ol nil) ((init-date 9 15 2020) (contents-sources #s(cfw:source :name "calendar diary" :data cfw:cal-schedule-period-to-calendar :update nil :color "SaddleBrown" :period-bgcolor nil :period-fgcolor nil :opt-face nil :opt-period-face nil)) (annotation-sources) (sorter . string-lessp)) month nil)
  cfw:create-calendar-component-buffer(:view month :custom-map (keymap (105 . cfw:cal-from-calendar) (113 . kill-buffer) keymap (99 . cfw:org-capture) (57 . digit-argument) (56 . digit-argument) (55 . digit-argument) (54 . digit-argument) (53 . digit-argument) (52 . digit-argument) (51 . digit-argument) (50 . digit-argument) (49 . digit-argument) (48 . digit-argument) (113 . bury-buffer) (mouse-1 . cfw:navi-on-click) (77 . cfw:change-view-month) (84 . cfw:change-view-two-weeks) (87 . cfw:change-view-week) (68 . cfw:change-view-day) (32 . cfw:show-details-command) (114 . cfw:refresh-calendar-buffer) (33554441 . cfw:navi-prev-item-command) (backtab . cfw:navi-prev-item-command) (9 . cfw:navi-next-item-command) (46 . cfw:navi-goto-today-command) (116 . cfw:navi-goto-today-command) (103 . cfw:navi-goto-date-command) (end . cfw:navi-goto-last-date-command) (home . cfw:navi-goto-first-date-command) (next . cfw:navi-next-month-command) (prior . cfw:navi-previous-month-command) (22 . cfw:navi-next-month-command) (62 . cfw:navi-next-month-command) (27 keymap (118 . cfw:navi-previous-month-command)) (60 . cfw:navi-previous-month-command) (36 . cfw:navi-goto-week-end-command) (94 . cfw:navi-goto-week-begin-command) (107 . cfw:navi-previous-week-command) (106 . cfw:navi-next-week-command) (104 . cfw:navi-previous-day-command) (108 . cfw:navi-next-day-command) (112 . cfw:navi-previous-week-command) (up . cfw:navi-previous-week-command) (110 . cfw:navi-next-week-command) (down . cfw:navi-next-week-command) (98 . cfw:navi-previous-day-command) (left . cfw:navi-previous-day-command) (102 . cfw:navi-next-day-command) ...) :contents-sources (#s(cfw:source :name "calendar diary" :data cfw:cal-schedule-period-to-calendar :update nil :color "SaddleBrown" :period-bgcolor nil :period-fgcolor nil :opt-face nil :opt-period-face nil)))
  cfw:open-diary-calendar()
  funcall-interactively(cfw:open-diary-calendar)
  #<subr call-interactively>(cfw:open-diary-calendar record nil)
  ad-Advice-call-interactively(#<subr call-interactively> cfw:open-diary-calendar record nil)
  apply(ad-Advice-call-interactively #<subr call-interactively> (cfw:open-diary-calendar record nil))
  call-interactively(cfw:open-diary-calendar record nil)
  command-execute(cfw:open-diary-calendar record)
  helm-M-x(nil #("cfw:open-diary-calendar" 0 23 (match-part "cfw:open-diary-calendar")))
  funcall-interactively(helm-M-x nil #("cfw:open-diary-calendar" 0 23 (match-part "cfw:open-diary-calendar")))
  #<subr call-interactively>(helm-M-x nil nil)
  ad-Advice-call-interactively(#<subr call-interactively> helm-M-x nil nil)
  apply(ad-Advice-call-interactively #<subr call-interactively> (helm-M-x nil nil))
  call-interactively(helm-M-x nil nil)
  command-execute(helm-M-x)

diary file is set like this:

(setq diary-file "c:/Users/Comp/Dropbox/documents/orgfiles/journal") , in there are some journal entries ('20200904' , for example, with no extension)

There is no read or write protection on the directory. Did this happen before, simple error?

[it is emacs 27]