+++ /dev/null
-;;; extensions.el --- irc Layer extensions File for Spacemacs
-;;
-;; Copyright (c) 2012-2014 Sylvain Benner
-;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
-;;
-;; Author: Sylvain Benner <sylvain.benner@gmail.com>
-;; URL: https://github.com/syl20bnr/spacemacs
-;;
-;; This file is not part of GNU Emacs.
-;;
-;; vbe* functions for reading passwords from authinfo by Vincent Bernat
-;;
-;;; License: GPLv3
-
-(setq irc-pre-extensions
- '(
- ;; pre extension names go here
- ))
-
-(setq irc-post-extensions
- '(
- ;; post extension names go here
- znc
- ))
-
-;; For each extension, define a function irc/init-<extension-name>
-;;
-(defun irc/init-znc ()
- "Initialize znc"
- (use-package znc
- :load-path "private/ZNC.el"
- :commands (znc-erc znc-all)
- :defer t
- :init (evil-leader/set-key
- "aize" 'znc-erc
- "aiza" 'znc-all)
- :config
- (progn
- (defun vbe:znc-add-server (server port user networks)
- "Add a server to the list of ZNC servers.
-We use SSL inconditionaly. Moreover, we don't store the password
-but put nil instead. At least, we tweak the username to contain
-the network name later, this will be separated again."
- (add-to-list 'znc-servers
- (list server
- port
- t ; SSL enabled
- (mapcar (function (lambda (slug) (list slug
- (format "%s/%s" user slug)
- nil)))
- networks))))
-
- (defun vbe:znc-erc-ssl-connector (&rest R)
- "Connect to ERC using SSL and retrieve password with `auth-source-search'.
-Moreover, handle multiple networks by sending the password with
-the appropriate network slug that we extract from the nick."
- (let* ((user (nth 0 (split-string (plist-get R :nick) "/")))
- (slug (nth 1 (split-string (plist-get R :nick) "/")))
- (found (nth 0 (auth-source-search :host (plist-get R :server)
- :user user
- :require '(:user :secret)
- :max 1))))
- (if found
- (let ((password (let ((secret (plist-get found :secret)))
- (if (functionp secret)
- (funcall secret)
- secret))))
- (plist-put R :password (format "%s/%s:%s" user slug password))
- (plist-put R :nick user)
- (apply 'erc-tls R)))))
- (setq znc-erc-ssl-connector 'vbe:znc-erc-ssl-connector)
-
- ;; Define networks
- (vbe:znc-add-server "aminb.org" 6697 "aminb"
- '(freenode mozilla))
- )
- )
- )
-;;
-;; Often the body of an initialize function uses `use-package'
-;; For more info on `use-package', see readme:
-;; https://github.com/jwiegley/use-package
+++ /dev/null
-;;; packages.el --- mu4e Layer packages File for Spacemacs
-;;
-;; Copyright (c) 2012-2014 Sylvain Benner
-;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
-;; Copyright (c) 2015 Amin Bandali
-;;
-;; Authors: Amin Bandali <me@aminb.org>
-;; Sylvain Benner <sylvain.benner@gmail.com>
-;; URL: https://github.com/aminb/dotfiles
-;;
-;; This file is not part of GNU Emacs; nor that of spacemacs.
-;;
-;;; License: GPLv3
-
-(defvar mu4e-packages
- '(
- ;; mu4e is not in any repos, so it's commented
- ;; mu4e
- smtpmail
- )
- "List of all packages to install and/or initialize. Built-in packages
-which require an initialization must be listed explicitly in the list.")
-
-(defvar mu4e-excluded-packages '()
- "List of packages to exclude.")
-
-(defun get-string-from-file (filePath)
- "Return filePath's file content."
- (with-temp-buffer
- (insert-file-contents filePath)
- (buffer-string)))
-;; thanks to “Pascal J Bourguignon” and “TheFlyingDutchman
-;; 〔zzbba…@aol.com〕”. 2010-09-02
-
-(defun get-passwd-file (name)
- "Return name's passwd file content"
- (get-string-from-file (concat "/home/amin/.passwd/" name)))
-
-(require 'mu4e)
-(require 'smtpmail)
-
-;; path to our Maildir directory
-(setq mu4e-maildir "/home/amin/.mail")
-
-(setq
- mu4e-get-mail-command "mbsync -aq" ;; or fetchmail, or ...
- mu4e-update-interval 300 ;; update every 5 minutes
- mu4e-sent-folder "/aminb/Sent"
- mu4e-drafts-folder "/aminb/Drafts"
- mu4e-trash-folder "/aminb/Trash"
- user-mail-address (get-passwd-file "aminb-mail")
- mu4e-compose-signature
- (concat
- "Amin Bandali\n"
- "<aminb.org>\n")
- smtpmail-default-smtp-server "mail.aminb.org"
- smtpmail-local-domain "aminb.org"
- smtpmail-smtp-server "mail.aminb.org"
- smtpmail-stream-type 'ssl
- smtpmail-smtp-service 465)
-
-(defvar my-mu4e-account-alist
- '(("aminb"
- (mu4e-sent-folder "/aminb/Sent")
- (mu4e-drafts-folder "/aminb/Drafts")
- (mu4e-trash-folder "/aminb/Trash")
- (user-mail-address (get-passwd-file "aminb-mail"))
- (user-full-name "Amin Bandali")
- (smtpmail-default-smtp-server "mail.aminb.org")
- (smtpmail-local-domain "aminb.org")
- (smtpmail-smtp-user (get-passwd-file "aminb-user"))
- (smtpmail-smtp-server "mail.aminb.org")
- (smtpmail-stream-type ssl)
- (smtpmail-smtp-service 465))
- (user-mail-address (get-passwd-file "gmail-mail"))
- ("gmail"
- (mu4e-sent-folder "/gmail/[Gmail].Sent Mail")
- (mu4e-drafts-folder "/gmail/Drafts")
- (mu4e-trash-folder "/gmail/Trash")
- (user-full-name "Amin Bandali")
- (smtpmail-default-smtp-server "smtp.gmail.com")
- (smtpmail-local-domain "gmail.com")
- (smtpmail-smtp-user (get-passwd-file "gmail-mail"))
- (smtpmail-smtp-server "smtp.gmail.com")
- (smtpmail-stream-type ssl)
- (smtpmail-smtp-service 465))))
-
-(defun my-mu4e-set-account ()
- "Set the account for composing a message."
- (let* ((account
- (if mu4e-compose-parent-message
- (let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir)))
- (string-match "/\\(.*?\\)/" maildir)
- (match-string 1 maildir))
- (completing-read (format "Compose with account: (%s) "
- (mapconcat #'(lambda (var) (car var))
- my-mu4e-account-alist "/"))
- (mapcar #'(lambda (var) (car var)) my-mu4e-account-alist)
- nil t nil nil (caar my-mu4e-account-alist))))
- (account-vars (cdr (assoc account my-mu4e-account-alist))))
- (if account-vars
- (mapc #'(lambda (var)
- (set (car var) (cadr var)))
- account-vars)
- (error "No email account found"))))
-
-(add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account)
-
-
-;; Shortcut for mu4e.
-(global-set-key (kbd "C-c m") 'mu4e)
-(evil-leader/set-key "am" 'mu4e)
-
-
-;; A special version of the gnus-dired-mail-buffers function
-;; that understands mu4e buffers as well
-(require 'gnus-dired)
-;; make the `gnus-dired-mail-buffers' function also work on
-;; message-mode derived modes, such as mu4e-compose-mode
-(defun gnus-dired-mail-buffers ()
- "Return a list of active message buffers."
- (let (buffers)
- (save-current-buffer
- (dolist (buffer (buffer-list t))
- (set-buffer buffer)
- (when (and (derived-mode-p 'message-mode)
- (null message-sent-message-via))
- (push (buffer-name buffer) buffers))))
- (nreverse buffers)))
-
-(setq gnus-dired-mail-mode 'mu4e-user-agent)
-(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)
-
-(require 'mu4e-contrib)
-(setq mu4e-html2text-command 'mu4e-shr2text
- mu4e-view-html-plaintext-ratio-heuristic 10
- mu4e-view-prefer-html t)
-
-;; For each package, define a function mu4e/init-<package-mu4e>
-;;
-;; (defun mu4e/init-my-package ()
-;; "Initialize my package"
-;; )
-;;
-;; Often the body of an initialize function uses `use-package'
-;; For more info on `use-package', see readme:
-;; https://github.com/jwiegley/use-package
;; `+distribution'. For now available distributions are `spacemacs-base'
;; or `spacemacs'. (default 'spacemacs)
dotspacemacs-distribution 'spacemacs
+ ;; If non-nil layers with lazy install support are lazy installed.
+ ;; (default nil)
+ dotspacemacs-enable-lazy-installation nil
;; List of additional paths where to look for configuration layers.
;; Paths must have a trailing slash (i.e. `~/.mycontribs/')
dotspacemacs-configuration-layer-path '()
;; Uncomment some layer names and press <SPC f e R> (Vim style) or
;; <M-m f e R> (Emacs style) to install them.
;; ----------------------------------------------------------------
- auto-completion
- better-defaults
+ spacemacs-helm
+ ;; auto-completion
+ ;; better-defaults
emacs-lisp
- git
- markdown
- org
- (shell :variables
- shell-default-height 30
- shell-default-position 'bottom)
- spell-checking
- syntax-checking
- ;; mu4e
- c-c++
- java
- latex
- ;; erc
- ;; irc
- ;; themes-megapack
- ;; music
- ;; (ranger :variables
- ;; ranger-show-preview t)
- xkcd
- ;; (haskell :variables '(haskell-enable-hindent-style "chris-done"
- ;; haskell-enable-shm-support t))
+ ;; git
+ ;; markdown
+ ;; org
+ ;; (shell :variables
+ ;; shell-default-height 30
+ ;; shell-default-position 'bottom)
+ ;; spell-checking
+ ;; syntax-checking
;; version-control
)
;; List of additional packages that will be installed without being
;; wrapped in a layer. If you need some configuration for these
- ;; packages then consider to create a layer, you can also put the
+ ;; packages, then consider creating a layer. You can also put the
;; configuration in `dotspacemacs/user-config'.
dotspacemacs-additional-packages '()
;; A list of packages and/or extensions that will not be install and loaded.
;; If the value is nil then no banner is displayed. (default 'official)
dotspacemacs-startup-banner 'official
;; List of items to show in the startup buffer. If nil it is disabled.
- ;; Possible values are: `recents' `bookmarks' `projects'.
+ ;; Possible values are: `recents' `bookmarks' `projects' `agenda' `todos'.
;; (default '(recents projects))
dotspacemacs-startup-lists '(recents projects)
;; Number of recent files to show in the startup buffer. Ignored if
;; `dotspacemacs-startup-lists' doesn't include `recents'. (default 5)
dotspacemacs-startup-recent-list-size 5
+ ;; Default major mode of the scratch buffer (default `text-mode')
+ dotspacemacs-scratch-mode 'text-mode
;; List of themes, the first of the list is loaded when spacemacs starts.
;; Press <SPC> T n to cycle to the next theme in the list (works great
;; with 2 themes variants, one dark and one light)
;; Major mode leader key accessible in `emacs state' and `insert state'.
;; (default "C-M-m)
dotspacemacs-major-mode-emacs-leader-key "C-M-m"
+ ;; The key used for Emacs commands (M-x) (after pressing on the leader key).
+ ;; (default "SPC")
+ dotspacemacs-emacs-command-key "SPC"
;; These variables control whether separate commands are bound in the GUI to
;; the key pairs C-i, TAB and C-m, RET.
;; Setting it to a non-nil value, allows for separate commands under <C-i>
;; In the terminal, these pairs are generally indistinguishable, so this only
;; works in the GUI. (default nil)
dotspacemacs-distinguish-gui-tab nil
- ;; (Not implemented) dotspacemacs-distinguish-gui-ret nil
- ;; The command key used for Evil commands (ex-commands) and
- ;; Emacs commands (M-x).
- ;; By default the command key is `:' so ex-commands are executed like in Vim
- ;; with `:' and Emacs commands are executed with `<leader> :'.
- dotspacemacs-command-key ":"
- ;; If non nil `Y' is remapped to `y$'. (default t)
- dotspacemacs-remap-Y-to-y$ t
+ ;; If non nil `Y' is remapped to `y$' in Evil states. (default nil)
+ dotspacemacs-remap-Y-to-y$ nil
+ ;; If non nil, inverse the meaning of `g' in `:substitute' Evil ex-command.
+ ;; (default nil)
+ dotspacemacs-ex-substitute-global nil
;; Name of the default layout (default "Default")
dotspacemacs-default-layout-name "Default"
;; If non nil the default layout name is displayed in the mode-line.
dotspacemacs-helm-position 'bottom
;; If non nil the paste micro-state is enabled. When enabled pressing `p`
;; several times cycle between the kill ring content. (default nil)
- dotspacemacs-enable-paste-micro-state nil
+ dotspacemacs-enable-paste-transient-state nil
;; Which-key delay in seconds. The which-key buffer is the popup listing
;; the commands bound to the current keystroke sequence. (default 0.4)
dotspacemacs-which-key-delay 0.4
;; the transparency level of a frame when it's inactive or deselected.
;; Transparency can be toggled through `toggle-transparency'. (default 90)
dotspacemacs-inactive-transparency 90
+ ;; If non nil show the titles of transient states. (default t)
+ dotspacemacs-show-transient-state-title t
+ ;; If non nil show the color guide hint for transient state keys. (default t)
+ dotspacemacs-show-transient-state-color-guide t
;; If non nil unicode symbols are displayed in the mode line. (default t)
dotspacemacs-mode-line-unicode-symbols t
;; If non nil smooth scrolling (native-scrolling) is enabled. Smooth
- ;; scrolling overrides the default behavior of Emacs which recenters the
- ;; point when it reaches the top or bottom of the screen. (default t)
+ ;; scrolling overrides the default behavior of Emacs which recenters point
+ ;; when it reaches the top or bottom of the screen. (default t)
dotspacemacs-smooth-scrolling t
;; If non nil line numbers are turned on in all `prog-mode' and `text-mode'
;; derivatives. If set to `relative', also turns on relative line numbers.
;; specified with an installed package.
;; Not used for now. (default nil)
dotspacemacs-default-package-repository nil
- ;; Delete whitespace while saving buffer. Possible values are `all',
- ;; `trailing', `changed' or `nil'. Default is `changed' (cleanup whitespace
- ;; on changed lines) (default 'changed)
- dotspacemacs-whitespace-cleanup 'changed
- ;; Disable setting the cursor color according to states
- ;; dotspacemacs-colorize-cursor-according-to-state nil
+ ;; Delete whitespace while saving buffer. Possible values are `all'
+ ;; to aggressively delete empty line and long sequences of whitespace,
+ ;; `trailing' to delete only the whitespace at end of lines, `changed'to
+ ;; delete only whitespace for changed lines or `nil' to disable cleanup.
+ ;; (default nil)
+ dotspacemacs-whitespace-cleanup nil
))
(defun dotspacemacs/user-init ()
"Initialization function for user code.
-It is called immediately after `dotspacemacs/init'. You are free to put almost any
-user code here. The exception is org related code, which should be placed in
-`dotspacemacs/user-config'."
+It is called immediately after `dotspacemacs/init'. You are free to put almost
+any user code here. The exception is org related code, which should be placed
+in `dotspacemacs/user-config'."
)
(defun dotspacemacs/user-config ()
"Configuration function for user code.
This function is called at the very end of Spacemacs initialization after
layers configuration. You are free to put any user code."
- ;; (setq powerline-default-separator nil)
- (setq TeX-PDF-mode t
- Tex-command-default 'TeX)
- (setq undo-tree-auto-save-history t
- undo-tree-history-directory-alist
- `(("." . ,(concat spacemacs-cache-directory "undo"))))
- (unless (file-exists-p (concat spacemacs-cache-directory "undo"))
- (make-directory (concat spacemacs-cache-directory "undo")))
-
- (setq TeX-view-program-selection
- '(((output-dvi style-pstricks)
- "dvips and gv")
- (output-dvi "xdvi")
- (output-pdf "zathura")
- (output-html "xdg-open")))
-
- (setq TeX-view-program-list
- '(("zathura"
- ("zathura" (mode-io-correlate "-sync.sh")
- " "
- (mode-io-correlate "%n:1:%t ")
- "%o"))))
-
- ;; set the erc nick completion postfix to ": "
- ;; (setq erc-pcomplete-nick-postfix ", ")
-
- ;; Suppress ad-handle-definition warnings
- ;; (annoying "`tramp-read-passwd' got redefined" warning on startup)
- ;; (setq ad-redefinition-action 'accept)
-
- (define-key evil-motion-state-map ";" 'evil-ex)
-
- ;; not very effective because of dotspacemacs-command-key
- ;; (define-key evil-motion-state-map ":" 'evil-repeat-find-char)
-
- ;; enable when using zenburn
- ;; (custom-set-faces '(evil-search-highlight-persist-highlight-face ((t (:background "#5F5F5F")))))
-
- ;; set Eclipse and Eclim paths
- ;; (setq eclim-eclipse-dirs "/usr/lib/eclipse"
- ;; eclim-executable "/usr/lib/eclipse/eclim")
-
- ;; required for having working previews when using ranger
- ;; (add-hook 'dired-mode-hook 'evil-emacs-state)
-
- ;; (add-hook 'mpc-mode-hook 'evil-emacs-state)
- ;; (add-hook 'simple-mpc-mode-hook 'evil-emacs-state)
- ;; (add-hook 'simple-mpc-current-playlist-mode-hook 'evil-emacs-state)
-)
+ )
;; Do not write anything past this comment. This is where Emacs will
;; auto-generate custom variable definitions.
-(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(package-selected-packages
- (quote
- (orgit markdown-mode gitignore-mode flycheck farmhouse-theme company badwolf-theme auctex-latexmk auctex popup avy highlight helm helm-core package-build bind-key evil ws-butler persp-mode lorem-ipsum hl-todo help-fns+ evil-indent-plus ace-jump-helm-line bind-map zonokai-theme zenburn-theme zen-and-art-theme xkcd window-numbering which-key volatile-highlights vi-tilde-fringe use-package underwater-theme ujelly-theme twilight-theme twilight-bright-theme twilight-anti-bright-theme tronesque-theme toxi-theme toc-org tao-theme tangotango-theme tango-plus-theme tango-2-theme sunny-day-theme sublime-themes subatomic256-theme subatomic-theme stekene-theme spray spacemacs-theme spaceline spacegray-theme soothe-theme soft-stone-theme soft-morning-theme soft-charcoal-theme smyx-theme smooth-scrolling smeargle simple-mpc shell-pop seti-theme reverse-theme restart-emacs ranger rainbow-delimiters quelpa pyvenv pytest pyenv-mode purple-haze-theme professional-theme popwin planet-theme pip-requirements phoenix-dark-pink-theme phoenix-dark-mono-theme pcre2el pastels-on-dark-theme paradox page-break-lines organic-green-theme org-repo-todo org-present org-pomodoro org-plus-contrib org-bullets open-junk-file oldlace-theme occidental-theme obsidian-theme noctilux-theme niflheim-theme neotree naquadah-theme mustang-theme multi-term move-text monochrome-theme molokai-theme moe-theme mmm-mode minimal-theme material-theme markdown-toc magit-gitflow macrostep lush-theme linum-relative light-soap-theme leuven-theme jbeans-theme jazz-theme ir-black-theme inkpot-theme info+ indent-guide ido-vertical-mode hy-mode hungry-delete htmlize highlight-parentheses highlight-numbers highlight-indentation heroku-theme hemisu-theme helm-themes helm-swoop helm-pydoc helm-projectile helm-mode-manager helm-make helm-gitignore helm-flyspell helm-flx helm-descbinds helm-company helm-c-yasnippet helm-ag hc-zenburn-theme gruvbox-theme gruber-darker-theme grandshell-theme gotham-theme google-translate golden-ratio gnuplot gitconfig-mode gitattributes-mode git-timemachine git-messenger gh-md gandalf-theme flycheck-pos-tip flx-ido flatui-theme flatland-theme firebelly-theme fill-column-indicator fancy-battery expand-region exec-path-from-shell evil-visualstar evil-tutor evil-surround evil-search-highlight-persist evil-numbers evil-nerd-commenter evil-mc evil-matchit evil-magit evil-lisp-state evil-jumper evil-indent-textobject evil-iedit-state evil-exchange evil-escape evil-args evil-anzu eval-sexp-fu espresso-theme eshell-prompt-extras esh-help erc-yt erc-view-log erc-social-graph erc-image erc-hl-nicks emacs-eclim elisp-slime-nav django-theme disaster define-word darktooth-theme darkmine-theme darkburn-theme dakrone-theme cython-mode cyberpunk-theme company-statistics company-quickhelp company-c-headers company-auctex company-anaconda colorsarenice-theme color-theme-sanityinc-tomorrow color-theme-sanityinc-solarized cmake-mode clues-theme clean-aindent-mode clang-format circe cherry-blossom-theme busybee-theme buffer-move bubbleberry-theme birds-of-paradise-plus-theme auto-yasnippet auto-highlight-symbol auto-dictionary auto-compile apropospriate-theme anti-zenburn-theme ample-zen-theme ample-theme alect-themes aggressive-indent afternoon-theme adaptive-wrap ace-window ace-link ac-ispell))))
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(company-tooltip-common ((t (:inherit company-tooltip :weight bold :underline nil))))
- '(company-tooltip-common-selection ((t (:inherit company-tooltip-selection :weight bold :underline nil)))))
projects / ~bandali / configs / commitdiff