emacs/plexus.chemacs2
1
0
Fork 0
mirror of https://github.com/plexus/chemacs2.git synced 2026-09-10 07:26:27 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge pull request #11 from garrison/with-profile-equals

Browse source 
Fix #10, support `--with-profile=profilename`
This commit is contained in:
Arne Brasseur 2018-10-01 14:18:13 +02:00 committed by GitHub
parent 1140501da6 fe4d6ea9d2
commit 68382d50d1
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 25 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
.emacs
View file

@ -106,23 +106,34 @@
(load custom-file))))
(defun chemacs-check-command-line-args (args)
(when args
(if (equal (car args) "--with-profile")
(chemacs-load-profile (cadr args))
(chemacs-check-command-line-args (cdr args)))))
(if args
;; Handle either `--with-profile profilename' or
;; `--with-profile=profilename'
(let ((s (split-string (car args) "=")))
(cond ((equal (car args) "--with-profile")
;; This is just a no-op so Emacs knows --with-profile
;; is a valid option. If we wait for
;; command-switch-alist to be processed then
;; after-init-hook has already run.
(add-to-list 'command-switch-alist
'("--with-profile" .
(lambda (_) (pop command-line-args-left))))
;; Load the profile
(chemacs-load-profile (cadr args)))
;; This is just a no-op so Emacs knows --with-profile is a valid option. If we
;; wait for command-switch-alist to be processed then after-init-hook has
;; already run.
(add-to-list 'command-switch-alist '("--with-profile" .
(lambda (_) (pop command-line-args-left))))
;; Similar handling for `--with-profile=profilename'
((equal (car s) "--with-profile")
(add-to-list 'command-switch-alist `(,(car args) . (lambda (_))))
(chemacs-load-profile (mapconcat 'identity (cdr s) "=")))
;; Check for a --with-profile flag and honor it
(t (chemacs-check-command-line-args (cdr args)))))
;; If no profile given, load the "default" profile
(chemacs-load-profile (chemacs-detect-default-profile))))
;; Check for a --with-profile flag and honor it; otherwise load the
;; default profile.
(chemacs-check-command-line-args command-line-args)
;; Or if none given, load the "default" profile
(when (not (member "--with-profile" command-line-args))
(chemacs-load-profile (chemacs-detect-default-profile)))
(provide '.emacs)
;;; .emacs ends here