speed-test.el

;; message the Org version when Org loads.  If this is the "init" file, then
;; this message is displayed in the middle of the pdf-tools installation.
(with-eval-after-load 'org
  (message "%s loaded" (org-version nil t nil)))

;; Remove the built-in version of Org from the load-path
(require 'cl-seq)
(setq load-path
      (cl-remove-if
       (lambda (x)
         (string-match-p "org$" x))
       load-path))

;; load the relevant packages
(add-to-list 'load-path (concat default-directory "org-mode/lisp"))
(package-install-file (concat default-directory "pdf-tools/pdf-tools-1.1.0.tar"))
(pdf-tools-install)
(add-to-list 'load-path (concat default-directory "org-noter"))
(require 'org-noter)

;; this macro times the test
(defmacro measure-time (&rest body)
  "Measure the time it takes to evaluate BODY."
  `(let ((time (current-time)))
     ,@body
     (float-time (time-since time))))

;; clean up pdf-tools-1.1.0 installation on exit
(add-hook 'kill-emacs-hook
          (lambda () (package-delete (car (last (assoc 'pdf-tools package-alist))))))

;; define the profiler-results directory for
(defvar speed-test-results-dir (concat default-directory "results"))
(make-directory speed-test-results-dir t)

;; open Moby Dick to the note entry with the speed test
(find-file "org-noter/tests/MobyDick.pdf")
(org-noter)
(pdf-view-fit-page-to-window)
(pdf-view-first-page)
(org-noter-sync-current-page-or-chapter)