diff options
author | Yann Herklotz <git@yannherklotz.com> | 2022-12-24 11:49:44 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2022-12-24 11:49:44 +0000 |
commit | a96d758daa28fa375dad4617e53ea2713aa7eb45 (patch) | |
tree | 8596c072e6291bc752afc244479039aef1b7fa7d /org-zettelkasten-counsel.el | |
parent | d1309fe7f770a865441b91c1c8327036c307ef54 (diff) | |
download | org-zettelkasten-a96d758daa28fa375dad4617e53ea2713aa7eb45.tar.gz org-zettelkasten-a96d758daa28fa375dad4617e53ea2713aa7eb45.zip |
Remove support for zettelkasten.el and fork repository
Diffstat (limited to 'org-zettelkasten-counsel.el')
-rw-r--r-- | org-zettelkasten-counsel.el | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/org-zettelkasten-counsel.el b/org-zettelkasten-counsel.el new file mode 100644 index 0000000..5c48074 --- /dev/null +++ b/org-zettelkasten-counsel.el @@ -0,0 +1,42 @@ +;;; org-zettelkasten-counsel.el --- Helper functions to use Zettelkasten in org-mode -*- lexical-binding: t; -*- + +;; Author: Yann Herklotz <yann@ymhg.org> +;; Created: 2022 +;; Version: 0.3.0 +;; Package-Requires: ((emacs "24.3") (consult "0.20")) +;; Keywords: files, hypermedia, Org, notes +;; Homepage: https://github.com/ymherklotz/emacs-zettelkasten + +;; 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: + +;; These functions allow for the use of the zettelkasten method in org-mode. +;; +;; It uses the CUSTOM_ID property to store a permanent ID to the note, +;; which are organised in the same fashion as the notes by Luhmann. + +;;; Code: + +(require 'counsel) + +(defun org-zettelkasten-counsel-search-current-id () + "Use `counsel-rg' to search for the current ID in all files." + (interactive) + (let ((current-id (org-entry-get nil "CUSTOM_ID"))) + (counsel-rg (concat "#" current-id) org-zettelkasten-directory "-g *.org" "ID: "))) + +(provide 'org-zettelkasten-counsel) + +;;; org-zettelkasten-counsel.el ends here |