not manx
4 years ago
commit
5dad74bbe5
GPG Key ID:
F52ED472284EF2F4
@ -0,0 +1,12 @@
|
||||
elpa
|
||||
url
|
||||
auto-save-list
|
||||
autosaves
|
||||
.cache
|
||||
*~
|
||||
\#*#
|
||||
tramp
|
||||
network-security.data
|
||||
ido.last
|
||||
recentf
|
||||
email.el
|
||||
|
After Width: | Height: | Size: 66 KiB |
@ -0,0 +1,10 @@
|
||||
;;;; Emacs Bookmark Format Version 1 ;;;;
|
||||
;;; This format is meant to be slightly human-readable;
|
||||
;;; nevertheless, you probably don't want to edit it.
|
||||
;;; -*- End Of Bookmark File Format Version Stamp -*-
|
||||
(("org-refile-last-stored"
|
||||
(filename . "~/todo.org")
|
||||
(front-context-string)
|
||||
(rear-context-string . " :prog:\n")
|
||||
(position . 78))
|
||||
)
|
||||
@ -0,0 +1,342 @@
|
||||
(defmacro definteractive (name &rest body)
|
||||
`(defun ,name ,(car body)
|
||||
(interactive)
|
||||
,@(cdr body)))
|
||||
|
||||
(defmacro lambdainteractive (&rest body)
|
||||
`(lambda ,(car body) (interactive) ,@(cdr body)))
|
||||
|
||||
(defmacro local-keybind (key value)
|
||||
`(lambda () (local-set-key (kbd ,key) (quote ,value))))
|
||||
|
||||
(definteractive manx/config-reload ()
|
||||
(when (get-buffer "config.org")
|
||||
(with-current-buffer "config.org" (save-buffer)))
|
||||
(org-babel-load-file (expand-file-name "~/.emacs.d/config.org")))
|
||||
|
||||
(global-set-key (kbd "C-c x r") 'manx/config-reload)
|
||||
(global-set-key (kbd "C-c x e") (lambdainteractive ()(find-file "~/.emacs.d/config.org")))
|
||||
|
||||
(setq org-src-window-setup 'current-window)
|
||||
|
||||
;; I read somewhere that Company breaks things?
|
||||
(add-hook 'org-mode-hook 'company-mode)
|
||||
|
||||
(setq org-structure-template-alist
|
||||
(append
|
||||
'(("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC")
|
||||
("js" "#+BEGIN_SRC javascript\n?\n#+END_SRC"))
|
||||
org-structure-template-alist))
|
||||
|
||||
(setq org-html-doctype "html5")
|
||||
|
||||
(definteractive manx/save-org-to-html()
|
||||
(when (equal major-mode 'org-mode)
|
||||
(save-buffer)
|
||||
(org-html-export-to-html)))
|
||||
|
||||
(add-hook 'org-mode-hook
|
||||
(local-keybind "C-c s h" manx/save-org-to-html))
|
||||
|
||||
(definteractive manx/delete-org-link ()
|
||||
(if (org-in-regexp org-bracket-link-regexp 1)
|
||||
(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))
|
||||
|
||||
(setq org-image-actual-width 150)
|
||||
|
||||
(definteractive manx/org-insert-link ()
|
||||
(org-insert-link)
|
||||
(org-redisplay-inline-images))
|
||||
|
||||
(add-hook 'org-mode-hook (local-keybind "C-c C-l" manx/org-insert-link))
|
||||
|
||||
(tool-bar-mode -1)
|
||||
(menu-bar-mode -1)
|
||||
(scroll-bar-mode -1)
|
||||
(line-number-mode 1)
|
||||
(column-number-mode 1)
|
||||
(display-battery-mode 1)
|
||||
|
||||
(global-unset-key (kbd "C-z"))
|
||||
|
||||
(definteractive manx/kill-whole-word ()
|
||||
(backward-word)
|
||||
(kill-word 1))
|
||||
|
||||
(global-set-key (kbd "C-c k w") 'manx/kill-whole-word)
|
||||
|
||||
(definteractive manx/kill-whole-line()
|
||||
(move-beginning-of-line nil)
|
||||
(kill-whole-line))
|
||||
|
||||
(global-set-key (kbd "C-c k l") 'manx/kill-whole-line)
|
||||
|
||||
(global-set-key (kbd "C-c r b") 'revert-buffer)
|
||||
|
||||
(definteractive manx/format-whole-buffer()
|
||||
(save-excursion
|
||||
(indent-region (point-min) (point-max) nil)))
|
||||
|
||||
(global-set-key (kbd "s-i") 'manx/format-whole-buffer)
|
||||
|
||||
(defun what-face (pos)
|
||||
(interactive "d")
|
||||
(let ((face (or (get-char-property (pos) 'read-face-name)
|
||||
(get-char-property (pos) 'face))))
|
||||
(if face (message "Face: %s" face) (message "No face at %d" pos))))
|
||||
|
||||
(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))))
|
||||
|
||||
;; This is only used here for now but we should still more it some
|
||||
;; time
|
||||
(add-to-list 'load-path "~/.emacs.d/scripts/")
|
||||
|
||||
(require 'transpose-frame)
|
||||
(global-set-key (kbd "C-c f t") 'transpose-frame)
|
||||
(global-set-key (kbd "C-c f i") 'flip-frame)
|
||||
(global-set-key (kbd "C-c f o") 'flop-frame)
|
||||
|
||||
(defmacro manx/split-and-follow (direction)
|
||||
`(progn
|
||||
,direction
|
||||
(balance-windows)
|
||||
(other-window 1)))
|
||||
|
||||
(global-set-key (kbd "C-x 3") (lambdainteractive () (manx/split-and-follow (split-window-below))))
|
||||
(global-set-key (kbd "C-x 2") (lambdainteractive () (manx/split-and-follow (split-window-horizontally))))
|
||||
|
||||
(setq use-package-always-ensure t
|
||||
use-package-verbose t)
|
||||
|
||||
(use-package keychain-environment
|
||||
:bind ("C-c r e" . 'keychain-refresh-environment))
|
||||
|
||||
(use-package exwm
|
||||
:bind ("s-k" . 'exwm-workspace-delete)
|
||||
:config
|
||||
(require 'exwm-config)
|
||||
(require 'exwm-systemtray)
|
||||
(exwm-systemtray-enable))
|
||||
|
||||
(use-package nginx-mode
|
||||
:custom
|
||||
(nginx-indent-tabs-mode t)
|
||||
(nginx-indent-level 2)
|
||||
:config (add-to-list 'auto-mode-alist '("/nginx/sites-\\(?:available\\|enabled\\)/" . nginx-mode)))
|
||||
|
||||
(use-package diminish)
|
||||
|
||||
(use-package company
|
||||
:diminish 'company-mode
|
||||
:bind (:map company-mode-map
|
||||
("C-c /" . 'yas-expand))
|
||||
:custom
|
||||
(company-idle-delay 0)
|
||||
(company-minimum-prefix-length 3)
|
||||
:init (add-hook 'after-init-hook 'global-company-mode))
|
||||
|
||||
;; (use-package csharp-mode
|
||||
;; :defer t)
|
||||
|
||||
;; (use-package omnisharp
|
||||
;; :defer t
|
||||
;; :init (add-hook 'csharp-mode-hook 'omnisharp-mode))
|
||||
|
||||
;; (eval-after-load 'company
|
||||
;; '(add-to-list 'company-backends 'company-omnisharp))
|
||||
|
||||
;; (add-hook 'csharp-mode #'company-mode)
|
||||
|
||||
(use-package spaceline
|
||||
:init
|
||||
(require 'spaceline-config)
|
||||
(setq powerline-default-seperator (quote arrow))
|
||||
(spaceline-spacemacs-theme)
|
||||
:config (spaceline-toggle-buffer-size-off))
|
||||
|
||||
(use-package dashboard
|
||||
:diminish (dashboard-mode page-break-lines-mode)
|
||||
:custom
|
||||
(dashboard-center-content t)
|
||||
(dashboard-banner-logo-title "Komacs")
|
||||
(dashboard-set-init-info t)
|
||||
(dashboard-startup-banner "~/.emacs.d/Komacs.png")
|
||||
(dashboard-show-shortcuts nil)
|
||||
(dashboard-items '((recents . 5)))
|
||||
:config (dashboard-setup-startup-hook))
|
||||
|
||||
(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
|
||||
|
||||
(use-package slime
|
||||
:defer t
|
||||
:custom
|
||||
(slime-lisp-implementations
|
||||
'((sbcl ("sbcl" "--core" "/usr/lib64/sbcl/sbcl.core")
|
||||
:env ("SBCL_HOME=/usr/lib64/sbcl/"))))
|
||||
:diminish 'slime-mode
|
||||
:init
|
||||
(use-package slime-company)
|
||||
(add-hook 'lisp-mode-hook 'slime-mode)
|
||||
(slime-setup '(slime-fancy slime-company)))
|
||||
|
||||
(use-package switch-window
|
||||
:custom
|
||||
(switch-window-input-style 'minibuffer)
|
||||
(switch-window-increase 4)
|
||||
(switch-window-threshold 2)
|
||||
:bind ([remap other-window] . switch-window))
|
||||
|
||||
(use-package elixir-mode
|
||||
:defer t
|
||||
:config (use-package alchemist))
|
||||
|
||||
(use-package hungry-delete
|
||||
:diminish 'hungry-delete-mode
|
||||
:config (global-hungry-delete-mode 1))2
|
||||
|
||||
(use-package which-key
|
||||
:diminish 'which-key-mode
|
||||
:config (which-key-mode))
|
||||
|
||||
(use-package avy
|
||||
:bind ("M-s" . avy-goto-char))
|
||||
|
||||
(use-package beacon
|
||||
:diminish 'beacon-mode
|
||||
:config (beacon-mode 1))
|
||||
|
||||
(use-package popup-kill-ring
|
||||
:bind ("M-y" . popup-kill-ring))
|
||||
|
||||
(use-package yasnippet
|
||||
:diminish 'yas-minor-mode
|
||||
:bind
|
||||
:init
|
||||
(use-package yasnippet-snippets)
|
||||
(yas-reload-all))
|
||||
|
||||
(add-hook 'html-mode-hook 'yas-minor-mode)
|
||||
(add-hook 'LaTeX-mode-hook 'yas-minor-mode)
|
||||
(add-hook 'emacs-lisp-mode 'yas-minor-mode)
|
||||
|
||||
(setq ido-enable-flex-matching t
|
||||
ido-create-new-buffer 'always
|
||||
ido-everywhere 1)
|
||||
|
||||
(use-package ido-vertical-mode
|
||||
:bind ("C-l" . 'ido-reread-directory)
|
||||
:custom
|
||||
(ido-vertical-define-keys 'C-n-and-C-p-only)
|
||||
:config
|
||||
(ido-vertical-mode 1)
|
||||
(ido-mode 1))
|
||||
|
||||
(defun unix-line-ends ()
|
||||
(let ((coding-str (symbol-name buffer-file-coding-system)))
|
||||
(when (string-match "-\\(?:dos\\|mac\\)$" coding-str)
|
||||
(set-buffer-file-coding-system 'unix))))
|
||||
|
||||
(add-hook 'find-file-hooks 'unix-line-ends)
|
||||
|
||||
(setq locale-coding-system 'utf-8)
|
||||
(set-terminal-coding-system 'utf-8)
|
||||
(set-keyboard-coding-system 'utf-8)
|
||||
(set-selection-coding-system 'utf-8)
|
||||
(prefer-coding-system 'utf-8)
|
||||
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
|
||||
|
||||
(defvar my-term-shell "/bin/bash")
|
||||
(defadvice ansi-term (before force-bash)
|
||||
(interactive (list my-term-shell)))
|
||||
(ad-activate 'ansi-term)
|
||||
|
||||
(global-set-key (kbd "<s-return>") 'ansi-term)
|
||||
|
||||
(show-paren-mode 1)
|
||||
(electric-pair-mode t)
|
||||
(global-hl-line-mode t)
|
||||
(global-prettify-symbols-mode t)
|
||||
|
||||
(defalias 'yes-or-no-p 'y-or-n-p)
|
||||
|
||||
(setq scroll-conservatively 100
|
||||
x-select-enable-clipboard t
|
||||
vc-follow-symlinks t)
|
||||
|
||||
(setq backup-directory-alist
|
||||
`(("." . ,(concat user-emacs-directory "autosaves"))))
|
||||
|
||||
(add-hook 'doc-view-mode-hook 'auto-revert-mode)
|
||||
|
||||
(setq tab-width 2
|
||||
indent-tabs-mode t)
|
||||
|
||||
(defvaralias 'js-indent-level 'tab-width)
|
||||
(defvaralias 'css-indent-offset 'tab-width)
|
||||
|
||||
(defvar auto-minor-mode-alist ()
|
||||
"Alist of filename patterns vs correpsonding minor mode functions, see `auto-mode-alist'
|
||||
All elements of this alist are checked, meaning you can enable multiple minor modes for the same regexp.")
|
||||
|
||||
(defun enable-minor-mode-based-on-extension ()
|
||||
"Check file name against `auto-minor-mode-alist' to enable minor modes
|
||||
the checking happens for all pairs in auto-minor-mode-alist"
|
||||
(when buffer-file-name
|
||||
(let ((name (file-name-sans-versions buffer-file-name))
|
||||
(remote-id (file-remote-p buffer-file-name))
|
||||
(case-fold-search auto-mode-case-fold)
|
||||
(alist auto-minor-mode-alist))
|
||||
;; Remove remote file name identification.
|
||||
(when (and (stringp remote-id)
|
||||
(string-match-p (regexp-quote remote-id) name))
|
||||
(setq name (substring name (match-end 0))))
|
||||
(while (and alist (caar alist) (cdar alist))
|
||||
(if (string-match-p (caar alist) name)
|
||||
(funcall (cdar alist) 1))
|
||||
(setq alist (cdr alist))))))
|
||||
|
||||
(add-hook 'find-file-hook #'enable-minor-mode-based-on-extension)
|
||||
|
||||
(define-minor-mode sensitive-minor-mode
|
||||
"For sensitive files like password lists.
|
||||
It disables backup creation and auto saving.
|
||||
|
||||
With no argument, this command toggles the mode.
|
||||
Non-null prefix argument turns on the mode.
|
||||
Null prefix argument turns off the mode."
|
||||
;; The initial value.
|
||||
nil
|
||||
;; The indicator for the mode line.
|
||||
" Sensitive"
|
||||
;; The minor mode bindings.
|
||||
nil
|
||||
(if (symbol-value sensitive-minor-mode)
|
||||
(progn
|
||||
;; disable backups
|
||||
(set (make-local-variable 'backup-inhibited) t)
|
||||
;; disable auto-save
|
||||
(if auto-save-default
|
||||
(auto-save-mode -1)))
|
||||
;resort to default value of backup-inhibited
|
||||
(kill-local-variable 'backup-inhibited)
|
||||
;resort to default auto save setting
|
||||
(if auto-save-default
|
||||
(auto-save-mode 1))))
|
||||
|
||||
;; Regexps of sensitive files.
|
||||
(setq auto-minor-mode-alist
|
||||
(append
|
||||
'(("stream/manifest/.*\\.json$" . sensitive-minor-mode)
|
||||
(".emacs.d/snippets/\\*$" . sensitive-minor-mode)
|
||||
("nginx/sites-(enabled|available)/*" . sensitive-minor-mode))
|
||||
auto-minor-mode-alist))
|
||||
|
||||
(add-hook 'emacs-lisp-mode-hook
|
||||
(lambda ()
|
||||
(push
|
||||
'("lambdainteractive" . ?Λ) prettify-symbols-alist)))
|
||||
|
||||
(load "~/.emacs.d/email.el")
|
||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,455 @@
|
||||
* macros
|
||||
** definteractive
|
||||
Wrappers around functions and lambdas so I don't have to type
|
||||
(interactive) all the damn time
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defmacro definteractive (name &rest body)
|
||||
`(defun ,name ,(car body)
|
||||
(interactive)
|
||||
,@(cdr body)))
|
||||
|
||||
(defmacro lambdainteractive (&rest body)
|
||||
`(lambda ,(car body) (interactive) ,@(cdr body)))
|
||||
#+END_SRC
|
||||
** local-keybind
|
||||
Hide unecessary lambda when calling (local-set-key) for org-mode
|
||||
functions
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defmacro local-keybind (key value)
|
||||
`(lambda () (local-set-key (kbd ,key) (quote ,value))))
|
||||
#+END_SRC
|
||||
* org
|
||||
** edit/reload config.org
|
||||
Saves config.org if it's open then reloads the file.
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(definteractive manx/config-reload ()
|
||||
(when (get-buffer "config.org")
|
||||
(with-current-buffer "config.org" (save-buffer)))
|
||||
(org-babel-load-file (expand-file-name "~/.emacs.d/config.org")))
|
||||
|
||||
(global-set-key (kbd "C-c x r") 'manx/config-reload)
|
||||
(global-set-key (kbd "C-c x e") (lambdainteractive ()(find-file "~/.emacs.d/config.org")))
|
||||
#+END_SRC
|
||||
** misc
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq org-src-window-setup 'current-window)
|
||||
|
||||
;; I read somewhere that Company breaks things?
|
||||
(add-hook 'org-mode-hook 'company-mode)
|
||||
#+END_SRC
|
||||
** Snippets
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq org-structure-template-alist
|
||||
(append
|
||||
'(("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC")
|
||||
("js" "#+BEGIN_SRC javascript\n?\n#+END_SRC"))
|
||||
org-structure-template-alist))
|
||||
#+END_SRC
|
||||
** html export
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq org-html-doctype "html5")
|
||||
|
||||
(definteractive manx/save-org-to-html()
|
||||
(when (equal major-mode 'org-mode)
|
||||
(save-buffer)
|
||||
(org-html-export-to-html)))
|
||||
|
||||
(add-hook 'org-mode-hook
|
||||
(local-keybind "C-c s h" manx/save-org-to-html))
|
||||
#+END_SRC
|
||||
** Links
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(definteractive manx/delete-org-link ()
|
||||
(if (org-in-regexp org-bracket-link-regexp 1)
|
||||
(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))
|
||||
#+END_SRC
|
||||
*** Inline Images
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq org-image-actual-width 150)
|
||||
|
||||
(definteractive manx/org-insert-link ()
|
||||
(org-insert-link)
|
||||
(org-redisplay-inline-images))
|
||||
|
||||
(add-hook 'org-mode-hook (local-keybind "C-c C-l" manx/org-insert-link))
|
||||
#+END_SRC
|
||||
* emacs gui
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(tool-bar-mode -1)
|
||||
(menu-bar-mode -1)
|
||||
(scroll-bar-mode -1)
|
||||
(line-number-mode 1)
|
||||
(column-number-mode 1)
|
||||
(display-battery-mode 1)
|
||||
|
||||
(global-unset-key (kbd "C-z"))
|
||||
#+END_SRC
|
||||
* functions
|
||||
** text
|
||||
*** kill whole word
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(definteractive manx/kill-whole-word ()
|
||||
(backward-word)
|
||||
(kill-word 1))
|
||||
|
||||
(global-set-key (kbd "C-c k w") 'manx/kill-whole-word)
|
||||
#+END_SRC
|
||||
*** kill whole line
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(definteractive manx/kill-whole-line()
|
||||
(move-beginning-of-line nil)
|
||||
(kill-whole-line))
|
||||
|
||||
(global-set-key (kbd "C-c k l") 'manx/kill-whole-line)
|
||||
#+END_SRC
|
||||
*** revert buffer
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(global-set-key (kbd "C-c r b") 'revert-buffer)
|
||||
#+END_SRC
|
||||
*** Format whole file
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(definteractive manx/format-whole-buffer()
|
||||
(save-excursion
|
||||
(indent-region (point-min) (point-max) nil)))
|
||||
|
||||
(global-set-key (kbd "s-i") 'manx/format-whole-buffer)
|
||||
#+END_SRC
|
||||
*** colour under cursor
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun what-face (pos)
|
||||
(interactive "d")
|
||||
(let ((face (or (get-char-property (pos) 'read-face-name)
|
||||
(get-char-property (pos) 'face))))
|
||||
(if face (message "Face: %s" face) (message "No face at %d" pos))))
|
||||
#+END_SRC
|
||||
** buffers
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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
|
||||
** frames
|
||||
*** transpose-frame
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
;; This is only used here for now but we should still more it some
|
||||
;; time
|
||||
(add-to-list 'load-path "~/.emacs.d/scripts/")
|
||||
|
||||
(require 'transpose-frame)
|
||||
(global-set-key (kbd "C-c f t") 'transpose-frame)
|
||||
(global-set-key (kbd "C-c f i") 'flip-frame)
|
||||
(global-set-key (kbd "C-c f o") 'flop-frame)
|
||||
#+END_SRC
|
||||
*** split and follow
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defmacro manx/split-and-follow (direction)
|
||||
`(progn
|
||||
,direction
|
||||
(balance-windows)
|
||||
(other-window 1)))
|
||||
|
||||
(global-set-key (kbd "C-x 3") (lambdainteractive () (manx/split-and-follow (split-window-below))))
|
||||
(global-set-key (kbd "C-x 2") (lambdainteractive () (manx/split-and-follow (split-window-horizontally))))
|
||||
#+END_SRC
|
||||
* use-package
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq use-package-always-ensure t
|
||||
use-package-verbose t)
|
||||
#+END_SRC
|
||||
** keychain-environment
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package keychain-environment
|
||||
:bind ("C-c r e" . 'keychain-refresh-environment))
|
||||
#+END_SRC
|
||||
** exwm
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package exwm
|
||||
:bind ("s-k" . 'exwm-workspace-delete)
|
||||
:config
|
||||
(require 'exwm-config)
|
||||
(require 'exwm-systemtray)
|
||||
(exwm-systemtray-enable))
|
||||
#+END_SRC
|
||||
** nginx
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package nginx-mode
|
||||
:custom
|
||||
(nginx-indent-tabs-mode t)
|
||||
(nginx-indent-level 2)
|
||||
:config (add-to-list 'auto-mode-alist '("/nginx/sites-\\(?:available\\|enabled\\)/" . nginx-mode)))
|
||||
#+END_SRC
|
||||
** diminish
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package diminish)
|
||||
#+END_SRC
|
||||
** company
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package company
|
||||
:diminish 'company-mode
|
||||
:bind (:map company-mode-map
|
||||
("C-c /" . 'yas-expand))
|
||||
:custom
|
||||
(company-idle-delay 0)
|
||||
(company-minimum-prefix-length 3)
|
||||
:init (add-hook 'after-init-hook 'global-company-mode))
|
||||
#+END_SRC
|
||||
** omnisharp
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
;; (use-package csharp-mode
|
||||
;; :defer t)
|
||||
|
||||
;; (use-package omnisharp
|
||||
;; :defer t
|
||||
;; :init (add-hook 'csharp-mode-hook 'omnisharp-mode))
|
||||
|
||||
;; (eval-after-load 'company
|
||||
;; '(add-to-list 'company-backends 'company-omnisharp))
|
||||
|
||||
;; (add-hook 'csharp-mode #'company-mode)
|
||||
#+END_SRC
|
||||
** spaceline
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package spaceline
|
||||
:init
|
||||
(require 'spaceline-config)
|
||||
(setq powerline-default-seperator (quote arrow))
|
||||
(spaceline-spacemacs-theme)
|
||||
:config (spaceline-toggle-buffer-size-off))
|
||||
|
||||
#+END_SRC
|
||||
** dashboard
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package dashboard
|
||||
:diminish (dashboard-mode page-break-lines-mode)
|
||||
:custom
|
||||
(dashboard-center-content t)
|
||||
(dashboard-banner-logo-title "Komacs")
|
||||
(dashboard-set-init-info t)
|
||||
(dashboard-startup-banner "~/.emacs.d/Komacs.png")
|
||||
(dashboard-show-shortcuts nil)
|
||||
(dashboard-items '((recents . 5)))
|
||||
:config (dashboard-setup-startup-hook))
|
||||
|
||||
(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
|
||||
#+END_SRC
|
||||
** slime
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package slime
|
||||
:defer t
|
||||
:custom
|
||||
(slime-lisp-implementations
|
||||
'((sbcl ("sbcl" "--core" "/usr/lib64/sbcl/sbcl.core")
|
||||
:env ("SBCL_HOME=/usr/lib64/sbcl/"))))
|
||||
:diminish 'slime-mode
|
||||
:init
|
||||
(use-package slime-company)
|
||||
(add-hook 'lisp-mode-hook 'slime-mode)
|
||||
(slime-setup '(slime-fancy slime-company)))
|
||||
#+END_SRC
|
||||
** switch window
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package switch-window
|
||||
:custom
|
||||
(switch-window-input-style 'minibuffer)
|
||||
(switch-window-increase 4)
|
||||
(switch-window-threshold 2)
|
||||
:bind ([remap other-window] . switch-window))
|
||||
#+END_SRC
|
||||
** elixir
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package elixir-mode
|
||||
:defer t
|
||||
:config (use-package alchemist))
|
||||
#+END_SRC
|
||||
** minor modes
|
||||
*** hungry delete
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package hungry-delete
|
||||
:diminish 'hungry-delete-mode
|
||||
:config (global-hungry-delete-mode 1))2
|
||||
#+END_SRC
|
||||
*** which key
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package which-key
|
||||
:diminish 'which-key-mode
|
||||
:config (which-key-mode))
|
||||
#+END_SRC
|
||||
*** avy
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package avy
|
||||
:bind ("M-s" . avy-goto-char))
|
||||
#+END_SRC
|
||||
*** beacon
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package beacon
|
||||
:diminish 'beacon-mode
|
||||
:config (beacon-mode 1))
|
||||
#+END_SRC
|
||||
*** popup kill ring
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package popup-kill-ring
|
||||
:bind ("M-y" . popup-kill-ring))
|
||||
#+END_SRC
|
||||
*** yasnippet
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package yasnippet
|
||||
:diminish 'yas-minor-mode
|
||||
:bind
|
||||
:init
|
||||
(use-package yasnippet-snippets)
|
||||
(yas-reload-all))
|
||||
#+END_SRC
|
||||
**** enable for major modes
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-hook 'html-mode-hook 'yas-minor-mode)
|
||||
(add-hook 'LaTeX-mode-hook 'yas-minor-mode)
|
||||
(add-hook 'emacs-lisp-mode 'yas-minor-mode)
|
||||
#+END_SRC
|
||||
* ido
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq ido-enable-flex-matching t
|
||||
ido-create-new-buffer 'always
|
||||
ido-everywhere 1)
|
||||
|
||||
(use-package ido-vertical-mode
|
||||
:bind ("C-l" . 'ido-reread-directory)
|
||||
:custom
|
||||
(ido-vertical-define-keys 'C-n-and-C-p-only)
|
||||
:config
|
||||
(ido-vertical-mode 1)
|
||||
(ido-mode 1))
|
||||
#+END_SRC
|
||||
* misc
|
||||
** unix line endings
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun unix-line-ends ()
|
||||
(let ((coding-str (symbol-name buffer-file-coding-system)))
|
||||
(when (string-match "-\\(?:dos\\|mac\\)$" coding-str)
|
||||
(set-buffer-file-coding-system 'unix))))
|
||||
|
||||
(add-hook 'find-file-hooks 'unix-line-ends)
|
||||
#+END_SRC
|
||||
** UTF8
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq locale-coding-system 'utf-8)
|
||||
(set-terminal-coding-system 'utf-8)
|
||||
(set-keyboard-coding-system 'utf-8)
|
||||
(set-selection-coding-system 'utf-8)
|
||||
(prefer-coding-system 'utf-8)
|
||||
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
|
||||
#+END_SRC
|
||||
** terminal
|
||||
*** Make bash implicit terminal
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar my-term-shell "/bin/bash")
|
||||
(defadvice ansi-term (before force-bash)
|
||||
(interactive (list my-term-shell)))
|
||||
(ad-activate 'ansi-term)
|
||||
|
||||
(global-set-key (kbd "<s-return>") 'ansi-term)
|
||||
#+END_SRC
|
||||
** minor things
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(show-paren-mode 1)
|
||||
(electric-pair-mode t)
|
||||
(global-hl-line-mode t)
|
||||
(global-prettify-symbols-mode t)
|
||||
|
||||
(defalias 'yes-or-no-p 'y-or-n-p)
|
||||
|
||||
(setq scroll-conservatively 100
|
||||
x-select-enable-clipboard t
|
||||
vc-follow-symlinks t)
|
||||
|
||||
(setq backup-directory-alist
|
||||
`(("." . ,(concat user-emacs-directory "autosaves"))))
|
||||
#+END_SRC
|
||||
** docView auto reload
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-hook 'doc-view-mode-hook 'auto-revert-mode)
|
||||
#+END_SRC
|
||||
** Indentation
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq tab-width 2
|
||||
indent-tabs-mode t)
|
||||
|
||||
(defvaralias 'js-indent-level 'tab-width)
|
||||
(defvaralias 'css-indent-offset 'tab-width)
|
||||
#+END_SRC
|
||||
* auto-minor-mode
|
||||
auto-mode-alist but for minor modes.
|
||||
|
||||
For example, used with sensitive-mode to not create backups
|
||||
(path/to/file~) when creating yasnippets
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar auto-minor-mode-alist ()
|
||||
"Alist of filename patterns vs correpsonding minor mode functions, see `auto-mode-alist'
|
||||
All elements of this alist are checked, meaning you can enable multiple minor modes for the same regexp.")
|
||||
|
||||
(defun enable-minor-mode-based-on-extension ()
|
||||
"Check file name against `auto-minor-mode-alist' to enable minor modes
|
||||
the checking happens for all pairs in auto-minor-mode-alist"
|
||||
(when buffer-file-name
|
||||
(let ((name (file-name-sans-versions buffer-file-name))
|
||||
(remote-id (file-remote-p buffer-file-name))
|
||||
(case-fold-search auto-mode-case-fold)
|
||||
(alist auto-minor-mode-alist))
|
||||
;; Remove remote file name identification.
|
||||
(when (and (stringp remote-id)
|
||||
(string-match-p (regexp-quote remote-id) name))
|
||||
(setq name (substring name (match-end 0))))
|
||||
(while (and alist (caar alist) (cdar alist))
|
||||
(if (string-match-p (caar alist) name)
|
||||
(funcall (cdar alist) 1))
|
||||
(setq alist (cdr alist))))))
|
||||
|
||||
(add-hook 'find-file-hook #'enable-minor-mode-based-on-extension)
|
||||
#+END_SRC
|
||||
* sensitive-minor-mode
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(define-minor-mode sensitive-minor-mode
|
||||
"For sensitive files like password lists.
|
||||
It disables backup creation and auto saving.
|
||||
|
||||
With no argument, this command toggles the mode.
|
||||
Non-null prefix argument turns on the mode.
|
||||
Null prefix argument turns off the mode."
|
||||
;; The initial value.
|
||||
nil
|
||||
;; The indicator for the mode line.
|
||||
" Sensitive"
|
||||
;; The minor mode bindings.
|
||||
nil
|
||||
(if (symbol-value sensitive-minor-mode)
|
||||
(progn
|
||||
;; disable backups
|
||||
(set (make-local-variable 'backup-inhibited) t)
|
||||
;; disable auto-save
|
||||
(if auto-save-default
|
||||
(auto-save-mode -1)))
|
||||
;resort to default value of backup-inhibited
|
||||
(kill-local-variable 'backup-inhibited)
|
||||
;resort to default auto save setting
|
||||
(if auto-save-default
|
||||
(auto-save-mode 1))))
|
||||
|
||||
;; Regexps of sensitive files.
|
||||
(setq auto-minor-mode-alist
|
||||
(append
|
||||
'(("stream/manifest/.*\\.json$" . sensitive-minor-mode)
|
||||
(".emacs.d/snippets/\\*$" . sensitive-minor-mode)
|
||||
("nginx/sites-(enabled|available)/*" . sensitive-minor-mode))
|
||||
auto-minor-mode-alist))
|
||||
#+END_SRC
|
||||
* Prettify symbols
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-hook 'emacs-lisp-mode-hook
|
||||
(lambda ()
|
||||
(push
|
||||
'("lambdainteractive" . ?Λ) prettify-symbols-alist)))
|
||||
#+END_SRC
|
||||
* Email
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(load "~/.emacs.d/email.el")
|
||||
#+END_SRC
|
||||
@ -0,0 +1,10 @@
|
||||
1476 manx <manx@ascii> Tue Mar 26 12:17:27 2019
|
||||
737 manx <manx@ascii> Mon Mar 25 16:40:54 2019
|
||||
529 manx <manx@ascii> Wed Mar 27 11:19:28 2019
|
||||
512 manx <manx@ascii> Wed Mar 13 15:31:53 2019
|
||||
507 manx <manx@ascii> Wed Mar 13 15:34:55 2019
|
||||
459 manx <manx@ascii> Wed Mar 20 12:35:48 2019
|
||||
431 manx <manx@ascii> Wed Mar 13 15:38:47 2019
|
||||
272 manx <manx@ascii> Thu Mar 21 13:45:44 2019
|
||||
269 manx <manx@ascii> Tue Mar 19 10:51:54 2019
|
||||
160 manx <manx@ascii> Wed Mar 20 12:33:02 2019
|
||||
@ -0,0 +1,63 @@
|
||||
;; required package fluff
|
||||
(require 'package)
|
||||
(setq package-enable-at-startup nil)
|
||||
(add-to-list 'package-archives
|
||||
'("melpa" . "http://melpa.milkbox.net/packages/") t)
|
||||
|
||||
(package-initialize)
|
||||
|
||||
(unless (package-installed-p 'use-package)
|
||||
(package-refresh-contents)
|
||||
(package-install 'use-package))
|
||||
|
||||
(unless (package-installed-p 'spacemacs-theme)
|
||||
(package-refresh-contents)
|
||||
(package-install 'spacemacs-theme))
|
||||
|
||||
|
||||
|
||||
;; org-babel won't compile these sometimes?
|
||||
(if (file-newer-than-file-p "~/.emacs.d/config.org" "~/.emacs.d/config.el")
|
||||
(org-babel-load-file "~/.emacs.d/config.org")
|
||||
(load "~/.emacs.d/config.el"))
|
||||
|
||||
;; Stuff generated by emacs
|
||||
(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.
|
||||
'(TeX-engine (quote xetex))
|
||||
'(company-idle-delay 0)
|
||||
'(company-minimum-prefix-length 3)
|
||||
'(custom-enabled-themes (quote (spacemacs-dark)))
|
||||
'(custom-safe-themes
|
||||
(quote
|
||||
("bffa9739ce0752a37d9b1eee78fc00ba159748f50dc328af4be661484848e476" default)))
|
||||
'(dashboard-banner-logo-title "Komacs")
|
||||
'(dashboard-center-content t)
|
||||
'(dashboard-items (quote ((recents . 5))))
|
||||
'(dashboard-set-init-info t)
|
||||
'(dashboard-show-shortcuts nil)
|
||||
'(dashboard-startup-banner "~/.emacs.d/Komacs.png")
|
||||
'(ido-vertical-define-keys (quote C-n-and-C-p-only))
|
||||
'(nginx-indent-level 2)
|
||||
'(nginx-indent-tabs-mode t)
|
||||
'(package-selected-packages
|
||||
(quote
|
||||
(alchemist elixir-mode nginx-mode ac-js2 pdf-tools yasnippet-snippets which-key use-package symon switch-window spacemacs-theme spaceline slime-company popup-kill-ring omnisharp keychain-environment js2-mode ido-vertical-mode hungry-delete exwm diminish dashboard company-auctex beacon avy)))
|
||||
'(slime-lisp-implementations
|
||||
(quote
|
||||
((sbcl
|
||||
("sbcl" "--core" "/usr/lib64/sbcl/sbcl.core")
|
||||
:env
|
||||
("SBCL_HOME=/usr/lib64/sbcl/")))) t)
|
||||
'(switch-window-increase 4 t)
|
||||
'(switch-window-input-style (quote minibuffer) t)
|
||||
'(switch-window-threshold 2 t))
|
||||
(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.
|
||||
'(default ((t (:inherit nil :stipple nil :background "#292b2e" :foreground "#b2b2b2" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 110 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))))
|
||||
@ -0,0 +1,21 @@
|
||||
;; This file is a part of LASS
|
||||
;; (c) 2014 TymoonNET/NexT http://tymoon.eu (shinmera@tymoon.eu)
|
||||
;; Author: Nicolas Hafner <shinmera@tymoon.eu>
|
||||
|
||||
(defun lass-compile-current ()
|
||||
(interactive)
|
||||
(or
|
||||
(when (and (slime-connected-p)
|
||||
(or (slime-eval '(cl:not (cl:null (cl:find-package :lass))))
|
||||
(and (slime-eval '(cl:not (cl:null (cl:find-package :ql))))
|
||||
(slime-eval '(ql:quickload :lass)))))
|
||||
(message "LASS compiled to %s" (slime-eval `(uiop:native-namestring (lass:generate (uiop:parse-native-namestring ,(buffer-file-name)))))))
|
||||
(message "LASS compiled. %s" (shell-command-to-string (format "lass %s" (shell-quote-argument (buffer-file-name)))))))
|
||||
|
||||
(define-derived-mode lass-mode common-lisp-mode
|
||||
"LASS" "Mode with auto-compiling for LASS files."
|
||||
(add-hook 'after-save-hook 'lass-compile-current nil t))
|
||||
|
||||
(add-to-list 'auto-mode-alist '("\\.lass\\'" . lass-mode))
|
||||
|
||||
(provide 'lass)
|
||||
@ -0,0 +1,268 @@
|
||||
|
||||
;;; transpose-frame.el --- Transpose windows arrangement in a frame
|
||||
|
||||
;; Copyright (c) 2011 S. Irie
|
||||
|
||||
;; Author: S. Irie
|
||||
;; Maintainer: S. Irie
|
||||
;; Keywords: window
|
||||
|
||||
(defconst transpose-frame-version "0.1.0")
|
||||
|
||||
;; This program is free software.
|
||||
|
||||
;; Redistribution and use in source and binary forms, with or without
|
||||
;; modification, are permitted provided that the following conditions
|
||||
;; are met:
|
||||
|
||||
;; 1. Redistributions of source code must retain the above copyright
|
||||
;; notice, this list of conditions and the following disclaimer.
|
||||
;; 2. Redistributions in binary form must reproduce the above copyright
|
||||
;; notice, this list of conditions and the following disclaimer in the
|
||||
;; documentation and/or other materials provided with the distribution.
|
||||
|
||||
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
||||
;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
||||
;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
||||
;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
||||
;; OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
;; SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
|
||||
;; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
|
||||
;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
|
||||
;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
|
||||
;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
||||
;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; This program provides some interactive functions which allows users
|
||||
;; to transpose windows arrangement in currently selected frame:
|
||||
;;
|
||||
;; `transpose-frame' ... Swap x-direction and y-direction
|
||||
;;
|
||||
;; +------------+------------+ +----------------+--------+
|
||||
;; | | B | | A | |
|
||||
;; | A +------------+ | | |
|
||||
;; | | C | => +--------+-------+ D |
|
||||
;; +------------+------------+ | B | C | |
|
||||
;; | D | | | | |
|
||||
;; +-------------------------+ +--------+-------+--------+
|
||||
;;
|
||||
;; `flip-frame' ... Flip vertically
|
||||
;;
|
||||
;; +------------+------------+ +------------+------------+
|
||||
;; | | B | | D |
|
||||
;; | A +------------+ +------------+------------+
|
||||
;; | | C | => | | C |
|
||||
;; +------------+------------+ | A +------------+
|
||||
;; | D | | | B |
|
||||
;; +-------------------------+ +------------+------------+
|
||||
;;
|
||||
;; `flop-frame' ... Flop horizontally
|
||||
;;
|
||||
;; +------------+------------+ +------------+------------+
|
||||
;; | | B | | B | |
|
||||
;; | A +------------+ +------------+ A |
|
||||
;; | | C | => | C | |
|
||||
;; +------------+------------+ +------------+------------+
|
||||
;; | D | | D |
|
||||
;; +-------------------------+ +-------------------------+
|
||||
;;
|
||||
;; `rotate-frame' ... Rotate 180 degrees
|
||||
;;
|
||||
;; +------------+------------+ +-------------------------+
|
||||
;; | | B | | D |
|
||||
;; | A +------------+ +------------+------------+
|
||||
;; | | C | => | C | |
|
||||
;; +------------+------------+ +------------+ A |
|
||||
;; | D | | B | |
|
||||
;; +-------------------------+ +------------+------------+
|
||||
;;
|
||||
;; `rotate-frame-clockwise' ... Rotate 90 degrees clockwise
|
||||
;;
|
||||
;; +------------+------------+ +-------+-----------------+
|
||||
;; | | B | | | A |
|
||||
;; | A +------------+ | | |
|
||||
;; | | C | => | D +--------+--------+
|
||||
;; +------------+------------+ | | B | C |
|
||||
;; | D | | | | |
|
||||
;; +-------------------------+ +-------+--------+--------+
|
||||
;;
|
||||
;; `rotate-frame-anticlockwise' ... Rotate 90 degrees anti-clockwise
|
||||
;;
|
||||
;; +------------+------------+ +--------+--------+-------+
|
||||
;; | | B | | B | C | |
|
||||
;; | A +------------+ | | | |
|
||||
;; | | C | => +--------+--------+ D |
|
||||
;; +------------+------------+ | A | |
|
||||
;; | D | | | |
|
||||
;; +-------------------------+ +-----------------+-------+
|
||||
;;
|
||||
;; This program is tested on GNU Emacs 22, 23.
|
||||
|
||||
;;
|
||||
;; Installation:
|
||||
;;
|
||||
;; First, save this file as transpose-frame.el and byte-compile in a directory
|
||||
;; that is listed in load-path.
|
||||
;;
|
||||
;; Put the following in your .emacs file:
|
||||
;;
|
||||
;; (require 'transpose-frame)
|
||||
;;
|
||||
;; To swap x-direction and y-direction of windows arrangement, for example,
|
||||
;; just type as:
|
||||
;;
|
||||
;; M-x transpose-frame
|
||||
;;
|
||||
;; Have fun!
|
||||
;;
|
||||
|
||||
;;; ChangeLog:
|
||||
|
||||
;; 2011-03-01 S. Irie
|
||||
;; * Version 0.1.0
|
||||
;; * Save more information such as hscroll, margins, fringes, etc.
|
||||
;; * Bug fix
|
||||
;; 2011-02-28 S. Irie
|
||||
;; * Version 0.0.1
|
||||
;; * Initial version
|
||||
|
||||
;;; ToDo:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Internal functions
|
||||
|
||||
(defun transpose-frame-get-arrangement (&optional frame subtree)
|
||||
(let ((tree (or subtree
|
||||
(car (window-tree frame)))))
|
||||
(if (windowp tree)
|
||||
(list (window-buffer tree)
|
||||
(window-start tree)
|
||||
(window-point tree)
|
||||
(window-hscroll tree)
|
||||
(window-margins tree)
|
||||
(window-fringes tree)
|
||||
(window-dedicated-p tree)
|
||||
(window-redisplay-end-trigger tree)
|
||||
tree
|
||||
(eq tree (frame-selected-window frame)))
|
||||
(let* ((vertical (car tree))
|
||||
(edges (cadr tree))
|
||||
(length (float (if vertical
|
||||
(- (nth 3 edges) (cadr edges))
|
||||
(- (nth 2 edges) (car edges))))))
|
||||
(cons vertical
|
||||
(mapcar (lambda (subtree)
|
||||
(cons (transpose-frame-get-arrangement frame subtree)
|
||||
(/ (let ((edges (if (windowp subtree)
|
||||
(window-edges subtree)
|
||||
(cadr subtree))))
|
||||
(if vertical
|
||||
(- (nth 3 edges) (cadr edges))
|
||||
(- (nth 2 edges) (car edges))))
|
||||
length)))
|
||||
(cddr tree)))))))
|
||||
|
||||
(defun transpose-frame-set-arrangement (config &optional window-or-frame &rest how)
|
||||
(let ((window (if (windowp window-or-frame)
|
||||
window-or-frame
|
||||
(frame-selected-window window-or-frame))))
|
||||
(unless (windowp window-or-frame)
|
||||
(delete-other-windows window))
|
||||
(if (bufferp (car config))
|
||||
(let ((buffer (pop config)))
|
||||
(set-window-buffer window buffer)
|
||||
(set-window-start window (pop config))
|
||||
(set-window-point window (pop config))
|
||||
(set-window-hscroll window (pop config))
|
||||
(set-window-margins window (caar config) (cdr (pop config)))
|
||||
(apply 'set-window-fringes window (pop config))
|
||||
(set-window-dedicated-p window (pop config))
|
||||
(set-window-redisplay-end-trigger window (pop config))
|
||||
(let ((orig-window (pop config))
|
||||
(ol-func (lambda (ol)
|
||||
(if (eq (overlay-get ol 'window) orig-window)
|
||||
(overlay-put ol 'window window))))
|
||||
(ol-lists (with-current-buffer buffer
|
||||
(overlay-lists))))
|
||||
(mapc ol-func (car ol-lists))
|
||||
(mapc ol-func (cdr ol-lists)))
|
||||
(if (car config) (select-window window)))
|
||||
(let* ((horizontal (if (memq 'transpose how)
|
||||
(pop config)
|
||||
(not (pop config))))
|
||||
(edges (window-edges window))
|
||||
(length (if horizontal
|
||||
(- (nth 2 edges) (car edges))
|
||||
(- (nth 3 edges) (cadr edges)))))
|
||||
(if (memq (if horizontal 'flop 'flip) how)
|
||||
(setq config (reverse config)))
|
||||
(while (cdr config)
|
||||
(setq window (prog1
|
||||
(split-window window (round (* length (cdar config)))
|
||||
horizontal)
|
||||
(apply 'transpose-frame-set-arrangement
|
||||
(caar config) window how))
|
||||
config (cdr config)))
|
||||
(apply 'transpose-frame-set-arrangement
|
||||
(caar config) window how)))))
|
||||
|
||||
;; User commands
|
||||
|
||||
;;;###autoload
|
||||
(defun transpose-frame (&optional frame)
|
||||
"Transpose windows arrangement at FRAME.
|
||||
Omitting FRAME means currently selected frame."
|
||||
(interactive)
|
||||
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
|
||||
'transpose)
|
||||
(if (interactive-p) (recenter)))
|
||||
|
||||
;;;###autoload
|
||||
(defun flip-frame (&optional frame)
|
||||
"Flip windows arrangement vertically at FRAME.
|
||||
Omitting FRAME means currently selected frame."
|
||||
(interactive)
|
||||
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
|
||||
'flip))
|
||||
|
||||
;;;###autoload
|
||||
(defun flop-frame (&optional frame)
|
||||
"Flop windows arrangement horizontally at FRAME.
|
||||
Omitting FRAME means currently selected frame."
|
||||
(interactive)
|
||||
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
|
||||
'flop))
|
||||
|
||||
;;;###autoload
|
||||
(defun rotate-frame (&optional frame)
|
||||
"Rotate windows arrangement 180 degrees at FRAME.
|
||||
Omitting FRAME means currently selected frame."
|
||||
(interactive)
|
||||
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
|
||||
'flip 'flop))
|
||||
|
||||
;;;###autoload
|
||||
(defun rotate-frame-clockwise (&optional frame)
|
||||
"Rotate windows arrangement 90 degrees clockwise at FRAME.
|
||||
Omitting FRAME means currently selected frame."
|
||||
(interactive)
|
||||
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
|
||||
'transpose 'flop)
|
||||
(if (interactive-p) (recenter)))
|
||||
|
||||
;;;###autoload
|
||||
(defun rotate-frame-anticlockwise (&optional frame)
|
||||
"Rotate windows arrangement 90 degrees anti-clockwise at FRAME.
|
||||
Omitting FRAME means currently selected frame."
|
||||
(interactive)
|
||||
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
|
||||
'transpose 'flip)
|
||||
(if (interactive-p) (recenter)))
|
||||
|
||||
(provide 'transpose-frame)
|
||||
|
||||
;;;
|
||||
;;; transpose-frame.el ends here
|
||||
Binary file not shown.
@ -0,0 +1,5 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: getset
|
||||
# key: gs
|
||||
# --
|
||||
{ get; set; }$0
|
||||
@ -0,0 +1,5 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: css
|
||||
# key: css
|
||||
# --
|
||||
<link href="${1:style.css}" rel="stylesheet" type="text/css">$0
|
||||
@ -0,0 +1,5 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: DOCTYPE html
|
||||
# key: 5
|
||||
# --
|
||||
<!DOCTYPE html>
|
||||
@ -0,0 +1,9 @@
|
||||
# -*- 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}
|
||||
@ -0,0 +1,5 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: hline
|
||||
# key: hl
|
||||
# --
|
||||
\hline $0
|
||||
@ -0,0 +1,5 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: italic
|
||||
# key: i
|
||||
# --
|
||||
\textit{$1}$0
|
||||
@ -0,0 +1,5 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: item
|
||||
# key: -
|
||||
# --
|
||||
\item {$0}
|
||||
@ -0,0 +1,7 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: itemize
|
||||
# key: it
|
||||
# --
|
||||
\begin{itemize}
|
||||
\item $0
|
||||
\end{itemize}
|
||||
@ -0,0 +1,14 @@
|
||||
# -*- 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
|
||||
@ -0,0 +1,9 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: tabularx
|
||||
# key: tabx
|
||||
# --
|
||||
\begin{tabularx}{\textwidth}{${1:|c|}}
|
||||
\hline
|
||||
$0
|
||||
\hline
|
||||
\end{tabularx}
|
||||
@ -0,0 +1,7 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: defignore
|
||||
# key: defignore
|
||||
# --
|
||||
(defignore ${1} (${2})
|
||||
${3})
|
||||
$0
|
||||
@ -0,0 +1,5 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: wah
|
||||
# key: w
|
||||
# --
|
||||
(wah $0)
|
||||
@ -0,0 +1,5 @@
|
||||
# -*- mode: snippet -*-
|
||||
# name: get-set
|
||||
# key: gs
|
||||
# --
|
||||
{ get; set; }$0
|
||||
Loading…
Reference in new issue