summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorClément Lassieur <clement.lassieur@parrot.com>2019-02-20 11:25:32 +0100
committerClément Lassieur <clement.lassieur@parrot.com>2019-02-20 11:59:17 +0100
commit049b877f2e42c46e0b6f4f8473e16f6149e8316f (patch)
tree09947af796b7bb2353eb7ada5bb5d2cb3448fe3d
parent2fc38ef8834ab6483ac5c9dc9517bb7f28a2b829 (diff)
downloademacs-049b877f2e42c46e0b6f4f8473e16f6149e8316f.tar.gz
stow: symlink init.el from conf/
It allows to 'grep -r' in conf/.
-rw-r--r--stow/home/.emacs.d/conf/my-init.el277
l---------[-rw-r--r--]stow/home/.emacs.d/init.el281
2 files changed, 278 insertions, 280 deletions
diff --git a/stow/home/.emacs.d/conf/my-init.el b/stow/home/.emacs.d/conf/my-init.el
new file mode 100644
index 0000000..86cdceb
--- /dev/null
+++ b/stow/home/.emacs.d/conf/my-init.el
@@ -0,0 +1,277 @@
+;;; -*- lexical-binding: t -*-
+
+;; (package-initialize) ; this comment can't be removed
+
+(setq my-load-path "~/.emacs.d/conf/")
+(push my-load-path load-path)
+
+(setq initial-scratch-message ""
+ initial-major-mode 'fundamental-mode
+ inhibit-startup-message t
+ backup-inhibited t
+ auto-save-default nil
+ column-number-mode t
+ gc-cons-threshold 20000000 ; modern machine
+ visible-bell 1 ; disable sound
+ browse-url-browser-function 'browse-url-generic
+ browse-url-generic-program "firefox"
+ uniquify-buffer-name-style 'forward
+ select-enable-primary t
+ select-enable-clipboard nil
+ custom-file "~/.emacs.d/my-custom.el"
+ nsm-settings-file "~/.emacs.d/conf/my-network-security.data"
+ visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow)
+ vc-follow-symlinks t
+ ivy-count-format ""
+ ivy-use-virtual-buffers t
+ ivy-re-builders-alist '((t . ivy--regex-ignore-order))
+ ivy-initial-inputs-alist nil
+ enable-recursive-minibuffers t
+ alect-display-class '((class color) (min-colors 256)))
+
+(unless (file-exists-p (concat my-load-path "my-autoloads.el"))
+ (require 'my-update-autoloads)
+ (my-update-autoloads))
+(require 'my-autoloads)
+
+(autoload 'cflow-mode "cflow-mode")
+(autoload 'org-capture-get "org-capture" "" t nil)
+(autoload 'yas-reload-all "yasnippet" "" t nil)
+
+(load custom-file t)
+(load-theme 'alect-black-alt t)
+(global-hl-line-mode 0)
+(toggle-scroll-bar -1)
+(tool-bar-mode -1)
+(show-paren-mode)
+(global-undo-tree-mode)
+(global-auto-revert-mode)
+(global-page-break-lines-mode)
+(defalias 'yes-or-no-p 'y-or-n-p)
+(add-to-list 'completion-ignored-extensions ".go")
+(evil-mode)
+(global-evil-surround-mode 1)
+(ivy-mode)
+(counsel-mode)
+
+(add-hook 'after-make-frame-functions 'my-disable-scrollbars)
+(add-hook 'c-mode-common-hook 'ggtags-mode)
+(add-hook 'c-mode-common-hook 'my-find-code-style)
+(add-hook 'compilation-filter-hook 'my-colorize-compilation-buffer)
+(add-hook 'edebug-mode-hook 'evil-normalize-keymaps)
+(add-hook 'emacs-lisp-mode-hook 'my-lisp-style)
+(add-hook 'eshell-mode-hook 'my-set-eshell-bindings)
+(add-hook 'eval-expression-minibuffer-setup-hook 'my-repl-style)
+(add-hook 'geiser-repl-mode-hook 'my-repl-style)
+(add-hook 'lispy-mode-hook 'lispyville-mode)
+(add-hook 'nhexl-mode-hook 'evil-emacs-state)
+(add-hook 'nxml-mode-hook 'my-xml-style)
+(add-hook 'prog-mode-hook 'my-visual-line-mode)
+(add-hook 'python-mode-hook 'my-python-style)
+(add-hook 'scheme-mode-hook 'guix-devel-mode)
+(add-hook 'scheme-mode-hook 'my-lisp-style)
+(add-hook 'scheme-mode-hook 'yas-minor-mode)
+(add-hook 'sh-mode-hook 'whitespace-mode)
+(add-hook 'shell-mode-hook 'my-kill-buffer-when-closing-term)
+(add-hook 'text-mode-hook 'yas-minor-mode)
+(add-hook 'kill-emacs-hook 'my-update-autoloads)
+
+(add-to-list 'auto-mode-alist '("\\.md$" . gfm-mode))
+(add-to-list 'auto-mode-alist '("\\.octaverc$" . octave-mode))
+(add-to-list 'auto-mode-alist '("\\.m$" . octave-mode))
+
+;; user bindings, see
+;; https://www.gnu.org/software/emacs/manual/html_node/elisp/Key-Binding-Conventions.html
+(global-set-key (kbd "C-c a") 'org-agenda)
+(global-set-key (kbd "C-c c") 'org-capture)
+(global-set-key (kbd "C-c j") 'avy-goto-char)
+(global-set-key (kbd "C-c l") 'org-store-link)
+(global-set-key (kbd "C-c o") 'my-open-file)
+(global-set-key (kbd "C-c s") 'my-find-commands)
+(global-set-key (kbd "C-c x") 'my-org-capture)
+
+;; already defined upstream
+(global-set-key (kbd "C-x g") 'magit-status) ;in magit-file-mode-map
+
+;; replacements
+(global-set-key (kbd "C-x m") 'mu4e) ;replace 'compose-mail'
+(global-set-key (kbd "C-x C-b") 'ibuffer)
+
+(put 'erase-buffer 'disabled nil)
+(put 'narrow-to-defun 'disabled nil)
+(put 'narrow-to-page 'disabled nil)
+(put 'narrow-to-region 'disabled nil)
+
+(with-eval-after-load 'eshell
+ (setq eshell-history-size 10000))
+
+(with-eval-after-load 'shell
+ (setq explicit-shell-file-name "/bin/bash"))
+
+(with-eval-after-load 'starttls
+ (setq starttls-use-gnutls t))
+
+(with-eval-after-load 'geiser-guile
+ (setq adaptive-fill-mode t ;fix `fill-region' on comments with `scheme-mode'
+ geiser-active-implementations '(guile) ;fix bug with "use" in scm files
+ geiser-repl-query-on-kill-p nil)
+ (add-to-list 'geiser-guile-load-path "~/src/cuirass/src")
+ (add-to-list 'geiser-guile-load-path "~/src/shepherd/modules")
+ (add-to-list 'geiser-guile-load-path "~/src/guix"))
+
+(with-eval-after-load 'tramp-ftp
+ (setq ange-ftp-try-passive-mode t))
+
+(with-eval-after-load 'markdown-mode
+ (setq markdown-coding-system 'utf-8
+ markdown-content-type "text/html"))
+
+(with-eval-after-load 'yasnippet
+ (setq yas-snippet-dirs '("~/src/guix/etc/snippets"))
+ (yas-reload-all))
+
+(with-eval-after-load 'tex-mode
+ (setq-default TeX-engine 'xetex
+ TeX-PDF-mode t))
+
+(with-eval-after-load 'whitespace
+ (setq-default fill-column 78
+ whitespace-line-column nil)
+ (setq whitespace-style '(face
+ trailing
+ lines-tail
+ space-before-tab
+ newline
+ indentation
+ empty
+ space-after-tab)
+ align-to-tab-stop nil))
+
+(with-eval-after-load 'repo
+ (define-key repo-mode-map (kbd "p") (function repo-backward-line))
+ (define-key repo-mode-map (kbd "n") (function repo-forward-line)))
+
+(with-eval-after-load 'org-capture
+ (advice-add 'org-capture-set-target-location
+ :around 'my-org-set-dynamic-target)
+ (setq org-capture-templates
+ '(("x" "todo" entry (dynamic 'my-get-headline)
+ "* TODO %?\n\n%a" :empty-lines 1)
+ ("d" "day" entry (dynamic 'my-get-headline)
+ "* %?%^t\n\n%a" :empty-lines 1)
+ ("t" "day & time" entry (dynamic 'my-get-headline)
+ "* %?%^T\n\n%a" :empty-lines 1))))
+
+(with-eval-after-load 'browse-url
+ (require 'mu4e))
+
+(with-eval-after-load 'mu4e
+ (require 'org-mu4e) ;org-capture in mu4e buffers
+ (require 'gnus-dired) ;for `gnus-dired-attach'
+ (require 'my-mu4e))
+
+(with-eval-after-load '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))))
+
+(with-eval-after-load 'org
+ (require 'ob-screen)
+ (require 'ob-shell)
+ ;; org must parse mu4e links even when mu4e hasn't been loaded
+ (require 'mu4e)
+ (add-hook 'org-mode-hook 'auto-fill-mode)
+ (setq org-directory "~/db/"
+ org-todo-keywords '((sequence "TODO" "WAIT" "|" "DONE" "CANCELED"))
+ org-default-notes-file (concat org-directory "todo.org")
+ org-babel-default-header-args:screen
+ '((:results . "silent") (:session . "default") (:cmd . "bash") (:terminal . "xterm"))
+ org-agenda-files (list org-directory)
+ org-startup-folded t
+ org-startup-indented t
+ org-export-with-toc nil
+ org-confirm-babel-evaluate nil
+ org-html-postamble nil))
+
+(with-eval-after-load 'evil
+ (require 'my-evil))
+
+(with-eval-after-load 'info
+ (evil-set-initial-state 'Info-mode 'emacs))
+
+(with-eval-after-load 'cflow-mode
+ (evil-set-initial-state 'cflow-mode 'emacs)
+ (define-key cflow-mode-map "." 'ggtags-find-tag-dwim))
+
+(with-eval-after-load 'ag
+ ;; https://github.com/ggreer/the_silver_searcher/issues/915
+ ;; https://github.com/ggreer/the_silver_searcher/issues/1139
+ (setq ag-highlight-search t
+ ag-ignore-list '("*.svg"))
+ (push "--skip-vcs-ignores" ag-arguments)
+ (define-key ag-mode-map (kbd "M-p") (function previous-error-no-select))
+ (define-key ag-mode-map (kbd "M-n") (function next-error-no-select)))
+
+(with-eval-after-load 'dired
+ (setq diredp-hide-details-initially-flag nil
+ dired-hide-details-mode nil
+ dired-dwim-target t
+ dired-listing-switches "-alh")
+ (defalias 'dired--yes-no-all-quit-help 'y-or-n-p)
+ (advice-add 'revert-buffer :after 'my-dired-maybe-hide-dotfiles)
+ (evil-define-key 'normal dired-mode-map "." 'my-dired-hide-dotfiles)
+ (evil-define-key 'normal dired-mode-map "g" 'revert-buffer))
+
+(with-eval-after-load 'ediff
+ (setq ediff-split-window-function 'split-window-horizontally
+ ediff-window-setup-function 'ediff-setup-windows-plain)
+ (advice-add 'ediff-quit :around 'disable-y-or-n-p))
+
+(with-eval-after-load 'ggtags
+ (setq ggtags-oversize-limit 0
+ ggtags-global-abbreviate-filename nil
+ ggtags-update-on-save t))
+
+;; because undo-tree breaks it
+(with-eval-after-load 'git-rebase
+ (define-key git-rebase-mode-map (kbd "u") 'git-rebase-undo))
+
+(with-eval-after-load 'lispyville
+ (lispy-define-key lispy-mode-map "v" 'lispyville-toggle-mark-type)
+ (setq lispyville-key-theme
+ '(operators
+ c-w
+ additional-movement
+ slurp/barf-cp
+ additional
+ additional-insert
+ mark-toggle ;escape must come afterwards
+ escape))
+ (lispyville-set-key-theme))
+
+(with-eval-after-load 'debbugs-gnu
+ (setq debbugs-gnu-send-mail-function 'smtpmail-send-it)
+ (define-key debbugs-gnu-mode-map (kbd "o") 'my-debbugs-browse)
+ (define-key debbugs-gnu-mode-map (kbd "y") 'my-debbugs-yank))
+
+(with-eval-after-load 'magit
+ (magit-define-popup-action 'magit-reset-popup
+ ?G "garbage collect (be carefull)" 'my-garbage-collect)
+ (magit-define-popup-action 'magit-push-popup
+ ?G "to Gerrit" 'my-git-review)
+
+ (setq magit-bury-buffer-function 'magit-mode-quit-window
+ magit-published-branches '()
+ ;; This is needed when using magit through tramp. If the client is
+ ;; using a Guix git, its `magit-git-executable' would be related to the
+ ;; store, and that would not exist in a Debian server.
+ magit-git-executable "git"))
diff --git a/stow/home/.emacs.d/init.el b/stow/home/.emacs.d/init.el
index 6bb604b..fd482ac 100644..120000
--- a/stow/home/.emacs.d/init.el
+++ b/stow/home/.emacs.d/init.el
@@ -1,280 +1 @@
-;;; -*- lexical-binding: t -*-
-
-;; (package-initialize) ; this comment can't be removed
-
-(setq my-load-path (concat (file-name-directory (if load-in-progress
- load-file-name
- (buffer-file-name)))
- "conf/"))
-(push my-load-path load-path)
-
-(setq initial-scratch-message ""
- initial-major-mode 'fundamental-mode
- inhibit-startup-message t
- backup-inhibited t
- auto-save-default nil
- column-number-mode t
- gc-cons-threshold 20000000 ; modern machine
- visible-bell 1 ; disable sound
- browse-url-browser-function 'browse-url-generic
- browse-url-generic-program "firefox"
- uniquify-buffer-name-style 'forward
- select-enable-primary t
- select-enable-clipboard nil
- custom-file "~/.emacs.d/my-custom.el"
- nsm-settings-file "~/.emacs.d/conf/my-network-security.data"
- visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow)
- vc-follow-symlinks t
- ivy-count-format ""
- ivy-use-virtual-buffers t
- ivy-re-builders-alist '((t . ivy--regex-ignore-order))
- ivy-initial-inputs-alist nil
- enable-recursive-minibuffers t
- alect-display-class '((class color) (min-colors 256)))
-
-(unless (file-exists-p (concat my-load-path "my-autoloads.el"))
- (require 'my-update-autoloads)
- (my-update-autoloads))
-(require 'my-autoloads)
-
-(autoload 'cflow-mode "cflow-mode")
-(autoload 'org-capture-get "org-capture" "" t nil)
-(autoload 'yas-reload-all "yasnippet" "" t nil)
-
-(load custom-file t)
-(load-theme 'alect-black-alt t)
-(global-hl-line-mode 0)
-(toggle-scroll-bar -1)
-(tool-bar-mode -1)
-(show-paren-mode)
-(global-undo-tree-mode)
-(global-auto-revert-mode)
-(global-page-break-lines-mode)
-(defalias 'yes-or-no-p 'y-or-n-p)
-(add-to-list 'completion-ignored-extensions ".go")
-(evil-mode)
-(global-evil-surround-mode 1)
-(ivy-mode)
-(counsel-mode)
-
-(add-hook 'after-make-frame-functions 'my-disable-scrollbars)
-(add-hook 'c-mode-common-hook 'ggtags-mode)
-(add-hook 'c-mode-common-hook 'my-find-code-style)
-(add-hook 'compilation-filter-hook 'my-colorize-compilation-buffer)
-(add-hook 'edebug-mode-hook 'evil-normalize-keymaps)
-(add-hook 'emacs-lisp-mode-hook 'my-lisp-style)
-(add-hook 'eshell-mode-hook 'my-set-eshell-bindings)
-(add-hook 'eval-expression-minibuffer-setup-hook 'my-repl-style)
-(add-hook 'geiser-repl-mode-hook 'my-repl-style)
-(add-hook 'lispy-mode-hook 'lispyville-mode)
-(add-hook 'nhexl-mode-hook 'evil-emacs-state)
-(add-hook 'nxml-mode-hook 'my-xml-style)
-(add-hook 'prog-mode-hook 'my-visual-line-mode)
-(add-hook 'python-mode-hook 'my-python-style)
-(add-hook 'scheme-mode-hook 'guix-devel-mode)
-(add-hook 'scheme-mode-hook 'my-lisp-style)
-(add-hook 'scheme-mode-hook 'yas-minor-mode)
-(add-hook 'sh-mode-hook 'whitespace-mode)
-(add-hook 'shell-mode-hook 'my-kill-buffer-when-closing-term)
-(add-hook 'text-mode-hook 'yas-minor-mode)
-(add-hook 'kill-emacs-hook 'my-update-autoloads)
-
-(add-to-list 'auto-mode-alist '("\\.md$" . gfm-mode))
-(add-to-list 'auto-mode-alist '("\\.octaverc$" . octave-mode))
-(add-to-list 'auto-mode-alist '("\\.m$" . octave-mode))
-
-;; user bindings, see
-;; https://www.gnu.org/software/emacs/manual/html_node/elisp/Key-Binding-Conventions.html
-(global-set-key (kbd "C-c a") 'org-agenda)
-(global-set-key (kbd "C-c c") 'org-capture)
-(global-set-key (kbd "C-c j") 'avy-goto-char)
-(global-set-key (kbd "C-c l") 'org-store-link)
-(global-set-key (kbd "C-c o") 'my-open-file)
-(global-set-key (kbd "C-c s") 'my-find-commands)
-(global-set-key (kbd "C-c x") 'my-org-capture)
-
-;; already defined upstream
-(global-set-key (kbd "C-x g") 'magit-status) ;in magit-file-mode-map
-
-;; replacements
-(global-set-key (kbd "C-x m") 'mu4e) ;replace 'compose-mail'
-(global-set-key (kbd "C-x C-b") 'ibuffer)
-
-(put 'erase-buffer 'disabled nil)
-(put 'narrow-to-defun 'disabled nil)
-(put 'narrow-to-page 'disabled nil)
-(put 'narrow-to-region 'disabled nil)
-
-(with-eval-after-load 'eshell
- (setq eshell-history-size 10000))
-
-(with-eval-after-load 'shell
- (setq explicit-shell-file-name "/bin/bash"))
-
-(with-eval-after-load 'starttls
- (setq starttls-use-gnutls t))
-
-(with-eval-after-load 'geiser-guile
- (setq adaptive-fill-mode t ;fix `fill-region' on comments with `scheme-mode'
- geiser-active-implementations '(guile) ;fix bug with "use" in scm files
- geiser-repl-query-on-kill-p nil)
- (add-to-list 'geiser-guile-load-path "~/src/cuirass/src")
- (add-to-list 'geiser-guile-load-path "~/src/shepherd/modules")
- (add-to-list 'geiser-guile-load-path "~/src/guix"))
-
-(with-eval-after-load 'tramp-ftp
- (setq ange-ftp-try-passive-mode t))
-
-(with-eval-after-load 'markdown-mode
- (setq markdown-coding-system 'utf-8
- markdown-content-type "text/html"))
-
-(with-eval-after-load 'yasnippet
- (setq yas-snippet-dirs '("~/src/guix/etc/snippets"))
- (yas-reload-all))
-
-(with-eval-after-load 'tex-mode
- (setq-default TeX-engine 'xetex
- TeX-PDF-mode t))
-
-(with-eval-after-load 'whitespace
- (setq-default fill-column 78
- whitespace-line-column nil)
- (setq whitespace-style '(face
- trailing
- lines-tail
- space-before-tab
- newline
- indentation
- empty
- space-after-tab)
- align-to-tab-stop nil))
-
-(with-eval-after-load 'repo
- (define-key repo-mode-map (kbd "p") (function repo-backward-line))
- (define-key repo-mode-map (kbd "n") (function repo-forward-line)))
-
-(with-eval-after-load 'org-capture
- (advice-add 'org-capture-set-target-location
- :around 'my-org-set-dynamic-target)
- (setq org-capture-templates
- '(("x" "todo" entry (dynamic 'my-get-headline)
- "* TODO %?\n\n%a" :empty-lines 1)
- ("d" "day" entry (dynamic 'my-get-headline)
- "* %?%^t\n\n%a" :empty-lines 1)
- ("t" "day & time" entry (dynamic 'my-get-headline)
- "* %?%^T\n\n%a" :empty-lines 1))))
-
-(with-eval-after-load 'browse-url
- (require 'mu4e))
-
-(with-eval-after-load 'mu4e
- (require 'org-mu4e) ;org-capture in mu4e buffers
- (require 'gnus-dired) ;for `gnus-dired-attach'
- (require 'my-mu4e))
-
-(with-eval-after-load '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))))
-
-(with-eval-after-load 'org
- (require 'ob-screen)
- (require 'ob-shell)
- ;; org must parse mu4e links even when mu4e hasn't been loaded
- (require 'mu4e)
- (add-hook 'org-mode-hook 'auto-fill-mode)
- (setq org-directory "~/db/"
- org-todo-keywords '((sequence "TODO" "WAIT" "|" "DONE" "CANCELED"))
- org-default-notes-file (concat org-directory "todo.org")
- org-babel-default-header-args:screen
- '((:results . "silent") (:session . "default") (:cmd . "bash") (:terminal . "xterm"))
- org-agenda-files (list org-directory)
- org-startup-folded t
- org-startup-indented t
- org-export-with-toc nil
- org-confirm-babel-evaluate nil
- org-html-postamble nil))
-
-(with-eval-after-load 'evil
- (require 'my-evil))
-
-(with-eval-after-load 'info
- (evil-set-initial-state 'Info-mode 'emacs))
-
-(with-eval-after-load 'cflow-mode
- (evil-set-initial-state 'cflow-mode 'emacs)
- (define-key cflow-mode-map "." 'ggtags-find-tag-dwim))
-
-(with-eval-after-load 'ag
- ;; https://github.com/ggreer/the_silver_searcher/issues/915
- ;; https://github.com/ggreer/the_silver_searcher/issues/1139
- (setq ag-highlight-search t
- ag-ignore-list '("*.svg"))
- (push "--skip-vcs-ignores" ag-arguments)
- (define-key ag-mode-map (kbd "M-p") (function previous-error-no-select))
- (define-key ag-mode-map (kbd "M-n") (function next-error-no-select)))
-
-(with-eval-after-load 'dired
- (setq diredp-hide-details-initially-flag nil
- dired-hide-details-mode nil
- dired-dwim-target t
- dired-listing-switches "-alh")
- (defalias 'dired--yes-no-all-quit-help 'y-or-n-p)
- (advice-add 'revert-buffer :after 'my-dired-maybe-hide-dotfiles)
- (evil-define-key 'normal dired-mode-map "." 'my-dired-hide-dotfiles)
- (evil-define-key 'normal dired-mode-map "g" 'revert-buffer))
-
-(with-eval-after-load 'ediff
- (setq ediff-split-window-function 'split-window-horizontally
- ediff-window-setup-function 'ediff-setup-windows-plain)
- (advice-add 'ediff-quit :around 'disable-y-or-n-p))
-
-(with-eval-after-load 'ggtags
- (setq ggtags-oversize-limit 0
- ggtags-global-abbreviate-filename nil
- ggtags-update-on-save t))
-
-;; because undo-tree breaks it
-(with-eval-after-load 'git-rebase
- (define-key git-rebase-mode-map (kbd "u") 'git-rebase-undo))
-
-(with-eval-after-load 'lispyville
- (lispy-define-key lispy-mode-map "v" 'lispyville-toggle-mark-type)
- (setq lispyville-key-theme
- '(operators
- c-w
- additional-movement
- slurp/barf-cp
- additional
- additional-insert
- mark-toggle ;escape must come afterwards
- escape))
- (lispyville-set-key-theme))
-
-(with-eval-after-load 'debbugs-gnu
- (setq debbugs-gnu-send-mail-function 'smtpmail-send-it)
- (define-key debbugs-gnu-mode-map (kbd "o") 'my-debbugs-browse)
- (define-key debbugs-gnu-mode-map (kbd "y") 'my-debbugs-yank))
-
-(with-eval-after-load 'magit
- (magit-define-popup-action 'magit-reset-popup
- ?G "garbage collect (be carefull)" 'my-garbage-collect)
- (magit-define-popup-action 'magit-push-popup
- ?G "to Gerrit" 'my-git-review)
-
- (setq magit-bury-buffer-function 'magit-mode-quit-window
- magit-published-branches '()
- ;; This is needed when using magit through tramp. If the client is
- ;; using a Guix git, its `magit-git-executable' would be related to the
- ;; store, and that would not exist in a Debian server.
- magit-git-executable "git"))
+conf/my-init.el \ No newline at end of file