;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/string.el

(defun string-data-p (str)
  (and (stringp str)
       (not (string= str ""))
       str))

;;         ,---------------.
;;        ; `,-------------.`.
;;        :`;_-             `.
;;        : :_-   R. I. P.   :
;;        : :_-           .- ;
;;        :`:.-=============-.
;;        : :_-           `-.:
;;        : :_-  e-m-a-c-s   :
;;        : :_-  d-e-v-e-l   :
;;        : :_-              :
;;        : :_-     .-       :
;;        : :_-           .- :
;;        : :_-              :
;; -------: :_-    2024      :`------
;;  _______`:_______________,;________
;;  ``^`^`^`^`^`^`^`^`^`^`^`^`^`^`^`^`

(provide 'string)