mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-28 12:52:14 -08:00
17 lines
547 B
Common Lisp
17 lines
547 B
Common Lisp
(defparameter *qt-documentation-path* "~/doc-qt5-txt/")
|
|
(defparameter *not-found* 0)
|
|
|
|
(defun doc-file (class)
|
|
(format nil "~A~(~A~).txt" *qt-documentation-path* class))
|
|
|
|
(unless (probe-file (doc-file "QWidget"))
|
|
(error "Please set the *qt-documentation-path* first")
|
|
(ext:quit))
|
|
|
|
(defun search* (str1 str2 &optional (start 0))
|
|
(search str1 str2 :test 'string-equal :start2 start))
|
|
|
|
(defun sort-names (names)
|
|
(sort (remove-duplicates names :test 'string=)
|
|
'string<
|
|
:key (lambda (str) (string-trim "=/" str))))
|