anaxonda

  (require 'counsel)
  (defun my-nov-find-id-of-file (filename)
    (interactive)
    (let ((i 0)
          (dontbreak t))
      (while (and (< i (length nov-documents))
                  dontbreak)
        (setq i (1+ i))
        (when (string-equal filename (cdr (aref nov-documents i)))
          (setq dontbreak nil)