helm disabled, splash.el added, Just a PoC

This commit is contained in:
Sameer Rahmani 2015-07-21 13:35:52 +04:30
parent b41d9fc17b
commit fc106c4786
2 changed files with 14 additions and 7 deletions

View File

@ -1,10 +1,13 @@
(add-to-list 'load-path (concat (getenv "FG42_HOME") "/lib"))
(toggle-debug-on-error)
;(toggle-debug-on-error)
(require 'fg42)
;; Load the default theme
(theme themes/color-theme-monokai)
;; Disable abilities which we do not want to load
(disable 'rbenv 'helm)
;; Activate these extensions
(activate-extensions 'editor
'development
@ -14,9 +17,6 @@
'php
'ruby)
;; Disable abilities which we do not want to load
(disable 'rbenv)
;; Load user config file in ~/.fg42
(load-user-config "~/.fg42")

View File

@ -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 ------------------------------
(defvar fg42-logo-image (concat (getenv "FG42_HOME") "/assets/images/logo.png")
"Default fg42 logo")
@ -15,9 +21,10 @@
(erase-buffer)
(if pure-space-overflow
(insert pure-space-overflow-message))
(fg42-splash-head)
(dolist (text fancy-about-text)
(apply #'fancy-splash-insert text)
;(fg42-splash-head)
(dolist (text fg42-about-text)
;(apply #'fancy-splash-insert text)
(insert (propertize text 'display `(space :align-to (+ center 5))))
(insert "\n"))
(set-buffer-modified-p nil)
(goto-char (point-min))