several minor bugs fixed
This commit is contained in:
parent
acb15ca7c7
commit
81644bedc7
|
@ -1,4 +1,4 @@
|
||||||
|
;; Vars -------------------------------
|
||||||
(defvar about_fg42_msg "
|
(defvar about_fg42_msg "
|
||||||
FG42 %%VERSION%% Copyright © 2010-2015 Sameer Rahmani <lxsameer@gnu.org>
|
FG42 %%VERSION%% Copyright © 2010-2015 Sameer Rahmani <lxsameer@gnu.org>
|
||||||
FG42 release under the term of GPLv2.
|
FG42 release under the term of GPLv2.
|
||||||
|
@ -15,7 +15,7 @@ Credits:
|
||||||
"About FG42")
|
"About FG42")
|
||||||
|
|
||||||
|
|
||||||
|
;; Functions ---------------------------
|
||||||
(defun about/get_string ()
|
(defun about/get_string ()
|
||||||
"Get the about message string"
|
"Get the about message string"
|
||||||
(let (msg)
|
(let (msg)
|
||||||
|
@ -33,10 +33,8 @@ Credits:
|
||||||
(view-buffer buf)))
|
(view-buffer buf)))
|
||||||
|
|
||||||
(define-key-after global-map
|
(define-key-after global-map
|
||||||
[menu-bar help-menu about-kuso]
|
[menu-bar help-menu about-fg42]
|
||||||
'("About FG42" . about-fg42-f)
|
'("About FG42" . about-fg42-f)
|
||||||
'about-emacs)
|
'about-emacs)
|
||||||
;(define-key-after global-map [menu-bar help-menu kuso-update-everything] '("Update FG42 (everything)" . el-get-update-all) 'getting-new-versions)
|
|
||||||
;(define-key-after global-map [menu-bar help-menu kuso-update] '("Update FG42" . el-get-update) 'fg42-update-everything)
|
|
||||||
|
|
||||||
(provide 'extensions/editor/about)
|
(provide 'extensions/editor/about)
|
||||||
|
|
|
@ -1,3 +1,10 @@
|
||||||
|
;; Functions -------------------------------------------------
|
||||||
|
|
||||||
|
(defun fg42-reload ()
|
||||||
|
"Reload the entire FG42."
|
||||||
|
(interactive)
|
||||||
|
(load-file (concat (getenv "FG42_HOME") "/fg42-config.el")))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun extension/editor-initialize ()
|
(defun extension/editor-initialize ()
|
||||||
"Base plugin initialization."
|
"Base plugin initialization."
|
||||||
|
@ -10,7 +17,7 @@
|
||||||
(setq initial-scratch-message nil)
|
(setq initial-scratch-message nil)
|
||||||
|
|
||||||
|
|
||||||
;; Tramp configuration ---------------------------------------------
|
;; Tramp configuration -------------------------------------
|
||||||
(setq tramp-default-method "ssh")
|
(setq tramp-default-method "ssh")
|
||||||
|
|
||||||
;; replace strings
|
;; replace strings
|
||||||
|
@ -54,6 +61,9 @@
|
||||||
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
|
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
|
||||||
(global-set-key (kbd "C-c C-SPC ") 'mc/mark-all-like-this)
|
(global-set-key (kbd "C-c C-SPC ") 'mc/mark-all-like-this)
|
||||||
|
|
||||||
|
;; Reload FG42
|
||||||
|
(define-key global-map (kbd "<f5>") 'fg42-reload)
|
||||||
|
|
||||||
;; Key Chord ------------------------------------------------
|
;; Key Chord ------------------------------------------------
|
||||||
;; (require 'key-chord)
|
;; (require 'key-chord)
|
||||||
;; (key-chord-mode 1)
|
;; (key-chord-mode 1)
|
||||||
|
|
|
@ -1,3 +1,4 @@
|
||||||
(defconst FG42-VERSION "2.0.0")
|
(defconst FG42-VERSION "2.31.0"
|
||||||
|
"Global version of FG42")
|
||||||
|
|
||||||
(provide 'extensions/editor/version)
|
(provide 'extensions/editor/version)
|
||||||
|
|
|
@ -2,9 +2,9 @@
|
||||||
|
|
||||||
;; Copyright (C) 2015 lxsameer
|
;; Copyright (C) 2015 lxsameer
|
||||||
|
|
||||||
;; Author: Nic Ferrier <lxsameer@gnu.org>
|
;; Author: Sameer Rahmani <lxsameer@gnu.org>
|
||||||
;; Keywords: lisp fg42 IDE package manager
|
;; Keywords: lisp fg42 IDE package manager
|
||||||
;; Version: 2.67.0
|
;; Version: 2.31
|
||||||
|
|
||||||
;; This program is free software; you can redistribute it and/or modify
|
;; 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
|
;; it under the terms of the GNU General Public License as published by
|
||||||
|
@ -33,4 +33,3 @@
|
||||||
(initialize-extensions))
|
(initialize-extensions))
|
||||||
|
|
||||||
(provide 'fg42)
|
(provide 'fg42)
|
||||||
|
|
||||||
|
|
11
lib/fpkg.el
11
lib/fpkg.el
|
@ -2,7 +2,7 @@
|
||||||
|
|
||||||
;; Copyright (C) 2015 lxsameer
|
;; Copyright (C) 2015 lxsameer
|
||||||
|
|
||||||
;; Author: Nic Ferrier <lxsameer@gnu.org>
|
;; Author: Sameer Rahmani <lxsameer@gnu.org>
|
||||||
;; Keywords: lisp fg42 IDE package manager
|
;; Keywords: lisp fg42 IDE package manager
|
||||||
;; Version: 1.0.0
|
;; Version: 1.0.0
|
||||||
|
|
||||||
|
@ -48,7 +48,7 @@
|
||||||
(dolist (pkg (hash-table-values required-packages))
|
(dolist (pkg (hash-table-values required-packages))
|
||||||
(when (not (package-installed-p pkg)) (setq result nil)))
|
(when (not (package-installed-p pkg)) (setq result nil)))
|
||||||
result))
|
result))
|
||||||
|
|
||||||
(defun install--package (pkg)
|
(defun install--package (pkg)
|
||||||
"Intall a package via its propreate source."
|
"Intall a package via its propreate source."
|
||||||
(let* ((source (fpkg-dependency-source pkg))
|
(let* ((source (fpkg-dependency-source pkg))
|
||||||
|
@ -63,7 +63,7 @@
|
||||||
(let ((packages (hash-table-values required-packages)))
|
(let ((packages (hash-table-values required-packages)))
|
||||||
|
|
||||||
(require 'package)
|
(require 'package)
|
||||||
|
|
||||||
(add-to-list 'package-archives
|
(add-to-list 'package-archives
|
||||||
'("melpa" . "http://melpa.milkbox.net/packages/") t)
|
'("melpa" . "http://melpa.milkbox.net/packages/") t)
|
||||||
(when (< emacs-major-version 24)
|
(when (< emacs-major-version 24)
|
||||||
|
@ -72,21 +72,20 @@
|
||||||
|
|
||||||
;; Initialize package.el
|
;; Initialize package.el
|
||||||
(package-initialize)
|
(package-initialize)
|
||||||
|
|
||||||
(setq url-http-attempt-keepalives nil)
|
(setq url-http-attempt-keepalives nil)
|
||||||
|
|
||||||
(unless (all-dependencies-installed?)
|
(unless (all-dependencies-installed?)
|
||||||
;; check for new packages (package versions)
|
;; check for new packages (package versions)
|
||||||
(message "%s" "Refreshing package database...")
|
(message "%s" "Refreshing package database...")
|
||||||
(package-refresh-contents)
|
(package-refresh-contents)
|
||||||
(message "%s" " done.")
|
|
||||||
|
|
||||||
;; install the missing packages
|
;; install the missing packages
|
||||||
(dolist (pkg packages)
|
(dolist (pkg packages)
|
||||||
(when (not (package-installed-p (fpkg-dependency-name pkg)))
|
(when (not (package-installed-p (fpkg-dependency-name pkg)))
|
||||||
(install--package pkg))))))
|
(install--package pkg))))))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(defun depends-on (pkgname &rest args)
|
(defun depends-on (pkgname &rest args)
|
||||||
"Global function to specify a single dependency"
|
"Global function to specify a single dependency"
|
||||||
|
|
Loading…
Reference in New Issue