config/emacs
config/emacs
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove pointless flycheck fixes

Browse Source
This commit is contained in:
Wojciech Kozlowski 2018-07-11 00:03:39 +01:00
parent 8d9d474aea
commit 76ce7207d8
11 changed files with 144 additions and 198 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
modules/em-editing.el
View File

@ -54,17 +54,7 @@
(use-package fill-column-indicator
:bind
(("C-x t f" . fci-mode))
:init
;; (defun fci-mode-unless-large-file ()
;; "Enable fci-mode unless the file is too large."
;; (interactive)
;; (unless (> (count-lines (point-min) (point-max)) 9999)
;; (fci-mode)))
;; (add-hook 'prog-mode-hook 'fci-mode-unless-large-file)
;; (add-hook 'text-mode-hook 'fci-mode-unless-large-file)
)
(("C-x t f" . fci-mode)))
;; --------------------------------------------------------------------------
;; Undo tree. To undo "C-\", to redo "C-_", undo tree "C-x u".
@ -213,7 +203,6 @@
"Indent the currently visited buffer."
(interactive)
(indent-region (point-min) (point-max)))
(declare-function indent-buffer "editing")
(defcustom indent-sensitive-modes
'(coffee-mode python-mode slim-mode haml-mode yaml-mode)
@ -225,8 +214,6 @@
"Indent a region if selected, otherwise the whole buffer."
(interactive)
(defvar indent-sensitive-modes)
(unless (member major-mode indent-sensitive-modes)
(save-excursion
(if (region-active-p)

7
modules/em-emacs.el
View File

@ -71,7 +71,6 @@
:init
(add-hook 'ibuffer-hook
(lambda ()
(declare-function ibuffer-do-sort-by-alphabetic "ibuf-ext")
(ibuffer-vc-set-filter-groups-by-vc-root)
(unless (eq ibuffer-sorting-mode 'alphabetic)
(ibuffer-do-sort-by-alphabetic))))
@ -116,7 +115,6 @@
(if (window-live-p sr-speedbar-window)
(set-frame-selected-window (window-frame) sr-speedbar-window)
(user-error "Speedbar window is not live")))
(declare-function goto-speedbar "emacs")
(global-set-key (kbd "M-m") #'goto-speedbar))
@ -145,8 +143,6 @@
This has to be called whenever the active theme changes to
refresh these colours."
(defvar highlight-parentheses-mode)
(when (and (fboundp 'fci-mode)
(member 'fci-mode minor-mode-list))
(fci-mode 1))
@ -154,7 +150,6 @@
(when (and (fboundp 'highlight-parentheses-mode)
highlight-parentheses-mode)
(highlight-parentheses-mode 1)))
(declare-function refresh-non-face-colours "emacs")
;; Key-bindings -------------------------------------------------------------
@ -251,11 +246,9 @@
(defun minibuffer-gc-setup-hook ()
(setq gc-cons-threshold most-positive-fixnum))
(declare-function minibuffer-gc-setup-hook "emacs")
(defun minibuffer-gc-exit-hook ()
(setq gc-cons-threshold 800000))
(declare-function minibuffer-gc-exit-hook "emacs")
(add-hook 'minibuffer-setup-hook #'minibuffer-gc-setup-hook)
(add-hook 'minibuffer-exit-hook #'minibuffer-gc-exit-hook)

2
modules/em-helm.el
View File

@ -44,8 +44,6 @@
("C-h SPC" . helm-all-mark-rings))
:config
(require 'helm-config)
(declare-function helm-autoresize-mode "helm")
(declare-function helm-buffer-get "helm-lib")
;; Helm prefix ------------------------------------------------------------

4
modules/em-modeline.el
View File

@ -35,9 +35,6 @@
:hook
(after-init . doom-modeline-init)
:config
(declare-function persp-mode-line "perspective")
(declare-function perspectives-hash "perspective")
(setq-default doom-modeline-height 23)
;; Add perspective to modeline
@ -46,7 +43,6 @@
(if (bound-and-true-p persp-mode)
(persp-format-name (persp-name (persp-curr)))
""))
(declare-function doom-modeline-segment--perspective-name "em-modeline")
(doom-modeline-def-segment workspace-number
"The current workspace name or number. Requires `eyebrowse-mode' to be

2
modules/em-parentheses.el
View File

@ -59,8 +59,6 @@
(show-smartparens-global-mode t)
(require 'smartparens-config)
(declare-function sp-local-pair "smartparens")
(declare-function sp-beginning-of-sexp "smartparens")
;; Key-bindings -----------------------------------------------------------

13
modules/em-programming.el
View File

@ -75,13 +75,11 @@
;; function-args overrides the custom "M-o" binding, this undoes it
(define-key function-args-mode-map (kbd "M-o") nil)
(define-key function-args-mode-map (kbd "M-O") 'moo-complete))
(declare-function set-other-window-key "programming")
(defun set-moo-jump-directory-key ()
;; function-args overrides the default "C-M-k" binding, this undoes it
(define-key function-args-mode-map (kbd "C-M-k") nil)
(define-key function-args-mode-map (kbd "C-M-;") 'moo-jump-directory))
(declare-function set-moo-jump-directory-key "programming")
(defun set-fa-idx-cycle-keys ()
;; function-args overrides the default "M-h" and "M-p" bindings, this
@ -90,13 +88,11 @@
(define-key function-args-mode-map (kbd "M-[") 'fa-idx-cycle-up)
(define-key function-args-mode-map (kbd "M-n") nil)
(define-key function-args-mode-map (kbd "M-]") 'fa-idx-cycle-down))
(declare-function set-fa-idx-cycle-keys "programming")
(defun set-fa-abort-key ()
;; function-args overrides the default "C-M-k" binding, this undoes it
(define-key function-args-mode-map (kbd "M-u") nil)
(define-key function-args-mode-map (kbd "M-k") 'fa-abort))
(declare-function set-fa-abort-key "programming")
(defun set-function-args-keys ()
;; Collects all the function-args key overrides
@ -104,7 +100,6 @@
(set-moo-jump-directory-key)
(set-fa-idx-cycle-keys)
(set-fa-abort-key))
(declare-function set-function-args-keys "programming")
(add-hook 'function-args-mode-hook #'set-function-args-keys))
@ -178,7 +173,6 @@
(unless (= ret 0)
(error err-msg)))))
(declare-function rust-new-project "programming")
(defun rust-new-project-bin (project-name)
(interactive "sBinary project name: ")
@ -199,11 +193,9 @@
(add-to-list 'load-path "~/.emacs.d/emacs-racer")
(use-package racer
:init
(declare-function racer-mode "racer")
(add-hook 'rust-mode-hook #'racer-mode)
(add-hook 'racer-mode-hook #'eldoc-mode)
:config
(declare-function company-indent-or-complete-common "company")
;; For racer to work, it needs to know where to find the standard library
;; sources. The easiest way to do it without having a machine dependent
;; setup is to set the environment variable RUST_SRC_PATH. If that's
@ -289,10 +281,6 @@
;; such as those in `/usr/local/include'.
(use-package semantic
:config
(declare-function global-semanticdb-minor-mode "semantic/db-mode")
(declare-function global-semantic-idle-scheduler-mode "semantic/idle")
(declare-function semantic-mode "semantic")
(global-semanticdb-minor-mode 1)
(global-semantic-idle-scheduler-mode 1)
(semantic-mode 1)
@ -350,7 +338,6 @@
;; ansi-colors
(ignore-errors
(require 'ansi-color)
(declare-function ansi-color-apply-on-region "ansi-color")
(defun my-colorize-compilation-buffer ()
(when (eq major-mode 'compilation-mode)
(ansi-color-apply-on-region compilation-filter-start (point-max))))

12
modules/em-terminal.el
View File

@ -35,9 +35,6 @@
(use-package term
:config
(declare-function term-send-raw-string "term")
(declare-function term-check-proc "term")
(defun x-term-setup ()
(interactive)
(define-key term-raw-map (kbd "C-y") 'term-send-raw)
@ -69,21 +66,17 @@
(setq ansi-buf (ansi-term term-cmd))
(switch-to-buffer cur-buf)
(switch-to-buffer-other-window ansi-buf)))
(declare-function ansi-term-pop "terminal")
(defun ansi-term-recycle (term-cmd)
"Kill current buffer and start an *ansi-term* in it."
(kill-buffer (current-buffer))
(ansi-term term-cmd))
(declare-function ansi-term-recycle "terminal")
(defun first-matching-buffer (regex)
"Find first buffer whose name matches REGEXP."
(declare-function remove-if-not "cl-seq")
(car (remove-if-not
(apply-partially #'string-match-p regex)
(mapcar 'buffer-name (buffer-list)))))
(declare-function first-matching-buffer "terminal")
(defun visit-ansi-term ()
"Open or switch to active ansi-term.
@ -122,9 +115,6 @@
(use-package eshell
:config
(declare-function eshell "eshell")
(declare-function eshell-send-input "esh-mode")
(defun eshell-pop (name)
"Launch terminal in (preferably) other window."
(let ((esh-buf nil)
@ -132,7 +122,6 @@
(setq esh-buf (eshell name))
(switch-to-buffer cur-buf)
(switch-to-buffer-other-window esh-buf)))
(declare-function eshell-pop "terminal")
(defun eshell-here ()
(interactive)
@ -165,7 +154,6 @@
(if (one-window-p t)
(delete-frame)
(delete-window (selected-window)))))
(declare-function delete-single-window "terminal")
(defun eshell/x (&rest args)
(delete-single-window))

6
modules/em-version-control.el
View File

@ -54,9 +54,6 @@
;; Ediff.
;; --------------------------------------------------------------------------
(defvar ediff-diff-options)
(defvar ediff-split-window-function)
(defvar ediff-window-setup-function)
(setq ediff-diff-options "-w"
ediff-split-window-function 'split-window-horizontally
ediff-window-setup-function 'ediff-setup-windows-plain)
@ -84,7 +81,6 @@
:init
;; Diff mode hook - whitespace mode settings and set read-only mode.
(defvar whitespace-style)
(add-hook 'diff-mode-hook (lambda ()
(setq-local whitespace-style
'(face
@ -100,8 +96,6 @@
(read-only-mode 1)))
:config
(declare-function diff-find-source-location "diff-mode")
(declare-function diff-hunk-status-msg "diff-mode")
;; Extra functions ----------------------------------------------------------

216
modules/em-workflow.el
View File

@ -25,112 +25,6 @@
)
(defvar em-workflow/perspectives nil)
(defun em-workflow/get-persp-parameters (persp)
"Return alist of parameters for perspective PERSP.
If the alist did not exist, create one and initialise the values
to nil."
(assoc persp em-workflow/perspectives))
(defun em-workflow/persp-parameter-cons (param-name persp)
"Return value of PARAM-NAME for perspective PERSP.
If none was set, returns nil."
(assoc param-name (em-workflow/get-persp-parameters persp)))
(defun em-workflow/persp-parameter (param-name persp)
"Return value of PARAM-NAME for perspective PERSP.
If none was set, returns nil."
(cdr (em-workflow/persp-parameter-cons param-name persp)))
(defun em-workflow/set-persp-parameter (param-name value persp)
"Set PARAM-NAME to VALUE for perspective PERSP."
(let ((param (em-workflow/persp-parameter-cons param-name persp)))
(when (not param)
(let ((persp-params (em-workflow/get-persp-parameters persp)))
(when (not persp-params)
(setq em-workflow/perspectives
(cons `(,persp . nil) em-workflow/perspectives))
(setq persp-params (car em-workflow/perspectives)))
(setcdr persp-params
(cons `(,param-name . nil) (cdr persp-params)))
(setq param (cadr persp-params))))
(setcdr param value)))
(defun em-workflow/get-persp-workspace (&optional persp frame)
"Get the correct workspace parameters for perspective.
PERSP is the perspective, and defaults to the current
perspective. FRAME is the frame where the parameters are
expected to be used, and defaults to the current frame."
(or persp (setq persp (persp-curr)))
(let ((param-names (if (display-graphic-p frame)
'(gui-eyebrowse-window-configs
gui-eyebrowse-current-slot
gui-eyebrowse-last-slot)
'(term-eyebrowse-window-configs
term-eyebrowse-current-slot
term-eyebrowse-last-slot))))
(--map (em-workflow/persp-parameter it persp) param-names)))
(defun em-workflow/set-persp-workspace (workspace-params &optional persp frame)
"Set workspace parameters for perspective.
WORKSPACE-PARAMS should be a list containing 3 elements in
this order:
- window-configs, as returned by (eyebrowse--get 'window-configs)
- current-slot, as returned by (eyebrowse--get 'current-slot)
- last-slot, as returned by (eyebrowse--get 'last-slot)
PERSP is the perspective, and defaults to the current
perspective. FRAME is the frame where the parameters came from,
and defaults to the current frame. Each perspective has two sets
of workspace parameters: one set for graphical frames, and one
set for terminal frames."
(or persp (setq persp (persp-curr)))
(let ((param-names (if (display-graphic-p frame)
'(gui-eyebrowse-window-configs
gui-eyebrowse-current-slot
gui-eyebrowse-last-slot)
'(term-eyebrowse-window-configs
term-eyebrowse-current-slot
term-eyebrowse-last-slot))))
(--zip-with (em-workflow/set-persp-parameter it other persp)
param-names workspace-params)))
(defun em-workflow/load-eyebrowse-for-perspective (&optional frame)
"Load an eyebrowse workspace according to a perspective's parameters.
FRAME's perspective is the perspective that is considered,
defaulting to the current frame's perspective. If the
perspective doesn't have a workspace, create one."
(let* ((workspace-params (em-workflow/get-persp-workspace (persp-curr frame) frame))
(window-configs (nth 0 workspace-params))
(current-slot (nth 1 workspace-params))
(last-slot (nth 2 workspace-params)))
(if window-configs
(progn
(eyebrowse--set 'window-configs window-configs frame)
(eyebrowse--set 'current-slot current-slot frame)
(eyebrowse--set 'last-slot last-slot frame)
(eyebrowse--load-window-config current-slot))
(eyebrowse--set 'window-configs nil frame)
(eyebrowse-init frame)
(em-workflow/save-eyebrowse-for-perspective frame))))
(defun em-workflow/update-eyebrowse-for-perspective (&rest _args)
"Update and save current frame's eyebrowse workspace to its perspective."
(let* ((current-slot (eyebrowse--get 'current-slot))
(current-tag (nth 2 (assoc current-slot (eyebrowse--get 'window-configs)))))
(eyebrowse--update-window-config-element
(eyebrowse--current-window-config current-slot current-tag)))
(em-workflow/save-eyebrowse-for-perspective))
(defun em-workflow/save-eyebrowse-for-perspective (&optional frame)
"Save FRAME's eyebrowse workspace to FRAME's perspective.
FRAME defaults to the current frame."
(em-workflow/set-persp-workspace (list (eyebrowse--get 'window-configs frame)
(eyebrowse--get 'current-slot frame)
(eyebrowse--get 'last-slot frame))
(persp-curr frame)
frame))
;;; Configuration:
(defun emodule/em-workflow-init ()
@ -149,6 +43,116 @@ FRAME defaults to the current frame."
:config
(setq eyebrowse-default-workspace-slot 0)
(defvar em-workflow/perspectives nil)
(defun em-workflow/get-persp-parameters (persp)
"Return alist of parameters for perspective PERSP.
If the alist did not exist, create one and initialise the values
to nil."
(assoc persp em-workflow/perspectives))
(defun em-workflow/persp-parameter-cons (param-name persp)
"Return value of PARAM-NAME for perspective PERSP.
If none was set, returns nil."
(assoc param-name (em-workflow/get-persp-parameters persp)))
(defun em-workflow/persp-parameter (param-name persp)
"Return value of PARAM-NAME for perspective PERSP.
If none was set, returns nil."
(cdr (em-workflow/persp-parameter-cons param-name persp)))
(defun em-workflow/set-persp-parameter (param-name value persp)
"Set PARAM-NAME to VALUE for perspective PERSP."
(let ((param (em-workflow/persp-parameter-cons param-name persp)))
(when (not param)
(let ((persp-params (em-workflow/get-persp-parameters persp)))
(when (not persp-params)
(setq em-workflow/perspectives
(cons `(,persp . nil) em-workflow/perspectives))
(setq persp-params (car em-workflow/perspectives)))
(setcdr persp-params
(cons `(,param-name . nil) (cdr persp-params)))
(setq param (cadr persp-params))))
(setcdr param value)))
(defun em-workflow/get-persp-workspace (&optional persp frame)
"Get the correct workspace parameters for perspective.
PERSP is the perspective, and defaults to the current
perspective. FRAME is the frame where the parameters are
expected to be used, and defaults to the current frame."
(or persp (setq persp (persp-curr)))
(let ((param-names (if (display-graphic-p frame)
'(gui-eyebrowse-window-configs
gui-eyebrowse-current-slot
gui-eyebrowse-last-slot)
'(term-eyebrowse-window-configs
term-eyebrowse-current-slot
term-eyebrowse-last-slot))))
(--map (em-workflow/persp-parameter it persp) param-names)))
(defun em-workflow/set-persp-workspace (workspace-params
&optional persp frame)
"Set workspace parameters for perspective.
WORKSPACE-PARAMS should be a list containing 3 elements in
this order:
- window-configs, as returned by (eyebrowse--get 'window-configs)
- current-slot, as returned by (eyebrowse--get 'current-slot)
- last-slot, as returned by (eyebrowse--get 'last-slot)
PERSP is the perspective, and defaults to the current
perspective. FRAME is the frame where the parameters came
from, and defaults to the current frame. Each perspective
has two sets of workspace parameters: one set for graphical
frames, and one set for terminal frames."
(or persp (setq persp (persp-curr)))
(let ((param-names (if (display-graphic-p frame)
'(gui-eyebrowse-window-configs
gui-eyebrowse-current-slot
gui-eyebrowse-last-slot)
'(term-eyebrowse-window-configs
term-eyebrowse-current-slot
term-eyebrowse-last-slot))))
(--zip-with (em-workflow/set-persp-parameter it other persp)
param-names workspace-params)))
(defun em-workflow/load-eyebrowse-for-perspective (&optional frame)
"Load an eyebrowse workspace according to a perspective's parameters.
FRAME's perspective is the perspective that is considered,
defaulting to the current frame's perspective. If the
perspective doesn't have a workspace, create one."
(let* ((workspace-params
(em-workflow/get-persp-workspace (persp-curr frame) frame))
(window-configs (nth 0 workspace-params))
(current-slot (nth 1 workspace-params))
(last-slot (nth 2 workspace-params)))
(if window-configs
(progn
(eyebrowse--set 'window-configs window-configs frame)
(eyebrowse--set 'current-slot current-slot frame)
(eyebrowse--set 'last-slot last-slot frame)
(eyebrowse--load-window-config current-slot))
(eyebrowse--set 'window-configs nil frame)
(eyebrowse-init frame)
(em-workflow/save-eyebrowse-for-perspective frame))))
(defun em-workflow/update-eyebrowse-for-perspective (&rest _args)
"Update and save current frame's eyebrowse workspace to its perspective."
(let* ((current-slot (eyebrowse--get 'current-slot))
(current-tag (nth 2 (assoc current-slot
(eyebrowse--get 'window-configs)))))
(eyebrowse--update-window-config-element
(eyebrowse--current-window-config current-slot current-tag)))
(em-workflow/save-eyebrowse-for-perspective))
(defun em-workflow/save-eyebrowse-for-perspective (&optional frame)
"Save FRAME's eyebrowse workspace to FRAME's perspective.
FRAME defaults to the current frame."
(em-workflow/set-persp-workspace (list
(eyebrowse--get 'window-configs frame)
(eyebrowse--get 'current-slot frame)
(eyebrowse--get 'last-slot frame))
(persp-curr frame)
frame))
(add-hook 'persp-before-switch-hook
#'em-workflow/update-eyebrowse-for-perspective)
(add-hook 'eyebrowse-post-window-switch-hook

33
roadmap.org Normal file
View File

@ -0,0 +1,33 @@
#+TITLE: Emacs roadmap
* 1.0 Features
** .emacs.d
- [ ] Port comment block functions
- [ ] Clean up theme file
- [ ] Comments are too dark (problematic with big block comments)
- [ ] Nicer splash screen
- [ ] Frontend for emodule (e.g. for updates, rollbacks, init messages)
** Emodule
- [ ] Updates packages
- [ ] Backup/rollback
* Extras
** .emacs.d
- [ ] RLS integration - get rid of racer dependency
** Metaswitch
- [ ] IPS trace
- [ ] Follow to start/end of IPS
- [ ] Oscilloscope
- [ ] colour highlights in IPS trace mode
- [ ] Open dmp in new buffer
- [ ] Diff IPSs
- [ ] Fix comment block function

32
wishlist.org
View File

@ -1,32 +0,0 @@
#+TITLE: Emacs wishlist
* Init
- [ ] Nicer splash screen
- [ ] Frontend for emodule (e.g. for updates, rollbacks, init messages)
* Emodule
- [ ] Updates packages
- [ ] Backup/rollback
* Theme
- [ ] Comments are too dark (problematic with big block comments)
- [ ] Clean up theme file
* Workflow
- [ ] Workspaces - see reddit thread on r/emacs
- [ ] Port comment block functions
* Metaswitch
- [ ] IPS trace
- [ ] Follow to start/end of IPS
- [ ] Oscilloscope
- [ ] colour highlights in IPS trace mode
- [ ] Open dmp in new buffer
- [ ] Diff IPSs
- [ ] Fix comment block function