more refactoring. cleanup snippets.

ご主人様
not manx 4 years ago
parent da4a856b80
commit db2522c28e
Signed by: C-xC-c
GPG Key ID: F52ED472284EF2F4

@ -66,7 +66,8 @@
(spaceline-spacemacs-theme) (spaceline-spacemacs-theme)
:config :config
(spaceline-toggle-buffer-size-off) (spaceline-toggle-buffer-size-off)
(setq powerline-default-seperator (quote arrow))) ;;This isn't set in :custom because it breaks the arrow.
(setq powerline-default-seperator 'arrow))
(use-package dashboard (use-package dashboard
:diminish (dashboard-mode page-break-lines-mode) :diminish (dashboard-mode page-break-lines-mode)
@ -173,10 +174,6 @@
(add-hook 'org-mode-hook (local-keybind "C-c C-l" manx/org-insert-link)) (add-hook 'org-mode-hook (local-keybind "C-c C-l" manx/org-insert-link))
(definteractive manx/kill-word ()
(backward-word)
(kill-word 1))
(definteractive manx/kill-line() (definteractive manx/kill-line()
(move-beginning-of-line nil) (move-beginning-of-line nil)
(kill-whole-line)) (kill-whole-line))
@ -185,12 +182,15 @@
(save-excursion (save-excursion
(indent-region (point-min) (point-max) nil))) (indent-region (point-min) (point-max) nil)))
(global-set-key (kbd "<M-right>") 'forward-whitespace)
(global-set-key (kbd "C-c r b") 'revert-buffer)
(global-set-key (kbd "C-c k w") 'manx/kill-word)
(global-set-key (kbd "C-c k l") 'manx/kill-line) (global-set-key (kbd "C-c k l") 'manx/kill-line)
(global-set-key (kbd "s-i") 'manx/format-whole-buffer) (global-set-key (kbd "s-i") 'manx/format-whole-buffer)
(global-set-key (kbd "C-c r b") 'revert-buffer)
(definteractive manx/scratch-buffer ()
(switch-to-buffer (get-buffer-create "*scratch*"))
(lisp-interaction-mode))
(global-set-key (kbd "C-c s b") 'manx/scratch-buffer)
(global-set-key (kbd "C-x k") (lambdainteractive () (kill-buffer (current-buffer)))) (global-set-key (kbd "C-x k") (lambdainteractive () (kill-buffer (current-buffer))))
(global-set-key (kbd "C-M-s-k") (lambdainteractive () (mapc 'kill-buffer (buffer-list)))) (global-set-key (kbd "C-M-s-k") (lambdainteractive () (mapc 'kill-buffer (buffer-list))))
@ -231,12 +231,8 @@
(column-number-mode 1) (column-number-mode 1)
(display-battery-mode 1) (display-battery-mode 1)
(show-paren-mode 1) (show-paren-mode 1)
(electric-pair-mode t) (electric-pair-mode 1)
(global-hl-line-mode t) (global-hl-line-mode 1)
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(defalias 'yes-or-no-p 'y-or-n-p) (defalias 'yes-or-no-p 'y-or-n-p)
@ -247,6 +243,9 @@
(setq backup-directory-alist (setq backup-directory-alist
`(("." . ,(concat user-emacs-directory "autosaves")))) `(("." . ,(concat user-emacs-directory "autosaves"))))
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(global-unset-key (kbd "C-z")) ;; Fuck unix (global-unset-key (kbd "C-z")) ;; Fuck unix
(setq-default tab-width 2 (setq-default tab-width 2

@ -95,13 +95,14 @@ sbcl is in a werid place on Gentoo.
#+END_SRC #+END_SRC
** spaceline ** spaceline
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package spaceline (use-package spaceline
:init :init
(require 'spaceline-config) (require 'spaceline-config)
(spaceline-spacemacs-theme) (spaceline-spacemacs-theme)
:config :config
(spaceline-toggle-buffer-size-off) (spaceline-toggle-buffer-size-off)
(setq powerline-default-seperator (quote arrow))) ;;This isn't set in :custom because it breaks the arrow.
(setq powerline-default-seperator 'arrow))
#+END_SRC #+END_SRC
** dashboard ** dashboard
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -223,11 +224,11 @@ Also saves config if open.
#+END_SRC #+END_SRC
** Links ** Links
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(definteractive manx/delete-org-link () (definteractive manx/delete-org-link ()
(when (org-in-regexp org-bracket-link-regexp 1) (when (org-in-regexp org-bracket-link-regexp 1)
(apply 'delete-region (list (match-beginning 0) (match-end 0))))) (apply 'delete-region (list (match-beginning 0) (match-end 0)))))
(add-hook 'org-mode-hook (local-keybind "C-c o l" manx/delete-org-link)) (add-hook 'org-mode-hook (local-keybind "C-c o l" manx/delete-org-link))
#+END_SRC #+END_SRC
*** Inline Images *** Inline Images
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -241,29 +242,29 @@ Also saves config if open.
#+END_SRC #+END_SRC
* functions * functions
** text ** text
*** kill
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(definteractive manx/kill-word () (definteractive manx/kill-line()
(backward-word) (move-beginning-of-line nil)
(kill-word 1)) (kill-whole-line))
(definteractive manx/kill-line()
(move-beginning-of-line nil)
(kill-whole-line))
(definteractive manx/format-whole-buffer() (definteractive manx/format-whole-buffer()
(save-excursion (save-excursion
(indent-region (point-min) (point-max) nil))) (indent-region (point-min) (point-max) nil)))
(global-set-key (kbd "<M-right>") 'forward-whitespace) (global-set-key (kbd "C-c k l") 'manx/kill-line)
(global-set-key (kbd "C-c r b") 'revert-buffer) (global-set-key (kbd "s-i") 'manx/format-whole-buffer)
(global-set-key (kbd "C-c k w") 'manx/kill-word) (global-set-key (kbd "C-c r b") 'revert-buffer)
(global-set-key (kbd "C-c k l") 'manx/kill-line) #+END_SRC
(global-set-key (kbd "s-i") 'manx/format-whole-buffer)
#+END_SRC
** buffers ** buffers
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(global-set-key (kbd "C-x k") (lambdainteractive () (kill-buffer (current-buffer)))) (definteractive manx/scratch-buffer ()
(global-set-key (kbd "C-M-s-k") (lambdainteractive () (mapc 'kill-buffer (buffer-list)))) (switch-to-buffer (get-buffer-create "*scratch*"))
(lisp-interaction-mode))
(global-set-key (kbd "C-c s b") 'manx/scratch-buffer)
(global-set-key (kbd "C-x k") (lambdainteractive () (kill-buffer (current-buffer))))
(global-set-key (kbd "C-M-s-k") (lambdainteractive () (mapc 'kill-buffer (buffer-list))))
#+END_SRC #+END_SRC
** frames ** frames
*** transpose-frame *** transpose-frame
@ -311,28 +312,30 @@ Also saves config if open.
** minor things ** minor things
Things for GUI and basic config, like electric pairs and highlighting Things for GUI and basic config, like electric pairs and highlighting
parens. parens.
*** set
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(line-number-mode 1) (line-number-mode 1)
(column-number-mode 1) (column-number-mode 1)
(display-battery-mode 1) (display-battery-mode 1)
(show-paren-mode 1) (show-paren-mode 1)
(electric-pair-mode t) (electric-pair-mode 1)
(global-hl-line-mode t) (global-hl-line-mode 1)
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(defalias 'yes-or-no-p 'y-or-n-p)
(setq scroll-conservatively 100 (defalias 'yes-or-no-p 'y-or-n-p)
select-enable-clipboard t
vc-follow-symlinks t)
(setq backup-directory-alist (setq scroll-conservatively 100
`(("." . ,(concat user-emacs-directory "autosaves")))) select-enable-clipboard t
vc-follow-symlinks t)
(global-unset-key (kbd "C-z")) ;; Fuck unix (setq backup-directory-alist
`(("." . ,(concat user-emacs-directory "autosaves"))))
#+END_SRC
*** unset
#+BEGIN_SRC emacs-lisp
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(global-unset-key (kbd "C-z")) ;; Fuck unix
#+END_SRC #+END_SRC
** indentation ** indentation
tabs > spaces. Except in Lisp. tabs > spaces. Except in Lisp.

@ -1,5 +0,0 @@
# -*- mode: snippet -*-
# name: getset
# key: gs
# --
{ get; set; }$0

@ -1,5 +1,6 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: css # name: <link href=\"...\" rel=\"stylesheet\"...
# key: css # key: css
# contributor : Manx <boku@plum.moe>
# -- # --
<link href="${1:style.css}" rel="stylesheet" type="text/css">$0 <link href="${1:style.css}" rel="stylesheet" type="text/css">$0

@ -1,5 +1,6 @@
# -*- mode: snippet -*- # -*- mode: snippet -*-
# name: DOCTYPE html # name: <!DOCTYPE html>
# key: 5 # key: 5
# contributor : Manx <boku@plum.moe>
# -- # --
<!DOCTYPE html> <!DOCTYPE html>

@ -1,9 +0,0 @@
# -*- mode: snippet -*-
# name: figure
# key: fig
# --
\begin{figure}[H]
\centering
\includegraphics[width=${1:1}\textwidth]{${2:path}}
\caption{\label{fig:${3:label}}$0}
\end{figure}

@ -1,5 +0,0 @@
# -*- mode: snippet -*-
# name: hline
# key: hl
# --
\hline $0

@ -1,5 +0,0 @@
# -*- mode: snippet -*-
# name: italic
# key: i
# --
\textit{$1}$0

@ -1,5 +0,0 @@
# -*- mode: snippet -*-
# name: item
# key: -
# --
\item {$0}

@ -1,7 +0,0 @@
# -*- mode: snippet -*-
# name: itemize
# key: it
# --
\begin{itemize}
\item $0
\end{itemize}

@ -1,14 +0,0 @@
# -*- mode: snippet -*-
# name: subfigure
# key: sfig2
# --
\begin{figure}[H]
\centering
\begin{subfigure}{${1:0.45}\textwidth}
\includegraphics[width=${2:1}\textwidth]{${3:path}}
\end{subfigure}
\begin{subfigure}{$1\textwidth}
\includegraphics[width=$2\textwidth]{${4:path}}
\end{subfigure}
\end{figure}
$0

@ -1,9 +0,0 @@
# -*- mode: snippet -*-
# name: tabularx
# key: tabx
# --
\begin{tabularx}{\textwidth}{${1:|c|}}
\hline
$0
\hline
\end{tabularx}

@ -1,7 +0,0 @@
# -*- mode: snippet -*-
# name: defignore
# key: defignore
# --
(defignore ${1} (${2})
${3})
$0

@ -1,5 +0,0 @@
# -*- mode: snippet -*-
# name: wah
# key: w
# --
(wah $0)

@ -1,5 +0,0 @@
# -*- mode: snippet -*-
# name: get-set
# key: gs
# --
{ get; set; }$0
Loading…
Cancel
Save