spacemacs/layers/+chat/erc/funcs.el

;;; 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)))
-												Move erc/funcs.el to new folder, add header

											
										
										
											2016-04-08 16:03:38 +00:00
+								;;; funcs.el --- Spacemacs ERC Layer functions File
 								;;
-												[erc] Refactor window purpose allocation to use official form

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.

											
										
										
											2020-06-25 23:29:10 +00:00
+								;; Copyright (c) 2012-2020 Sylvain Benner & Contributors
-												Move erc/funcs.el to new folder, add header

											
										
										
											2016-04-08 16:03:38 +00:00
+								;;
 								;; Author: Sylvain Benner <sylvain.benner@gmail.com>
 								;; URL: https://github.com/syl20bnr/spacemacs
 								;;
 								;; This file is not part of GNU Emacs.
 								;;
 								;;; License: GPLv3
-												Add default server list to ERC layer

											
										
										
											2016-03-16 03:11:53 +00:00
+								(defun erc//servers (server-list)
 								  (dolist (s server-list)
-												Fix connecting to default servers with TLS more than once with ERC

The erc//servers function removes the :ssl variable from the list so it
can be passed directly to erc-tls, but this means that subsequent
connections will not use TLS. Thus, we should operate on a copy of the
list instead.

											
										
										
											2016-10-10 22:27:02 +00:00
+								    (setq s (copy-list s))
-												Add default server list to ERC layer

											
										
										
											2016-03-16 03:11:53 +00:00
+								    (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")))
-												Make custom layout configs consistent

Use a use-package hook and avoid using lambdas.
Use same naming for all config.

											
										
										
											2018-01-10 04:01:34 +00:00
 								;; 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)))