Revert fpkg to use package.el temporary until we finish Enma

lib/fpkg.el

@@ -39,39 +39,59 @@
   (source 'elpa))
 
 
-(defvar bootstrap-version nil
-  "Bootstrap version of straight.  This var is used in straight's installer.")
-
-
-(defvar fpkg-packages-path
-  (expand-file-name ".fpkg/" fg42-home)
-  "The path to the directory which FPKG will use to store that packages.")
-
 (defvar fpkg-initilized-p nil
   "A boolean flag that indicates whether FPKG is initialized or not.")
 
+
 (defvar required-packages (make-hash-table)
   "A hash of `fg42-package structure representing required packages.")
 
 
 ;; Functions ----------------------------------
-(defun fpkg-initialize ()
-  "Initilize the straight.e package manager and setup necessary hooks."
-  (let ((bootstrap-file (concat fpkg-packages-path
-                                "straight/repos/straight.el/bootstrap.el"))
-        (bootstrap-version 5))
+(defun all-dependencies-installed? ()
+  "Return t if all the dependencies installed."
+  (let ((result t))
+    (dolist (pkg (hash-table-keys required-packages))
+      (when (not (package-installed-p pkg))
+        (message "'%s' package is not installed" pkg)
+        (setq result nil)))
+    result))
 
-    (make-directory fpkg-packages-path t)
-    (setq straight-base-dir fpkg-packages-path)
-    (setq straight-use-package-by-default t)
-    (if (not (file-exists-p bootstrap-file))
-        (with-current-buffer
-            (url-retrieve-synchronously
-             "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
-             'silent 'inhibit-cookies)
-          (goto-char (point-max))
-          (eval-print-last-sexp))
-      (load bootstrap-file nil 'nomessage))))
+
+(defun install--package (pkg)
+  "Intall the package PKG via its propreate source."
+  (let* ((source (fpkg-dependency-source pkg))
+         (func-name (concat "install-package-via-" (symbol-name source)))
+         (install-func (symbol-function (intern func-name))))
+    (funcall install-func pkg)))
+
+
+(defun fpkg-initialize ()
+  "Initilize the `package.el' and related stuff to be used in FG42."
+  (let ((packages (hash-table-values required-packages)))
+
+    (require 'package)
+
+    (add-to-list 'package-archives
+     '("melpa" . "http://melpa.org/packages/") t)
+    (when (< emacs-major-version 24)
+      ;; For important compatibility libraries like cl-lib
+      (add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")))
+
+    ;; Initialize package.el
+    (package-initialize)
+
+    (setq url-http-attempt-keepalives nil)
+
+    (unless (all-dependencies-installed?)
+      ;; check for new packages (package versions)
+      (message "%s" "Refreshing package database...")
+      (package-refresh-contents)
+
+      ;; install the missing packages
+      (dolist (pkg packages)
+        (when (not (package-installed-p (fpkg-dependency-name pkg)))
+          (install--package pkg))))))
 
 
 (defun fpkg-initialize-once ()
@@ -105,18 +125,10 @@
       `(fg42-install-extension ,(eval pkgname))
     `(use-package ,(eval pkgname) ,@details)))
 
-(comment
-  ;; depends on now is a wrapper around use-package
-  (macroexpand-1 '(depends-on 'exwm))
-  (macroexpand-1 '(depends-on 'go-mode :mode "\\.go\\'"))
-  (macroexpand-1 '(depends-on 'devops-extension))
-  (macroexpand-1 '(fg42-install-extension devops-extension))
-  ;; compatible with old calls
-  (macroexpand-1 '(depends-on 'cyberpunk-theme))
-  ;; official extension
-  (depends-on 'devops-extension)
-  ;; 3rd party extension
-  (depends-on 'go-extension :straight (go-extension :host gitlab :repo "amirrezaask/go-extension")))
+(defun depends-on (pkgname &rest args)
+  "Install the package PKGNAME with respect to the ARGS."
+  (let ((pkg (apply 'make-fpkg-dependency :name pkgname args)))
+    (puthash pkgname pkg  required-packages)))
 
 
 (provide 'fpkg)