mhc 1.2.3 → 1.2.5

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 650db4a5196f97fe4edc81028a8eaa77be9914fbe3d3ea1c5d27b3b0fe790cbe
-  data.tar.gz: a164d3c77a6aa6dbce5aa702158a70c9a558b6c11023dd282a14a535234ee7d7
+  metadata.gz: b0b65ae5e1dd5f504de2eeb59f280eff7ef0422133520006e9814ab52510e9ac
+  data.tar.gz: '0168de3d55867bf8356a02cf9be81d3ecd199b01f64d5c2cdc5f6835a0605fdd'
 SHA512:
-  metadata.gz: 61edc1a0f6c05b05af51a84c9dcb40425eab9ff217f37017f8c1d9e2000c12e0c086f63fbc5a5da87e7367ceb28b5fa40657311a1d08dc0e09298f743f9629d7
-  data.tar.gz: 7221e67e855a6658922a81482875cd92ddb6250aa89f07a671e04175a0d158a2918a68b820c04a76326aa8760fc08808515590658d4439f21c95859bc668bafe
+  metadata.gz: d4533cef977bafd8491f1f3bbb709049dfa17b7ca70f0286381aaba60ffb51a096d34b28d6cb7239e1a5f932729237dce1d931332c1830983357ec99196f75e5
+  data.tar.gz: 40dbdfcdcacf2ac4f274db2897bfa91f25a58ebb0d80c4b705d9134efef3e2fafa7e1ec51a743817e075e7a0f015b53262a6c3c1f915400ce5e0dd5dad31727d

data/.gitignore

@@ -5,7 +5,7 @@
 .bundle
 .config
 .yardoc
-Gemfile.lock
+Gemfile.lock*
 InstalledFiles
 _yardoc
 attic/

data/.rubocop.yml

@@ -0,0 +1,14 @@
+Style/RedundantReturn:
+  Enabled: false
+Style/CommentedKeyword:
+  Enabled: false
+Style/Documentation:
+  Enabled: false
+Style/RedundantSelf:
+  Enabled: false
+Style/StringLiterals:
+  Enabled: false
+Metrics/MethodLength:
+  Enabled: false
+Metrics/ClassLength:
+  Enabled: false

data/README.org

@@ -127,6 +127,7 @@
        | =M= | Open pointed article to edit                   |
        | =D= | Delete pointed article                         |
        | =C= | Copy article temporally as a reusable template |
+       | =R= | Copy article like =C= using completing-read    |
        | =Y= | Same as =E= but use the template stored by =C= |
 
     3) Draft Buffer
@@ -149,6 +150,7 @@
      X-SC-Time: 18:00-21:00
      X-SC-Category: Private Party
      X-SC-Cond:
+     X-SC-Recurrence-Tag: HomeParty
      X-SC-Duration:
      X-SC-Record-Id: C34D89F5-27FA-4243-AC6C-168D8D243D9A
      X-SC-Sequence: 0
@@ -241,6 +243,40 @@
       of 2015-07-15 (Wed) and inclusion of 2015-08-01 (Sat).
     #+END_EXAMPLE
 
+** Headers for Grouping
+*** X-SC-Category
+    =X-SC-Category:= is a space separated list of category
+    It is useful for selective display both in CLI:
+    : mhc scan today --category=Private
+    and Emacs UI:
+    : M-x mhc-set-default-category
+    : Default Category: Private && !Party
+
+    Also useful sync with Google Calendar. See [[https://github.com/yoshinari-nomura/mhc/blob/master/samples/DOT.mhc-config.yml][mhc-config.yml]] for
+    details.
+
+*** X-SC-Recurrence-Tag
+    =X-SC-Recurrence-Tag:= is a tag for bundling multiple event articles as one recurring group.
+
+    MHC allows flexible description of repeating events using
+    =X-SC-Cond:=, =X-SC-Duration:=, or =X-SC-Day:=. However, we know
+    this is not sufficient.
+
+    For example, in my experience, some monthly meetings do not have
+    distinct recurring patterns such like "Third Wednesday of each
+    month." Instead, the next date is fixed by coordination during the meeting.
+
+    In such cases, it is difficult to mark these events as a series of related events.
+    That's why we need =X-SC-Recurrence-Tag:=
+
+    Using =X-SC-Recurrence-Tag:=, MHC suggests what event should be arranged.
+    : mhc stuck_recurrences
+    will tell you to make the next appointment.
+
+    For example, if you have "X-SC-Recurrence-Tag: Dentist" in your
+    articles of past dentist events, mhc will point out that you
+    forgot to make your next dentist appointment.
+
 * INFORMATION FOR DEVELOPERS
 ** INSTALL for developers:
    1) Install rbenv + ruby-build
@@ -326,6 +362,7 @@
         (setq load-path
               (cons "~/src/mhc/emacs" load-path))
         (autoload 'mhc "mhc" "Message Harmonized Calendar system." t)
+        (autoload 'mhc-import "mhc" "Import a schedule." t)
 
         ;; M-x mhc
       #+END_SRC

data/bin/mhc

@@ -72,9 +72,10 @@ class MhcCLI < Thor
   register_option :repository, :desc => "Set MHC top directory", :banner => "DIRECTORY"
   register_option :calendar,   :desc => "Set source CALENDAR"
   register_option :category,   :desc => "Pick items only in CATEGORY"
-  register_option :format,     :desc => "Set printing format", :enum => %w(text mail orgtable emacs icalendar calfw howm json)
+  register_option :format,     :desc => "Set printing format", :enum => %w(text mail orgtable emacs icalendar calfw howm json html)
   register_option :search,     :desc => "Search items by complex expression"
   register_option :dry_run,    :desc => "Perform a trial run with no changes made", :type => :boolean
+  register_option :verbose,    :desc => "Show verbose message", :type => :boolean
 
   ################################################################
   # command name mappings
@@ -113,13 +114,16 @@ class MhcCLI < Thor
     Mhc::Command::Cache.new(builder.datastore)
   end
 
+  ################################################################
   # Command: todo
+  ################################################################
   desc "todo", "List Todo entries in MHC calendar"
 
   named_option :repository
   method_option :show_all, :desc => "Include all finished tasks."
 
   def todo
+    todos = []
     calendar.tasks.each do |task|
       if task.recurring?
         # Yearly: today - 90days .. today + 365d - 90days ?
@@ -130,9 +134,25 @@ class MhcCLI < Thor
         search_range = nil
       end
       next if task.in_category?("done") && !options[:show_all]
-      occurrence = task.occurrences(range: search_range).first
-      deadline = occurrence.dtstart
-      puts format("%s %s", deadline.strftime("%Y/%m/%d %a"), task.subject)
+      task_first = task.occurrences(range: search_range).first
+      todos << task_first if task_first
+    end
+    todos.each.sort{|a, b| a.dtstart <=> b.dtstart}.each do |t|
+      deadline = t.dtstart
+      deadline_string = ""
+      remaining = (deadline - Mhc::PropertyValue::Date.today).to_i
+      if remaining == 0
+        deadline_string = " (due this date)"
+      elsif remaining > 0
+        deadline_string = format(" (%d days to go)", remaining)
+      else
+        deadline_string = format(" (%d days overdue)", -remaining)
+      end
+      location_string = " [#{t.location}]" if !t.location.empty?
+      puts format("%s %-11s %s%s%s",
+                  deadline.strftime("%Y/%m/%d %a"),
+                  t.time_range.to_mhc_string,
+                  t.subject, location_string, deadline_string)
     end
   end # todo
 
@@ -152,6 +172,38 @@ class MhcCLI < Thor
     Mhc::Command::Completions.new(help, global_options, command, config)
   end
 
+  ################################################################
+  # Command: compose
+  ################################################################
+  desc "compose", "Create new draft and open it in your editor"
+
+  long_desc <<-LONGDESC
+    Create a new draft and open it in your editor.
+    To select your favorite editor,
+    set environment variable MHC_EDITOR or EDITOR.
+  LONGDESC
+
+  def compose
+    require 'securerandom'
+    ev = Mhc::Event.new
+    ev.record_id = SecureRandom.uuid.upcase
+    path = builder.datastore.create(ev, true)
+    puts "Create draft #{path}"
+    editor = ENV["MHC_EDITOR"] || ENV["EDITOR"] || "vi"
+    system(editor, path)
+
+    while add(path) != 0
+      if ask("Retry?") =~ /^[Yy]/
+        system(editor, path)
+      else
+        puts "Abort..."
+        exit(1)
+      end
+    end
+    puts "Successfully registered."
+    exit(0)
+  end
+
   ################################################################
   # Command: config
   ################################################################
@@ -163,6 +215,40 @@ class MhcCLI < Thor
     puts Mhc::Converter::Emacs.new.to_emacs(config.get_value(name))
   end
 
+  ################################################################
+  # Command: add
+  ################################################################
+  desc "add FILE", "Add event FILE to repository"
+
+  named_option :repository
+
+  def add(file)
+    full_path = File.expand_path(file)
+
+    unless File.exist?(full_path)
+      puts Mhc::Converter::Emacs.new.to_emacs("No such file #{file}.")
+      return 1
+    end
+
+    event_string = File.open(full_path).read
+    errors = Mhc::Event.validate(event_string)
+
+    if errors.empty?
+      ev = Mhc::Event.parse(event_string)
+      calendar.add(ev)
+      return 0
+    else
+      string = ""
+      errors.each do |err, key|
+        string += "#{err.to_s.capitalize}"
+        string += " in X-SC-#{key.capitalize}" if key
+        string += ".\n"
+      end
+      puts string
+      return 1
+    end
+  end
+
   ################################################################
   # Command: init
   ################################################################
@@ -172,6 +258,55 @@ class MhcCLI < Thor
     Mhc::Command::Init.new(top_dir, options[:config] || DEFAULT_CONFIG_PATH, ENV["MHC_TZID"])
   end
 
+  ################################################################
+  # Command: stuck_recurrences
+  ################################################################
+  desc "stuck_recurrences", "List stuck recurrences in MHC calendar"
+
+  named_option :repository
+  named_option :verbose
+  named_option :format
+
+  # * stuck_recurrences
+  #
+  #  For all "living recurrences", if no next event has been set in
+  #  the "future", show the information on the last time.
+  #
+  #   + "living recurrences" ::
+  #     + There is a last-time evnet within a year and a half.
+  #   + "future" :: ten years from now.
+  #
+  def stuck_recurrences(format = options[:format])
+    today = Mhc::PropertyValue::Date.today
+
+    # Seek -1.5y to +10y
+    search_range = (today - ((365 *  5).to_i)) ..
+                   (today + ((365 * 10).to_i))
+
+    recurrences = {}
+
+    # Get all recurrences in search_range
+    calendar.occurrences(search_range).each do |oc|
+      rtag = oc.recurrence_tag.to_s
+      next if rtag.empty?
+      recurrences[rtag] ||= []
+      recurrences[rtag] << oc
+    end
+
+    formatter = Mhc::Formatter.build(formatter: format || :text, date_range: search_range)
+
+    recurrences.each do |rtag, recurrence|
+      if options[:verbose]
+        rec_put_debug(recurrence)
+      else
+        formatter << recurrence.last if rec_stuck?(recurrence)
+      end
+    end
+    str = formatter.to_s
+    return str if format == :json || options[:verbose]
+    puts str
+  end # stuck_recurrences
+
   ################################################################
   # Command: scan
   ################################################################
@@ -206,6 +341,9 @@ class MhcCLI < Thor
   named_option :calendar, :category, :format, :repository, :search
 
   def scan(range)
+    if options[:format].to_s == 'html'
+      $stuck_recurrences_json = stuck_recurrences(:json)
+    end
     begin
       Mhc::Command::Scan.new(calendar, range, **symbolize_keys(options))
     rescue Mhc::PropertyValue::ParseError, Mhc::Formatter::NameError, Mhc::Query::ParseError => e
@@ -310,6 +448,80 @@ class MhcCLI < Thor
 
   private
 
+  def rec_put_debug(recurrence)
+    ol = recurrence.last
+
+    today = Mhc::PropertyValue::Date.today
+    last_occurrence = recurrence.last
+    last_occurrence_date = last_occurrence.dtstart.to_date
+    # Ignore living recurrences
+    return false if last_occurrence_date > today
+
+    status = if rec_stuck?(recurrence) then " TODO" else "" end
+    print "*#{status} #{ol.recurrence_tag}#{status} "
+
+    print format("%s %s",
+                 ol.dtstart.strftime("%Y-%m-%d %a"),
+                 ol.subject)
+
+    print format(" (length: %d, max: %d, min: %d, avr: %d)\n",
+                 recurrence.length,
+                 *rec_stat(recurrence))
+
+    pr = recurrence.first
+    recurrence.each do |oc|
+      puts format("  %s %s (%d)",
+                  oc.dtstart.strftime("%Y-%m-%d %a"),
+                  oc.subject,
+                  (oc.dtstart.to_date - pr.dtstart.to_date).to_i
+                 )
+      pr = oc
+    end
+  end
+
+  # Judge if a recurrence is stuck or not. recurrence is a set of occurrences.
+  def rec_stuck?(recurrence, today = Mhc::PropertyValue::Date.today)
+    last_occurrence = recurrence.last
+    last_occurrence_date = last_occurrence.dtstart.to_date
+    max_interval, _min_interval, avr_interval = rec_stat(recurrence)
+
+    # Not stuck if scheduled in the future dates
+    return false if last_occurrence_date > today
+
+    # Stuck if last event occurred within 90 days, but average
+    # interval is less than 60 days.
+    if (today - last_occurrence_date).to_i < 90 && avr_interval < 60
+      return true
+    end
+
+    # Not stuck if the number of days between the last event and today
+    # does not reach 80% of the maximum interval.
+    return false if (today - last_occurrence_date).to_i < max_interval * 4 / 5
+
+    # Not stuck if the number of days between the last event and today
+    # is more than 30 days or 1.5 years beyond the maximum interval.
+    # It would be no more recurring.
+    return false if (today - last_occurrence_date).to_i > [max_interval + 30, 365*1.5].min
+
+    # Otherwise, stuck
+    return true
+  end
+
+  # Return statistics on recurrences: max/min/average interval.
+  def rec_stat(recurrence)
+    # Calcurate all intervals of the recurrence
+    intervals = recurrence.each_cons(2).map{|ocs|
+      (ocs[1].dtstart.to_date - ocs[0].dtstart.to_date).to_i
+    }.reject{|interval| interval < 1}
+
+    # Assume annual event if the recurrence is one-shot.
+    intervals = [365] if intervals.empty?
+
+    return [intervals.max,
+            intervals.min,
+            intervals.reduce(0, :+) / intervals.length]
+  end
+
   def exit_on_error(&block)
     begin
       yield if block_given?

data/emacs/Cask

@@ -5,7 +5,7 @@
 (source org)
 (source melpa)
 
-(package "mhc" "1.2.3" "Message Harmonized Calendaring system") ;; MHC_VERSION
+(package "mhc" "1.2.5" "Message Harmonized Calendaring system") ;; MHC_VERSION
 
 (files "mhc.el" "mhc-*.el")
 

data/emacs/mhc-date.el

@@ -411,17 +411,10 @@
   `(/ (1- (mhc-date-dd ,date)) 7))
 
 (defsubst mhc-date-cw (date)
-  (mhc-date-let date
-    (let* ((yday (mhc-date/day-number yy mm dd))
-           (days (mhc-date/iso-week-days yday ww))
-           (d))
-      (if (< days 0)
-          (setq days (mhc-date/iso-week-days
-                      (+ yday 365 (if (mhc-date/leap-year-p (1- yy)) 1 0)) ww))
-        (setq d (mhc-date/iso-week-days
-                 (- yday 365 (if (mhc-date/leap-year-p yy) 1 0)) ww))
-        (if (<= 0 d) (setq days d)))
-      (1+ (/ days 7)))))
+  (string-to-number
+   (format-time-string
+    (if (= mhc-start-day-of-week 1) "%V" "%U")
+    (mhc-date-to-second date))))
 
 ;;
 ;; compare.

data/emacs/mhc-db.el

@@ -34,6 +34,12 @@ If optional SEARCH is non-nil returned value is clipped by search string."
            (if category  (format " --category=%s" category) "")
            (if search  (format " --search='%s'" search) ""))))
 
+(defun mhc-db-stuck-recurrences ()
+  "List stuck recurrences in MHC calendar."
+  (mhc-db-flatten
+   (mhc-process-send-command
+    (format "stuck_recurrences --format=emacs"))))
+
 (defun mhc-db-scan-flat (begin-date end-date &optional nosort category search)
   "Scan MHC database from BEGIN-DATE to END-DATE.
 Unlike `mhc-db-scan`, returned value is not grouped by date.
@@ -42,19 +48,48 @@ For example:
 If optional NOSORT is non-nil, returned value is not sort.
 If optional CATEGORY is non-nil, returned value is clipped by category.
 If optional SEARCH is non-nil returned value is clipped by search string."
-  (let ((dayinfo-list (mhc-db-scan begin-date end-date nosort category search)))
-    (apply 'append
-           (mapcar (lambda (dayinfo)
-                     (let ((date (mhc-day-date dayinfo))
-                           (schedules (mhc-day-schedules dayinfo)))
-                       (mapcar (lambda (sch) (cons date sch)) schedules)))
-                   dayinfo-list))))
+  (mhc-db-flatten (mhc-db-scan begin-date end-date nosort category search)))
+
+(defun mhc-db-flatten (dayinfo-list)
+  "Flatten DAYINFO-LIST scanned from `mhc-db-scan`.
+Unlike `mhc-db-scan`, returned value is not grouped by date."
+  (apply 'append
+         (mapcar (lambda (dayinfo)
+                   (let ((date (mhc-day-date dayinfo))
+                         (schedules (mhc-day-schedules dayinfo)))
+                     (mapcar (lambda (sch) (cons date sch)) schedules)))
+                 dayinfo-list)))
 
 (defun mhc-db-search (&rest query)
   (let ((b (mhc-date-new 1970 1 1))
         (e (mhc-date-yy+ (mhc-date-now) 10)))
     (mhc-db-scan b e nil nil (mhc-db/query-to-search-string query))))
 
+(defun mhc-db-past-occurrences (&optional days)
+  (let ((now (mhc-date-now)))
+    (nreverse
+     (mhc-db-scan-flat (mhc-date- now (or days 732)) now))))
+
+(defun mhc-db-make-completion-list (occurrences)
+  (delq nil
+        (mapcar
+         (lambda (occurrence)
+           (let ((sch (cdr occurrence)))
+             (if  (not (string= (mhc-record-name (mhc-schedule-record sch)) ""))
+                 (cons (mhc-db-real-to-display occurrence) occurrence))))
+         occurrences)))
+
+(defun mhc-db-real-to-display (occurrence)
+  (let* ((date (car occurrence))
+         (sch (cdr occurrence))
+         (location (mhc-schedule-location sch)))
+    (concat
+     (mhc-date-format date "%04d/%02d/%02d" yy mm dd)
+     (format " %11s " (mhc-schedule-time-as-string sch))
+     (mhc-schedule-subject sch)
+     (if (and location (not (string= location "")))
+         (format " [%s]" location)))))
+
 (defun mhc-db/quote-string (string)
   (format "\"%s\"" string))
 

data/emacs/mhc-record.el

@@ -54,7 +54,7 @@
 
 (defun mhc-record-create-id ()
   "Return unique ID string."
-  (org-id-new))
+  (upcase (org-id-new)))
 
 (defun mhc-record-new (name &optional id schedules sexp)
   "Constructer of MHC-RECORD structure."

data/emacs/mhc-summary.el

@@ -294,9 +294,10 @@ If optional argument FOR-DRAFT is non-nil, Hilight message as draft message."
       (set-visited-file-name nil)
       ;; (rename-buffer (file-name-nondirectory file) 'unique)
       ;; (run-hooks 'mhc-calendar-view-file-hook)
+      (let ((buffer-read-only nil))
+        (mhc-message-mode))
       (set-buffer-modified-p nil)
       (setq buffer-read-only t)
-      (mhc-message-mode)
       (mhc-message-set-file-name file)
       )))
 
@@ -356,7 +357,8 @@ message and cdr keeps a visible message."
                 (or (null (setq dayinfo
                                 (get-text-property (point) 'mhc-dayinfo)))
                     (not (eq (mhc-day-date dayinfo) date))))
-      (goto-char (next-single-property-change (point) 'mhc-dayinfo)))))
+      (goto-char (or (next-single-property-change (point) 'mhc-dayinfo)
+                     (point-min))))))
 
 (defun mhc-summary-record (&optional mailer)
   "Return record on current line."
@@ -632,6 +634,7 @@ If BANNER is set, it is printed on the horizontal line."
   (define-key mhc-summary-mode-map "E" 'mhc-edit)
   (define-key mhc-summary-mode-map "M" 'mhc-modify)
   (define-key mhc-summary-mode-map "C" 'mhc-reuse-copy)
+  (define-key mhc-summary-mode-map "R" 'mhc-reuse-past-event)
   (define-key mhc-summary-mode-map "Y" 'mhc-reuse-create)
 
   (define-key mhc-summary-mode-map "n" 'mhc-summary-display-next)

data/emacs/mhc-vars.el

@@ -18,7 +18,7 @@
 
 
 ;;; Constants:
-(defconst mhc-version "mhc 1.2.3") ;; MHC_VERSION
+(defconst mhc-version "mhc 1.2.5") ;; MHC_VERSION
 
 
 ;;; Configration Variables:

data/emacs/mhc.el

@@ -3,7 +3,7 @@
 ;; Description: Message Harmonized Calendaring system.
 ;; Author:  Yoshinari Nomura <nom@quickhack.net>
 ;; Created: 1994-07-04
-;; Version: 1.2.3
+;; Version: 1.2.5
 ;; Keywords: calendar
 ;; URL: http://www.quickhack.net/mhc
 ;; Package-Requires: ((calfw "20150703"))
@@ -19,13 +19,14 @@
 ;;
 ;;  (setq load-path
 ;;        (cons "~/src/mhc/emacs" load-path))
-;;  (autoload 'mhc "mhc")
+;;  (autoload 'mhc "mhc" nil t)
+;;  (autoload 'mhc-import "mhc" nil t)
 ;;
 ;; and M-x mhc
 
 ;;; Code:
 
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl-lib))
 
 ;; For Mule 2.3
 (eval-and-compile
@@ -325,10 +326,11 @@
         ret))))
 
 (defun mhc-expr-compile (string)
-  (byte-compile
-   `(lambda (schedule)
-      ,(mhc-expr-parse string)
-      )))
+  (let ((lexical-binding nil))
+    (byte-compile
+     `(lambda (schedule)
+	,(mhc-expr-parse string)
+	))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
@@ -796,6 +798,7 @@ Returns t if the importation was succeeded."
   :group 'mhc
   :type 'boolean)
 
+;;;###autoload
 (defun mhc-import (&optional get-original)
   "Import a schedule from the current article.
 The default action of this command is to import a schedule from the
@@ -912,6 +915,27 @@ the default action of this command is changed to the latter."
           (message "%s is copied." (mhc-record-subject-as-string record)))
       (message "No file here."))))
 
+(defun mhc-reuse-past-event ()
+  "Select past schedule and copy to template."
+  (interactive)
+  (let* ((completion-ignore-case t)
+         (read-file-name-completion-ignore-case t)
+         (read-buffer-completion-ignore-case t)
+         (case-fold-search t)
+         (collection
+          (mhc-db-make-completion-list
+           (mhc-db-past-occurrences)))
+         (completion-table
+          (lambda (string pred action)
+            (if (eq action 'metadata)
+                '(metadata (display-sort-function . identity)
+                           (cycle-sort-function . identity))
+              (complete-with-action action collection string pred))))
+         (key (completing-read "Select occurrence: " completion-table nil t))
+         (sch (cdr (cdr (assoc key collection)))))
+    (mhc-reuse-copy
+     (mhc-record-name (mhc-schedule-record sch)))))
+
 (defun mhc-modify ()
   "Modify the current schedule."
   (interactive)

data/lib/mhc/caldav.rb

@@ -26,7 +26,7 @@ module Mhc
              D:propstat/D:prop/caldav:calendar-data
           ).map{|e| xmldoc.elements[e].text rescue nil}
 
-        info.href = URI.unescape(href)
+        info.href = URI.decode_www_form_component(href)
         info.uid = File.basename(info.href, ".ics")
         info.status = status
         info.content_type = content_type

data/lib/mhc/calendar.rb

@@ -23,6 +23,22 @@ module Mhc
       @datastore.entries(category: "todo")
     end
 
+    def recurrences(rec, &scope_block)
+      @datastore.entries(recurrence: rec)
+    end
+
+    def recurrence_tags
+      hash = {}
+      @datastore.entries.each do |ev|
+        tag = ev.recurrence_tag.to_s
+        next if tag == ""
+        next if hash[tag]
+
+        yield tag
+        hash[tag] = ev
+      end
+    end
+
     def occurrences(date_range, &scope_block)
       ocs = []
       @datastore.entries(range: date_range).each do |event|
@@ -34,6 +50,10 @@ module Mhc
       return ocs.sort
     end
 
+    def add(event)
+      @datastore.update(event)
+    end
+
     ################################################################
     ## for sync manager
 

data/lib/mhc/command/completions.rb

@@ -95,7 +95,7 @@ module Mhc
         when "COMMAND"
           possible_commands
         when "RANGE"
-          "(today tomorrow thismonth nextmonth)"
+          "(all today tomorrow thismonth nextmonth)"
         when /^NUM/
           "_guard '[0-9]#' 'Number'"
         else

data/lib/mhc/config.rb

@@ -52,7 +52,11 @@ module Mhc
       end
 
       def self.create_from_yaml_string(yaml_string, filename = nil)
-        hash = YAML.load(yaml_string, filename) || {}
+        hash = if YAML.respond_to?(:unsafe_load)
+                 YAML.unsafe_load(yaml_string, filename: filename)
+               else
+                 YAML.load(yaml_string, filename)
+               end || {}
         return new(hash)
       end