1 ;;; fuel-base.el --- Basic FUEL support code
3 ;; Copyright (C) 2008 Jose Antonio Ortega Ruiz
4 ;; See http://factorcode.org/license.txt for BSD license.
6 ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
11 ;; Basic definitions likely to be used by all FUEL modules.
15 (defconst fuel-version "1.0")
18 (defsubst fuel-version ()
19 "Echoes FUEL's version."
21 (message "FUEL %s" fuel-version))
28 "Factor's Ultimate Emacs Library"
32 ;;; Emacs compatibility:
34 (eval-after-load "ring"
35 '(when (not (fboundp 'ring-member))
36 (defun ring-member (ring item)
38 (dotimes (ind (ring-length ring) nil)
39 (when (equal item (ring-ref ring ind))
40 (throw 'found ind)))))))
45 (defun fuel--shorten-str (str len)
46 (let ((sl (length str)))
50 (segl (/ (- len sepl) 2)))
52 (substring str 0 segl)
54 (substring str (- sl segl)))))))
56 (defun fuel--shorten-region (begin end len)
57 (fuel--shorten-str (mapconcat 'identity
58 (split-string (buffer-substring begin end) nil t)
62 (defsubst empty-string-p (str) (equal str ""))
65 ;;; fuel-base.el ends here