From fc106c478616ff7b622359b28118045172111dec Mon Sep 17 00:00:00 2001 From: Sameer Rahmani Date: Tue, 21 Jul 2015 13:35:52 +0430 Subject: [PATCH] helm disabled, splash.el added, Just a PoC --- fg42-config.el | 8 ++++---- lib/fg42/splash.el | 13 ++++++++++--- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/fg42-config.el b/fg42-config.el index 7c7e33b..62a6d55 100644 --- a/fg42-config.el +++ b/fg42-config.el @@ -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") diff --git a/lib/fg42/splash.el b/lib/fg42/splash.el index 711bb13..fcae215 100644 --- a/lib/fg42/splash.el +++ b/lib/fg42/splash.el @@ -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))