libs -> lib/

5 files changed, 0 insertions, 372 deletions

diff --git a/org/jao-org-gnus.el b/org/jao-org-gnus.el
deleted file mode 100644
index cdeec65..0000000
--- a/org/jao-org-gnus.el
+++ /dev/null
@@ -1,72 +0,0 @@
-;; Support for saving Gnus messages by Message-ID
-(defun mde-org-gnus-save-by-mid ()
-  (when (memq major-mode '(gnus-summary-mode gnus-article-mode))
-    (when (eq major-mode 'gnus-article-mode)
-      (gnus-article-show-summary))
-    (let* ((group gnus-newsgroup-name)
-           (method (gnus-find-method-for-group group)))
-      (when (memq (car method) '(nnml nntp))
-        (let* ((article (gnus-summary-article-number))
-               (header (gnus-summary-article-header article))
-               (from (mail-header-from header))
-               (message-id
-                (save-match-data
-                  (let ((mid (mail-header-id header)))
-                    (if (string-match "<\\(.*\\)>" mid)
-                        (match-string 1 mid)
-                      (error "Malformed message ID header %s" mid)))))
-               (date (mail-header-date header))
-               (subject (gnus-summary-subject-string)))
-          (org-store-link-props :type "mid" :from from :subject subject
-                                :message-id message-id :group group
-                                :link (org-make-link "mid:" message-id))
-          (apply 'org-store-link-props
-                 :description (org-email-link-description)
-                 org-store-link-plist)
-          t)))))
-
-(defvar mde-mid-resolve-methods '()
-  "List of methods to try when resolving message ID's.  For Gnus,
-it is a cons of 'gnus and the select (type and name).")
-(setq mde-mid-resolve-methods
-      '((gnus nnml "")))
-
-(defvar mde-org-gnus-open-level 1
-  "Level at which Gnus is started when opening a link")
-(defun mde-org-gnus-open-message-link (msgid)
-  "Open a message link with Gnus"
-  (require 'gnus)
-  (require 'org-table)
-  (catch 'method-found
-    (message "[MID linker] Resolving %s" msgid)
-    (dolist (method mde-mid-resolve-methods)
-      (cond
-       ((and (eq (car method) 'gnus)
-             (eq (cadr method) 'nnml))
-        (funcall (cdr (assq 'gnus org-link-frame-setup))
-                 mde-org-gnus-open-level)
-        (when gnus-other-frame-object
-          (select-frame gnus-other-frame-object))
-        (let* ((msg-info (nnml-find-group-number
-                          (concat "<" msgid ">")
-                          (cdr method)))
-               (group (and msg-info (car msg-info)))
-               (message (and msg-info (cdr msg-info)))
-               (qname (and group
-                           (if (gnus-methods-equal-p
-                                (cdr method)
-                                gnus-select-method)
-                               group
-                             (gnus-group-full-name group (cdr method))))))
-          (when msg-info
-            (gnus-summary-read-group qname nil t)
-            (gnus-summary-goto-article message nil t))
-          (throw 'method-found t)))
-       (t (error "Unknown link type"))))))
-
-(eval-after-load 'org-gnus
-  '(progn
-     (add-to-list 'org-store-link-functions 'mde-org-gnus-save-by-mid)
-     (org-add-link-type "mid" 'mde-org-gnus-open-message-link)))
-
-(provide 'jao-org-gnus)
diff --git a/org/jao-org-links.el b/org/jao-org-links.el
deleted file mode 100644
index 7d9cb55..0000000
--- a/org/jao-org-links.el
+++ /dev/null
@@ -1,147 +0,0 @@
-(require 'jao-org-utils)
-(require 'pdf-info)
-
-(defvar jao-org--sink-dir "./")
-(defvar jao-org-open-pdf-fun 'jao-org--pdf-tools-open)
-
-(defun jao-org--pdf-tools-open (path page &optional height)
-  (org-open-file path 1)
-  (pdf-view-goto-page page)
-  (when height
-    (image-set-window-vscroll
-     (round (/ (* height (cdr (pdf-view-image-size))) (frame-char-height))))))
-
-(defun jao-org--pdf-open (path page &optional height)
-  (funcall (or jao-org-open-pdf-fun 'jao-org--pdf-tools-open) path page height))
-
-(defun jao-org--pdf-p (file) (string-match-p ".*\\.pdf$" file))
-
-(defun jao-org-links--open-pdf (link)
-  "Open LINK in pdf-view-mode."
-  (require 'pdf-tools)
-  (cond ((string-match "\\(.*\\)::\\([0-9]*\\)\\+\\+\\([[0-9]\\.*[0-9]*\\)"  link)
-         (let* ((path (match-string 1 link))
-                (page (string-to-number (match-string 2 link)))
-                (height (string-to-number (match-string 3 link))))
-           (jao-org--pdf-open path page height)))
-        ((string-match "\\(.*\\)::\\([0-9]+\\)$"  link)
-         (let* ((path (match-string 1 link))
-                (page (string-to-number (match-string 2 link))))
-           (jao-org--pdf-open path page)))
-        (t (org-open-file link 1))))
-
-(defun jao-org-links--follow-doc (link)
-  (let* ((full-link (concat org-directory "/doc/" link))
-         (dest-path (car (split-string full-link "::"))))
-    (when (not (file-exists-p dest-path))
-      (let* ((sink-file (expand-file-name link jao-org--sink-dir))
-             (real-file (if (file-exists-p sink-file) sink-file
-                          (read-file-name "Import file: "
-                                          jao-org--sink-dir link link))))
-        (shell-command (format "mv %s %s" real-file dest-path))))
-    (if (jao-org--pdf-p dest-path)
-        (jao-org-links--open-pdf full-link)
-        (browse-url (format "file://%s" (expand-file-name  dest-path))))))
-
-(defun jao-org-links--complete-doc (&optional arg)
-  (let ((default-directory jao-org--sink-dir))
-    (let ((f (replace-regexp-in-string "^file:" "doc:"
-                                       (org-file-complete-link arg))))
-      (if (jao-org--pdf-p f)
-          (concat f "::" (read-from-minibuffer "Page: " "1"))
-        f))))
-
-(defsubst jao-org--title->file (title)
-  (concat (mapconcat 'downcase (split-string title nil t) "-") ".pdf"))
-
-(defun jao-org--pdf-title (&optional fname)
-  (let ((base (file-name-base (or fname (pdf-view-buffer-file-name)))))
-    (capitalize (replace-regexp-in-string "-" " " base))))
-
-(defvar-local jao--pdf-outline nil)
-
-(defun jao-org--pdf-section-title (&optional page)
-  (when (not jao--pdf-outline)
-    (setq-local jao--pdf-outline (pdf-info-outline)))
-  (let ((page (or page (pdf-view-current-page)))
-        (outline jao--pdf-outline)
-        (cur-page 0)
-        (cur-title (jao-org--pdf-title)))
-    (while (and (car outline) (< cur-page page))
-      (setq cur-page (cdr (assoc 'page (car outline))))
-      (when (<= cur-page page)
-        (setq cur-title (cdr (assoc 'title (car outline)))))
-      (setq outline (cdr outline)))
-    (replace-regexp-in-string "[[:blank:]]+" " " cur-title)))
-
-;;;###autoload
-(defvar jao-org-links-pdf-store-fun nil)
-
-(defun jao-org-links--store-pdf-link ()
-  (or (when (fboundp jao-org-links-pdf-store-fun)
-        (funcall jao-org-links-pdf-store-fun))
-      (when (derived-mode-p 'pdf-view-mode)
-        (jao-org-links-store-pdf-link buffer-file-name
-                                      (pdf-view-current-page)
-                                      (jao-org--pdf-section-title)))))
-
-;;;###autoload
-(defun jao-org-links-store-pdf-link (path page title)
-  (org-store-link-props
-   :type "doc"
-   :link (format "doc:%s::%d" (file-name-nondirectory path) page)
-   :description (format "%s (p. %d)" title page)))
-
-;;;###autoload
-(defun jao-org-insert-doc (title)
-  (interactive "sDocument title: ")
-  (insert (format "[[doc:%s][%s]]" (jao-org--title->file title) title)))
-
-;;;###autoload
-(defun jao-org-links-setup (sink-dir)
-  (interactive)
-  (org-link-set-parameters "doc"
-                           :follow #'jao-org-links--follow-doc
-                           :complete #'jao-org-links--complete-doc
-                           :store #'jao-org-links--store-pdf-link)
-  (setq jao-org--sink-dir (file-name-as-directory sink-dir)))
-
-;;;###autoload
-(defvar jao-org-doc-notes-dir "notes/books")
-
-;;;###autoload
-(defun jao-org-org-to-pdf-file ()
-  (replace-regexp-in-string (format "/%s/\\(.+\\)\\.org$" jao-org-doc-notes-dir)
-                            "/doc/\\1.org"
-                            buffer-file-name))
-
-;;;###autoload
-(defun jao-org-pdf-to-org-file (&optional file-name)
-  (replace-regexp-in-string "/doc/\\(.+\\)\\.pdf$"
-                            (format "/%s/\\1.org" jao-org-doc-notes-dir)
-                            (or file-name buffer-file-name)))
-
-;;;###autoload
-(defun jao-org-insert-doc-skeleton (&optional title)
-  (insert "#+title: " (or title (jao-org--pdf-title (buffer-file-name)))
-          "\n#+author:\n#+startup: latexpreview\n\n"))
-
-;;;###autoload
-(defun jao-org-pdf-goto-org (arg)
-  (interactive "P")
-  (when (jao-org--pdf-p buffer-file-name)
-    (let* ((file (jao-org-pdf-to-org-file))
-           (new (not (file-exists-p file)))
-           (title (jao-org--pdf-title)))
-      (when (or arg new) (org-store-link nil t))
-      (find-file-other-window file)
-      (when new
-        (jao-org-insert-doc-skeleton title)
-        (org-insert-link)))))
-
-;;;###autoload
-(defun jao-org-pdf-goto-org* ()
-  (interactive)
-  (jao-org-pdf-goto-org t))
-
-(provide 'jao-org-links)
diff --git a/org/jao-org-notes.el b/org/jao-org-notes.el
deleted file mode 100644
index 3e9abbb..0000000
--- a/org/jao-org-notes.el
+++ /dev/null
@@ -1,79 +0,0 @@
-;;; jao-org-notes.el --- A simple system for org note taking  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2020, 2021  jao
-
-;; Author: jao <mail@jao.io>
-;; Keywords: tools
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; A note per file
-
-;;; Code:
-
-(require 'org)
-
-(defvar jao-org-notes-dir (expand-file-name "notes" org-directory))
-
-(defun jao-org-notes--insert-title ()
-  (let ((title (read-string "Title: ")))
-    (when (not (string-empty-p title))
-      (let* ((base (replace-regexp-in-string " +" "-" (downcase title)))
-             (fname (expand-file-name (concat base ".org") jao-org-notes-dir))
-             (exists? (file-exists-p fname)))
-        (find-file fname)
-        (when (not exists?)
-          (insert "#+title: " title "\n")
-          t)))))
-
-(defun jao-org-notes--insert-tags ()
-  (let ((ts (completing-read-multiple "Tags: "
-                                      (org-global-tags-completion-table))))
-    (insert "#+filetags:" ":" (mapconcat 'identity ts ":") ":\n")))
-
-(defun jao-org-notes--insert-date ()
-  (insert "#+date: ")
-  (org-insert-time-stamp (current-time))
-  (insert "\n"))
-
-(defun jao-org-notes--template (k)
-  `(,k "Note" plain (file jao-org-notes-open) "* %a "))
-
-;;;###autoload
-(defun jao-org-notes-open ()
-  (interactive)
-  (when (jao-org-notes--insert-title)
-    (jao-org-notes--insert-date)
-    (jao-org-notes--insert-tags)
-    (insert "#+link: "))
-  (save-buffer)
-  (buffer-file-name))
-
-;;;###autoload
-(defun jao-org-notes-setup (mnemonic)
-  (setq org-capture-templates
-        (add-to-list 'org-capture-templates (jao-org-notes--template mnemonic)))
-  (add-to-list 'org-agenda-files jao-org-notes-dir)
-  (when (fboundp 'org-capture-upgrade-templates)
-    (org-capture-upgrade-templates org-capture-templates)))
-
-;;;###autoload
-(defun jao-org-notes-backlinks ()
-  (interactive)
-  (consult-ripgrep jao-org-notes-dir (regexp-quote (buffer-name))))
-
-(provide 'jao-org-notes)
-;;; jao-org-notes.el ends here
diff --git a/org/jao-org-popup.el b/org/jao-org-popup.el
deleted file mode 100644
index eb5b24d..0000000
--- a/org/jao-org-popup.el
+++ /dev/null
@@ -1,31 +0,0 @@
-;;; frame popups
-;; http://metajack.im/2008/12/30/gtd-capture-with-emacs-orgmode/
-(defsubst jao-remember--frame-p ()
-  (equal "*Remember*" (frame-parameter nil 'name)))
-
-(defadvice remember-finalize (after delete-remember-frame activate)
-  "Advise remember-finalize to close the frame if it is the remember frame"
-  (when (jao-remember--frame-p) (delete-frame)))
-
-(defadvice remember-destroy (after delete-remember-frame activate)
-  "Advise remember-destroy to close the frame if it is the remember frame"
-  (when (jao-remember--frame-p) (delete-frame)))
-
-;; make the frame contain a single window. by default org-remember
-;; splits the window.
-(defun jao-remember--delete-other-windows ()
-  (when (jao-remember--frame-p) (delete-other-windows)))
-
-(add-hook 'remember-mode-hook 'jao-remember--delete-other-windows)
-
-(defun make-remember-frame ()
-  "Create a new frame and run org-remember"
-  (interactive)
-  (make-frame-on-display (getenv "DISPLAY")
-                         '((name . "*Remember*")
-                           (width . 80)
-                           (height . 10)))
-  (select-frame-by-name "*Remember*")
-  (org-remember nil ?x))
-
-(provide 'jao-org-popup)
\ No newline at end of file
diff --git a/org/jao-org-utils.el b/org/jao-org-utils.el
deleted file mode 100644
index 8d65ed7..0000000
--- a/org/jao-org-utils.el
+++ /dev/null
@@ -1,43 +0,0 @@
-(require 'org)
-
-;;; links
-(defun jao-org-link-at-point (&optional copy)
-  (when (thing-at-point-looking-at "\\[\\[\\([^]]+\\)\\]\\[[^]]+\\]\\]")
-    (when copy (kill-ring-save (match-beginning 1) (match-end 1)))
-    (match-string-no-properties 1)))
-
-(defun jao-org-copy-link-at-point ()
-  (interactive)
-  (message "%s" (or (jao-org-link-at-point t) "No link at point")))
-
-(defun jao-org-insert-link (url title)
-  (insert (format "[[%s][%s]]" url title)))
-
-;;; eldoc
-(defun jao-org-eldoc--hook ()
-  (set (make-local-variable 'eldoc-documentation-function)
-       'jao-org-link-at-point)
-  (eldoc-mode))
-
-;;;###autoload
-(defun jao-org-utils-eldoc-setup ()
-  (add-hook 'org-mode-hook 'jao-org-eldoc--hook))
-
-;;; play fair with saveplace
-(defun jao-org--show-if-hidden ()
-  (when (outline-invisible-p)
-    (save-excursion
-      (outline-previous-visible-heading 1)
-      (org-show-subtree))))
-
-;;; verifying org refile targets
-(defun jao-org--refile-target-verify ()
-  (not (looking-at-p ".*\\[\\[.+$")))
-
-;;;###autoload
-(defun jao-org-utils-setup ()
-  (setq org-refile-target-verify-function 'jao-org--refile-target-verify)
-  (add-hook 'org-mode-hook 'jao-org--show-if-hidden t))
-
-
-(provide 'jao-org-utils)