689244821c
In the old form the wrong type of extension was added, this prevented any reconfiguration of purpose allocations in the dotfile. Now the right type of allocation is used allowing users to overwrite the config easily. How this is done is described in the purpose layer.
40 lines
1 KiB
EmacsLisp
40 lines
1 KiB
EmacsLisp
;;; funcs.el --- Spacemacs ERC Layer functions File
|
||
;;
|
||
;; Copyright (c) 2012-2020 Sylvain Benner & Contributors
|
||
;;
|
||
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
||
;; URL: https://github.com/syl20bnr/spacemacs
|
||
;;
|
||
;; This file is not part of GNU Emacs.
|
||
;;
|
||
;;; License: GPLv3
|
||
|
||
(defun erc//servers (server-list)
|
||
(dolist (s server-list)
|
||
(setq s (copy-list s))
|
||
(apply (if
|
||
(plist-get (cdr s) :ssl)
|
||
(progn
|
||
(remf (cdr s) :ssl)
|
||
'erc-tls)
|
||
'erc)
|
||
:server s)))
|
||
|
||
(defun erc/default-servers ()
|
||
(interactive)
|
||
(if erc-server-list
|
||
(erc//servers erc-server-list)
|
||
(message "You must define erc-server-list")))
|
||
|
||
|
||
;; persp
|
||
|
||
(defun spacemacs//erc-persp-filter-save-buffers-function (buffer)
|
||
"Filter for erc layout."
|
||
(with-current-buffer buffer
|
||
(eq major-mode 'erc-mode)))
|
||
|
||
(defun spacemacs//erc-buffer-to-persp ()
|
||
"Add buffer to erc layout."
|
||
(persp-add-buffer (current-buffer) (persp-get-by-name
|
||
erc-spacemacs-layout-name)))
|