Fix: archive.today code

Author: alphapapa

README.org

@@ -2700,7 +2700,7 @@ Yes, please!  Send pull requests and file issues on the [[https://github.com/alp
 
 + Catalog and tag appropriately ::  New entries in the outline should have the appropriate tags and should follow the existing hierarchy.  For example, articles should be tagged =articles=, and generally filed under an =Articles= heading using tag inheritance to apply the tag.
 +  "Loosely" or "usefully" opinionated ::  Rather than being a place to dump links for users to sort out, we should do that ourselves.  Links should have summaries and examples.  Where there are multiple links to similar projects, we should compare them and guide users to what we think is generally the best solution, or the best solution for each use case.
-+  Archive reference material ::  Much of the shared wisdom in the Emacs community is written in a variety of blogs by users and developers, as well as posts on Reddit, StackOverflow, etc.  These tend to hang around for a long time, but being the Internet, this is never guaranteed.  When linking to an article or other reference material, we should store a link to an archived version using [[*Get archive.is link for page][this code]].
++  Archive reference material ::  Much of the shared wisdom in the Emacs community is written in a variety of blogs by users and developers, as well as posts on Reddit, StackOverflow, etc.  These tend to hang around for a long time, but being the Internet, this is never guaranteed.  When linking to an article or other reference material, we should store a link to an archived version using [[*Get archive.today link for page][this code]].
 
 ** Requirements
 
@@ -3001,7 +3001,7 @@ This section contains code used to add to and update this document.
 
 *** TODO Get summary of page
 
-*** DONE Get archive.is link for page
+*** DONE Get archive.today link for page
 CLOSED: [2017-08-03 Thu 15:11]
 :PROPERTIES:
 :ID:       a0e9486f-24f0-47a6-8f21-50bcc7ac2ca0
@@ -3015,13 +3015,13 @@ CLOSED: [2017-08-03 Thu 15:11]
 #+BEGIN_SRC elisp :exports code :results silent
   (require 'org-web-tools)
 
-  (defun emacs-package-dev-handbook--archiveis-capture (url)
-    "Return archive.is archived URL for URL."
-    (when-let* ((id (org-web-tools-archive--url-id url)))
+  (defun emacs-package-dev-handbook--archive.today-capture (url)
+    "Return archive.today archived URL for URL."
+    (when-let* ((id (org-web-tools-archive--archive.today-url-id url)))
       (format "http://%s/%s" org-web-tools-archive-hostname id)))
 
-  (cl-defun emacs-package-dev-handbook-insert-archiveis-property (url)
-    "Set the \"archive.is\" property for entry at point to the archived version of URL.
+  (cl-defun emacs-package-dev-handbook-insert-archive.today-property (url)
+    "Set the \"archive.today\" property for entry at point to the archived version of URL.
   Interactively, assumes heading on/before point is an Org link to
   a web page."
     (interactive (list (save-excursion
@@ -3030,8 +3030,8 @@ CLOSED: [2017-08-03 Thu 15:11]
                          (beginning-of-line)
                          (when (re-search-forward org-bracket-link-regexp (line-end-position) 'noerror)
                            (org-link-unescape (match-string-no-properties 1))))))
-    (when-let ((archive-url (emacs-package-dev-handbook--archiveis-capture url)))
-      (org-set-property "archive.is" archive-url)))
+    (when-let ((archive-url (emacs-package-dev-handbook--archive.today-capture url)))
+      (org-set-property "archive.today" archive-url)))
 #+END_SRC
 
 *** TODO Insert new entry at point