flx-rs.el

;;; flx-rs.el --- flx in Rust using dynamic module  -*- lexical-binding: t; -*-

;; Copyright (C) 2021-2025  Shen, Jen-Chieh
;; Created date 2021-10-28 00:53:46

;; Author: Shen, Jen-Chieh <jcs090218@gmail.com>
;; URL: https://github.com/jcs-elpa/flx-rs
;; Version: 0.1.2
;; Package-Requires: ((emacs "25.1"))
;; Keywords: matching fuzzy

;; This file is NOT part of GNU Emacs.

;; 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:
;;
;; flx in Rust using dynamic module
;;

;;; Code:

(require 'pcase)
(require 'subr-x)

(defgroup flx-rs nil
  "flx in Rust using dynamic module."
  :prefix "flx-rs-"
  :group 'flx)

(defcustom flx-rs-bin-dir
  (concat (file-name-directory load-file-name) "bin/")
  "Pre-built binaries directory path."
  :type 'directory
  :group 'flx-rs)

(defcustom flx-rs-dyn-name "flx-rs"
  "Dynamic module name."
  :type 'string
  :group 'flx-rs)

;;
;; (@* "Externals" )
;;

(declare-function flx-rs-core-score "flx-rs-core")

;;
;; (@* "Utils" )
;;

(defun flx-rs-score (str query &rest _)
  "Return best score matching QUERY against STR."
  (unless (or (zerop (length query))
              (zerop (length str)))
    (when-let ((vec (ignore-errors (flx-rs-core-score str query))))
      (append vec nil))))  ; Convert vector to list

;;
;; (@* "Bootstrap" )
;;

(defun flx-rs--system-specific-file ()
  "Return the dynamic module filename, which is system-dependent."
  (let* ((x86 (string-prefix-p "x86_64" system-configuration))
         (name (if x86 "x86_64" "aarch64")))
    (pcase system-type
      ('windows-nt
       (concat flx-rs-dyn-name "." name "-pc-windows-msvc.dll"))
      ('darwin
       (concat flx-rs-dyn-name "." name "-apple-darwin.dylib"))
      ((or 'gnu 'gnu/linux 'gnu/kfreebsd)
       (concat flx-rs-dyn-name "." name "-unknown-linux-gnu.so")))))

;;;###autoload
(defun flx-rs-load-dyn ()
  "Load dynamic module."
  (interactive)
  (unless (featurep 'flx-rs-core)
    (let* ((dyn-name (flx-rs--system-specific-file))
           (dyn-path (concat flx-rs-bin-dir dyn-name)))
      (module-load dyn-path)
      (message "[INFO] Successfully load dynamic module, `%s`" dyn-name))))

(provide 'flx-rs)
;;; flx-rs.el ends here