forked from FG42/FG42
helm disabled, splash.el added, Just a PoC
This commit is contained in:
parent
b41d9fc17b
commit
fc106c4786
|
@ -1,10 +1,13 @@
|
||||||
(add-to-list 'load-path (concat (getenv "FG42_HOME") "/lib"))
|
(add-to-list 'load-path (concat (getenv "FG42_HOME") "/lib"))
|
||||||
(toggle-debug-on-error)
|
;(toggle-debug-on-error)
|
||||||
(require 'fg42)
|
(require 'fg42)
|
||||||
|
|
||||||
;; Load the default theme
|
;; Load the default theme
|
||||||
(theme themes/color-theme-monokai)
|
(theme themes/color-theme-monokai)
|
||||||
|
|
||||||
|
;; Disable abilities which we do not want to load
|
||||||
|
(disable 'rbenv 'helm)
|
||||||
|
|
||||||
;; Activate these extensions
|
;; Activate these extensions
|
||||||
(activate-extensions 'editor
|
(activate-extensions 'editor
|
||||||
'development
|
'development
|
||||||
|
@ -14,9 +17,6 @@
|
||||||
'php
|
'php
|
||||||
'ruby)
|
'ruby)
|
||||||
|
|
||||||
;; Disable abilities which we do not want to load
|
|
||||||
(disable 'rbenv)
|
|
||||||
|
|
||||||
;; Load user config file in ~/.fg42
|
;; Load user config file in ~/.fg42
|
||||||
(load-user-config "~/.fg42")
|
(load-user-config "~/.fg42")
|
||||||
|
|
||||||
|
|
|
@ -1,3 +1,9 @@
|
||||||
|
(defconst fg42-about-text
|
||||||
|
`("FG42")
|
||||||
|
"A list of texts to show in the middle part of the About screen.
|
||||||
|
Each element in the list should be a list of strings or pairs
|
||||||
|
`:face FACE', like `fancy-splash-insert' accepts them.")
|
||||||
|
|
||||||
;; Vars ------------------------------
|
;; Vars ------------------------------
|
||||||
(defvar fg42-logo-image (concat (getenv "FG42_HOME") "/assets/images/logo.png")
|
(defvar fg42-logo-image (concat (getenv "FG42_HOME") "/assets/images/logo.png")
|
||||||
"Default fg42 logo")
|
"Default fg42 logo")
|
||||||
|
@ -15,9 +21,10 @@
|
||||||
(erase-buffer)
|
(erase-buffer)
|
||||||
(if pure-space-overflow
|
(if pure-space-overflow
|
||||||
(insert pure-space-overflow-message))
|
(insert pure-space-overflow-message))
|
||||||
(fg42-splash-head)
|
;(fg42-splash-head)
|
||||||
(dolist (text fancy-about-text)
|
(dolist (text fg42-about-text)
|
||||||
(apply #'fancy-splash-insert text)
|
;(apply #'fancy-splash-insert text)
|
||||||
|
(insert (propertize text 'display `(space :align-to (+ center 5))))
|
||||||
(insert "\n"))
|
(insert "\n"))
|
||||||
(set-buffer-modified-p nil)
|
(set-buffer-modified-p nil)
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
|
|
Loading…
Reference in New Issue