diff options
Diffstat (limited to 'org/jao-org-notes.el')
-rw-r--r-- | org/jao-org-notes.el | 79 |
1 files changed, 0 insertions, 79 deletions
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 |