Merge branch 'master' of gitlab.com:marcuskammer/emacs.d

This commit is contained in:
Marcus Kammer 2020-02-22 18:01:45 +01:00
commit 1bc9b6c9c3
232 changed files with 496 additions and 44 deletions

0
README.md Executable file → Normal file
View file

18
bundle/bundles.el Normal file
View file

@ -0,0 +1,18 @@
;; Load my custom bundles
(require 'os)
(require 'display)
(require 'fill-column-indicator)
(require 'calendar-settings)
(require 'org-mode-settings)
(require 'sbcl-settings)
(require 'hooks)
(provide 'bundles)
;; Local Variables:
;; mode: emacs-lisp
;; coding: utf-8
;; fill-column: 79
;; lisp-indent-offset: 2
;; End:

View file

@ -677,7 +677,7 @@
("William Xu" . "william.xwl@gmail.com")) ("William Xu" . "william.xwl@gmail.com"))
(:maintainer "William Xu" . "william.xwl@gmail.com"))]) (:maintainer "William Xu" . "william.xwl@gmail.com"))])
(elisp-benchmarks . (elisp-benchmarks .
[(1 1) [(1 2)
nil "elisp benchamrks collection" tar nil "elisp benchamrks collection" tar
((:maintainer "Andrea Corallo" . "akrl@sdf.org") ((:maintainer "Andrea Corallo" . "akrl@sdf.org")
(:authors (:authors

View file

Before

Width:  |  Height:  |  Size: 43 KiB

After

Width:  |  Height:  |  Size: 43 KiB

View file

Before

Width:  |  Height:  |  Size: 32 KiB

After

Width:  |  Height:  |  Size: 32 KiB

View file

@ -1,4 +1,4 @@
(define-package "dashboard" "20200217.1153" "A startup screen extracted from Spacemacs" (define-package "dashboard" "20200221.759" "A startup screen extracted from Spacemacs"
'((emacs "25.3") '((emacs "25.3")
(page-break-lines "0.11")) (page-break-lines "0.11"))
:keywords :keywords

View file

@ -1,6 +1,6 @@
;;; dashboard-widgets.el --- A startup screen extracted from Spacemacs -*- lexical-binding: t -*- ;;; dashboard-widgets.el --- A startup screen extracted from Spacemacs -*- lexical-binding: t -*-
;; Copyright (c) 2016-2019 Rakan Al-Hneiti & Contributors ;; Copyright (c) 2016-2020 Rakan Al-Hneiti & Contributors
;; ;;
;; Author: Rakan Al-Hneiti ;; Author: Rakan Al-Hneiti
;; URL: https://github.com/emacs-dashboard/emacs-dashboard ;; URL: https://github.com/emacs-dashboard/emacs-dashboard
@ -10,7 +10,7 @@
;;; License: GPLv3 ;;; License: GPLv3
;; ;;
;; Created: October 05, 2016 ;; Created: October 05, 2016
;; Package-Version: 1.7.0-SNAPSHOT ;; Package-Version: 1.8.0-SNAPSHOT
;; Keywords: startup, screen, tools, dashboard ;; Keywords: startup, screen, tools, dashboard
;; Package-Requires: ((emacs "25.3") (page-break-lines "0.11")) ;; Package-Requires: ((emacs "25.3") (page-break-lines "0.11"))
;;; Commentary: ;;; Commentary:
@ -324,7 +324,7 @@ If MESSAGEBUF is not nil then MSG is also written in message buffer."
(insert msg)))) (insert msg))))
(defun dashboard-modify-heading-icons (alist) (defun dashboard-modify-heading-icons (alist)
"Append ALIST items to dashboard-heading-icons to modify icons." "Append ALIST items to `dashboard-heading-icons' to modify icons."
(dolist (icon alist) (dolist (icon alist)
(add-to-list 'dashboard-heading-icons icon))) (add-to-list 'dashboard-heading-icons icon)))
@ -421,7 +421,7 @@ If MESSAGEBUF is not nil then MSG is also written in message buffer."
;; INIT INFO ;; INIT INFO
;; ;;
(defun dashboard-insert-init-info () (defun dashboard-insert-init-info ()
"Insert init info when dashboard-set-init-info is t." "Insert init info when `dashboard-set-init-info' is t."
(when dashboard-set-init-info (when dashboard-set-init-info
(dashboard-center-line dashboard-init-info) (dashboard-center-line dashboard-init-info)
(insert (insert

View file

@ -1,6 +1,6 @@
;;; dashboard.el --- A startup screen extracted from Spacemacs -*- lexical-binding: t -*- ;;; dashboard.el --- A startup screen extracted from Spacemacs -*- lexical-binding: t -*-
;; Copyright (c) 2016-2019 Rakan Al-Hneiti & Contributors ;; Copyright (c) 2016-2020 Rakan Al-Hneiti & Contributors
;; ;;
;; Author: Rakan Al-Hneiti ;; Author: Rakan Al-Hneiti
;; URL: https://github.com/emacs-dashboard/emacs-dashboard ;; URL: https://github.com/emacs-dashboard/emacs-dashboard
@ -10,7 +10,7 @@
;;; License: GPLv3 ;;; License: GPLv3
;; ;;
;; Created: October 05, 2016 ;; Created: October 05, 2016
;; Package-Version: 1.7.0-SNAPSHOT ;; Package-Version: 1.8.0-SNAPSHOT
;; Keywords: startup, screen, tools, dashboard ;; Keywords: startup, screen, tools, dashboard
;; Package-Requires: ((emacs "25.3") (page-break-lines "0.11")) ;; Package-Requires: ((emacs "25.3") (page-break-lines "0.11"))
;;; Commentary: ;;; Commentary:

View file

@ -1,4 +1,4 @@
(define-package "elm-mode" "20200126.2223" "Major mode for Elm" (define-package "elm-mode" "20200221.1951" "Major mode for Elm"
'((f "0.17") '((f "0.17")
(s "1.7.0") (s "1.7.0")
(emacs "25.1") (emacs "25.1")

View file

@ -157,7 +157,8 @@ Find the roots of this function in the c-awk-mode."
(setq-local comment-start "--") (setq-local comment-start "--")
(setq-local comment-end "") (setq-local comment-end "")
(setq-local imenu-create-index-function #'elm-imenu-create-index) (setq-local imenu-create-index-function #'elm-imenu-create-index)
(setq-local paragraph-separate "\\(\r\t\n\\|-}\\)$") (setq-local paragraph-start (concat " *{-\\| *-- |\\|" page-delimiter))
(setq-local paragraph-separate (concat " *$\\| *\\({-\\|-}\\) *$\\|" page-delimiter))
(setq-local beginning-of-defun-function #'elm-beginning-of-defun) (setq-local beginning-of-defun-function #'elm-beginning-of-defun)
(setq-local end-of-defun-function #'elm-end-of-defun) (setq-local end-of-defun-function #'elm-end-of-defun)

View file

@ -719,7 +719,8 @@ restrict the log to the lines that the region touches."
"Show log for the definition at point." "Show log for the definition at point."
(interactive (list (or (magit-file-relative-name) (interactive (list (or (magit-file-relative-name)
(user-error "Buffer isn't visiting a file")) (user-error "Buffer isn't visiting a file"))
(funcall magit-log-trace-definition-function) (or (funcall magit-log-trace-definition-function)
(user-error "No function at point found"))
(or magit-buffer-refname (or magit-buffer-refname
(magit-get-current-branch) (magit-get-current-branch)
"HEAD"))) "HEAD")))
@ -727,7 +728,7 @@ restrict the log to the lines that the region touches."
(magit-log-setup-buffer (magit-log-setup-buffer
(list rev) (list rev)
(cons (format "-L:%s%s:%s" (cons (format "-L:%s%s:%s"
(regexp-quote fn) (replace-regexp-in-string ":" "\\:" (regexp-quote fn) nil t)
(if (derived-mode-p 'lisp-mode 'emacs-lisp-mode) (if (derived-mode-p 'lisp-mode 'emacs-lisp-mode)
;; Git doesn't treat "-" the same way as ;; Git doesn't treat "-" the same way as
;; "_", leading to false-positives such as ;; "_", leading to false-positives such as

View file

@ -1,4 +1,4 @@
(define-package "magit" "20200220.308" "A Git porcelain inside Emacs." (define-package "magit" "20200222.41" "A Git porcelain inside Emacs."
'((emacs "25.1") '((emacs "25.1")
(async "20180527") (async "20180527")
(dash "20180910") (dash "20180910")

Some files were not shown because too many files have changed in this diff Show more