org-tag-eldoc-common.el

   1 ;;; org-tag-eldoc-common.el --- common functions for org-tag-eldoc -*- lexical-binding: t; -*-
   2 ;; -*- coding: utf-8 -*-
   3
   4 ;; Copyright (C) 2024-2025 Christopher M. Miles, all rights reserved.
   5
   6 ;;; Commentary:
   7
   8
   9
  10 ;;; Code:
  11 \f
  12 (defvar org-tag-eldoc--explanation nil
  13   "A private variable to store the function internal variable `explanation'.")
  14
  15 (defun org-tag-eldoc-common--format-explanation (text)
  16   "Format TEXT for better displaying."
  17   (require 'subr-x)
  18   (thread-last
  19     text
  20     (string-clean-whitespace)
  21     ;; (string-replace "\n" "")
  22     ))
  23
  24 \f
  25
  26 (provide 'org-tag-eldoc-common)
  27
  28 ;;; org-tag-eldoc-common.el ends here