some-org-schedule.el

(let* ((source1
          (lexical-let ((file "./some-schedule.org"))
            (make-cfw:source
             :name (concat "Org:" "TEST")
             :data (lambda (begin end)
                     (let ((org-agenda-files (list file)))
                       (cfw:org-schedule-period-to-calendar begin end))))))
       (cp (cfw:create-calendar-component-buffer
              :view 'month
              :contents-sources (list source1)
              :custom-map cfw:org-schedule-map
              :sorter 'cfw:org-schedule-sorter)))
    (switch-to-buffer (cfw:cp-get-buffer cp)))