colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

random tweaks to multi-line and more

Browse Source
This commit is contained in:
Ivan Malison 2015-11-25 11:15:16 -05:00
parent 42175447f1
commit 03f62993e6
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
dotfiles/emacs.d/init.el
View File

@ -204,12 +204,16 @@
;; functions
;; =============================================================================
(defun random-choice (choices)
(nth (random (length choices)) choices))
(defun display-prefix (arg)
"Display the value of the raw prefix arg."
(interactive "p")
(message "%s" arg))
(defmacro imalison:prefix-alternatives (name &rest alternatives)
(car alternatives)
`(defun ,name (arg)
(interactive "p")
(setq function
@ -219,7 +223,7 @@
(cl-loop for alternative in alternatives
collect `((eq arg ,last-power) (quote ,alternative))
do (setq last-power (* last-power 4)))))))
(setq function (or function (car alternatives))) ; Set a default value for function
(setq function (or function)) ; Set a default value for function
(setq current-prefix-arg nil)
(call-interactively function)))
@ -871,10 +875,16 @@ The current directory is assumed to be the project's root otherwise."
(progn
(defun imalison:multi-line-skip-fill ()
(interactive)
(multi-line-adjust-whitespace multi-line-skip-fill-respacer))
(multi-line-execute multi-line-skip-fill-stragety nil))
(defun imalison:multi-line-fill ()
(interactive)
(multi-line-execute multi-line-fill-stragety nil))
(imalison:prefix-alternatives imalison:multi-line multi-line
multi-line-single-line
imalison:multi-line-skip-fill))
imalison:multi-line-skip-fill
imalison:multi-line-fill))
:bind ("C-c d" . imalison:multi-line))
(use-package recentf
@ -2404,6 +2414,7 @@ items follow a style that is consistent with other prog-modes."
:ensure spaceline
:config
(progn
(setq powerline-default-separator (random-choice '(butt slant wave)))
(setq spaceline-workspace-numbers-unicode t
spaceline-window-numbers-unicode t)
(if (display-graphic-p)
@ -2412,13 +2423,6 @@ items follow a style that is consistent with other prog-modes."
(setq powerline-height 25)
(spaceline-spacemacs-theme)))
(use-package telephone-line
:disabled t
:config
(progn
(setq telephone-line-primary-left-separator #'telephone-line-cubed-left)
(telephone-line-mode 1)))
;; =============================================================================
;; Themes
;; =============================================================================
@ -2434,9 +2438,6 @@ items follow a style that is consistent with other prog-modes."
(setq calendar-latitude latitude)
(setq calendar-longitude longitude))))
(defun random-choice (choices)
(nth (random (length choices)) choices))
(defun imalison:set-font-height ()
(interactive)
(let ((new-height (read-face-attribute 'default :height (selected-frame))))