bmag

;;; lpkg-explorer.el --- Emacs loaded packages exploration tools  -*- lexical-binding: t; -*-

;; Copyright (C) 2017  Michelle Baert

;; Author:  Michelle Baert https://gist.github.com/RockyRoad29
;; Keywords: maint
;; ---------------------------------------------------------------
;; These functions are designed basically for use in
;; a lisp interaction session, where more variants
;; may easily be tailored for your needs.

bmag

;; load configuration from $EMACSDIR/init.el and set $EMACSDIR as
;; `user-emacs-directory'. if $EMACSDIR is not set, use `~/.emacs.d'.
(let* ((emacs-dir-env (getenv "EMACSDIR"))
       (custom-emacs-dir (and emacs-dir-env
                              (file-name-as-directory emacs-dir-env))))
  ;; `user-emacs-directory' default value is emacs.d"
  (when custom-emacs-dir
    (setq user-emacs-directory custom-emacs-dir)))

(setq user-init-file (expand-file-name "init.el" user-emacs-directory))

bmag

(defun display-buffer-in-right-split (buffer alist)
  (let ((right-window (car (window-at-side-list nil 'right))))
    (when right-window
      (let ((new-window (split-window right-window nil 'below)))
        (window--display-buffer buffer new-window 'window alist)))))

(defun switch-buffer-split-right (buffer)
  (interactive)
  (pop-to-buffer buffer '(display-buffer-in-right-split)))

bmag

(with-eval-after-load 'spaceline
    (setq powerline-default-separator 'bar)
    (set-face-attribute 'mode-line-inactive nil :box nil)
    (spaceline-toggle-minor-modes-off)
    (with-eval-after-load 'window-purpose
      (spaceline-define-segment purpose
        "Purpose of buffer."
        ;; (purpose--modeline-string)
        (when purpose-mode (format "%s%s%s"
                                   (purpose-buffer-purpose (current-buffer))