;;; fpkg --- a simple package manager for FG42 -*- lexical-binding: t; -*- ;; ;; Copyright (C) 2010-2021 Sameer Rahmani ;; ;; Author: Sameer Rahmani ;; Keywords: lisp fg42 IDE package manager ;; Version: 1.0.0 ;; ;; 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 . ;; ;;; Commentary: ;; ;; Simple package manager for FG42 ;; ;;; Code: (require 'fg42/core) (defvar bootstrap-version 5) (defcustom fpkg-package-directory (concat fg42-home "/.fpkg") "Specify the directory to store all the dependencies." :group 'fpkg :type 'string) (defun fpkg/install-and-load-use-package () "Install and load the use-package in compile time." ;; TODO Enable use-package on compile time ;;(eval-when-compile) (straight-use-package 'use-package) (setq use-package-always-ensure t) (require 'use-package)) (defun fpkg/initialize () "Initialize FPKG." (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))) (unless (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) (fpkg/install-and-load-use-package))) (provide 'fpkg/core) ;;; core.el ends here