Add Emacs config
This commit is contained in:
parent
05415b9b2c
commit
c2778f0f71
50 changed files with 4265 additions and 0 deletions
46
emacs/.emacs.d/.gitignore
vendored
Normal file
46
emacs/.emacs.d/.gitignore
vendored
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
*.dat
|
||||
*.elc
|
||||
*~
|
||||
|
||||
.mc-lists.el
|
||||
.org-id-locations
|
||||
.yas-compiled-snippets.el
|
||||
|
||||
abbrev_defs
|
||||
bookmarks
|
||||
custom.el*
|
||||
emms-streams
|
||||
eww-bookmarks
|
||||
flycheck[-_]*
|
||||
flymake.log
|
||||
geiser-history.guile
|
||||
history
|
||||
ido.last
|
||||
init2.el
|
||||
places
|
||||
smex-items
|
||||
sqliinput
|
||||
srecode-map.el
|
||||
todo-*
|
||||
tramp
|
||||
type-break
|
||||
|
||||
.*/
|
||||
.cask/
|
||||
_publish/
|
||||
elfeed/
|
||||
elnode/
|
||||
elpa/
|
||||
emms/
|
||||
image-dired/
|
||||
jabber-hist/
|
||||
jabber/
|
||||
newsticker/
|
||||
packages/
|
||||
perso/
|
||||
request/
|
||||
semanticdb/
|
||||
templates/
|
||||
themes/
|
||||
url/
|
||||
vendor-lisp/
|
||||
86
emacs/.emacs.d/Cask
Normal file
86
emacs/.emacs.d/Cask
Normal file
|
|
@ -0,0 +1,86 @@
|
|||
;; -*- mode: emacs-lisp; -*-
|
||||
(source gnu)
|
||||
(source marmalade)
|
||||
(source melpa)
|
||||
(source org)
|
||||
|
||||
(depends-on "slime")
|
||||
|
||||
(depends-on "ac-geiser")
|
||||
(depends-on "ac-slime")
|
||||
(depends-on "auto-complete")
|
||||
(depends-on "boxquote")
|
||||
(depends-on "c-eldoc")
|
||||
(depends-on "cedit")
|
||||
(depends-on "clojure-mode")
|
||||
(depends-on "closure-template-html-mode")
|
||||
(depends-on "coffee-mode")
|
||||
(depends-on "colemak-evil" :git "git://github.com/ryuslash/colemak-evil.git")
|
||||
(depends-on "csharp-mode")
|
||||
(depends-on "css-eldoc")
|
||||
(depends-on "deferred")
|
||||
(depends-on "desktop-registry")
|
||||
(depends-on "diff-hl")
|
||||
(depends-on "discover")
|
||||
(depends-on "dispass")
|
||||
(depends-on "dockerfile-mode")
|
||||
(depends-on "e2wm")
|
||||
(depends-on "elnode")
|
||||
(depends-on "emms")
|
||||
(depends-on "eshell-fringe-status")
|
||||
(depends-on "esxml")
|
||||
(depends-on "evil")
|
||||
(depends-on "eww-lnum")
|
||||
(depends-on "expand-region")
|
||||
(depends-on "fill-column-indicator")
|
||||
(depends-on "fiplr")
|
||||
(depends-on "flx")
|
||||
(depends-on "flycheck")
|
||||
(depends-on "flycheck-commit-check" :git "git://github.com/ryuslash/flycheck-commit-check.git")
|
||||
(depends-on "flycheck-pos-tip")
|
||||
(depends-on "fuel")
|
||||
(depends-on "geiser")
|
||||
(depends-on "git-auto-commit-mode")
|
||||
(depends-on "git-commit-mode")
|
||||
(depends-on "git-rebase-mode")
|
||||
(depends-on "gitignore-mode")
|
||||
(depends-on "go-mode")
|
||||
(depends-on "graphviz-dot-mode")
|
||||
(depends-on "gtags")
|
||||
(depends-on "haml-mode")
|
||||
(depends-on "haskell-mode")
|
||||
(depends-on "hl-sexp")
|
||||
(depends-on "htmlize")
|
||||
(depends-on "hy-mode")
|
||||
(depends-on "hypo" :git "git://github.com/ryuslash/hypo-emacs.git")
|
||||
(depends-on "ido-ubiquitous")
|
||||
(depends-on "idomenu")
|
||||
(depends-on "jabber")
|
||||
(depends-on "jedi")
|
||||
(depends-on "js2-mode")
|
||||
(depends-on "magit")
|
||||
(depends-on "markdown-mode")
|
||||
(depends-on "mode-icons")
|
||||
(depends-on "monokai-theme")
|
||||
(depends-on "multiple-cursors")
|
||||
(depends-on "noflet")
|
||||
(depends-on "org2blog")
|
||||
(depends-on "paredit")
|
||||
(depends-on "persistent-outline" :git "git://ryuslash.org/persistent-outline.git")
|
||||
(depends-on "php-mode")
|
||||
(depends-on "pony-mode")
|
||||
(depends-on "popwin")
|
||||
(depends-on "prodigy")
|
||||
(depends-on "rainbow-delimiters")
|
||||
(depends-on "rainbow-mode")
|
||||
(depends-on "request")
|
||||
(depends-on "rust-mode")
|
||||
(depends-on "slime-js")
|
||||
(depends-on "smex")
|
||||
(depends-on "svg-mode-line-themes")
|
||||
(depends-on "tagedit")
|
||||
(depends-on "upcase-mode" :git "git://github.com/ryuslash/upcase-mode.git")
|
||||
(depends-on "writegood-mode")
|
||||
(depends-on "yaml-mode")
|
||||
(depends-on "yasnippet")
|
||||
(depends-on "yoshi-theme" :git "git://github.com/ryuslash/yoshi-theme.git")
|
||||
29
emacs/.emacs.d/Makefile
Normal file
29
emacs/.emacs.d/Makefile
Normal file
|
|
@ -0,0 +1,29 @@
|
|||
.PHONY: all site-lisp
|
||||
all: init2.elc init.elc site-lisp/
|
||||
|
||||
%.elc: %.el
|
||||
emacs -Q -batch -eval "(byte-compile-file \"$<\")"
|
||||
|
||||
init.el: init2.el
|
||||
init2.el: init.org
|
||||
emacs -Q -batch -l "ob-tangle" -eval "(org-babel-tangle-file \"init.org\")"
|
||||
|
||||
%/: %
|
||||
$(MAKE) -C "$(CURDIR)/$*"
|
||||
|
||||
rudel:
|
||||
git clone git://github.com/scymtym/rudel.git packages/rudel
|
||||
emacs -Q --batch --visit packages/rudel/rudel-compile.el \
|
||||
--eval "(eval-buffel)"
|
||||
|
||||
clean:
|
||||
rm -rf _publish/*.*
|
||||
|
||||
export: clean
|
||||
emacs -L $(CURDIR) -L ~/.emacs.d/vendor-lisp/org/lisp \
|
||||
-L ~/.emacs.d/vendor-lisp/org/contrib/lisp -batch -l project.el \
|
||||
-f org-publish-all
|
||||
|
||||
publish: export
|
||||
rsync -avuz --exclude=*~ --delete _publish/ \
|
||||
ryuslash.org:public_html/orgweb/dotfiles/emacs
|
||||
3
emacs/.emacs.d/eshell/.gitignore
vendored
Normal file
3
emacs/.emacs.d/eshell/.gitignore
vendored
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
history
|
||||
lastdir
|
||||
login
|
||||
9
emacs/.emacs.d/eshell/alias
Normal file
9
emacs/.emacs.d/eshell/alias
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
alias hgit hgit --no-pager $*
|
||||
alias newsbeuter ansi-term newsbeuter newsbeuter
|
||||
alias d dired $1
|
||||
alias o find-file $1
|
||||
alias listen eshell-exec-visual mplayer http://usa7-vn.mixstream.net/listen/8248.pls
|
||||
alias ncmpcpp ansi-term ncmpcpp ncmpcpp
|
||||
alias sudo *sudo $*
|
||||
alias rm rm -v $*
|
||||
alias git git --no-pager $*
|
||||
19
emacs/.emacs.d/gtkrc
Normal file
19
emacs/.emacs.d/gtkrc
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
gtk-font-name = "Envy Code R 12"
|
||||
|
||||
style "yoshi"
|
||||
{
|
||||
bg[NORMAL] = "#111113"
|
||||
bg[SELECTED] = "#111113"
|
||||
bg[INSENSITIVE] = "#111113"
|
||||
bg[ACTIVE] = "#111113"
|
||||
bg[PRELIGHT] = "#4a5b73"
|
||||
|
||||
fg[NORMAL] = "#eeeeec"
|
||||
fg[SELECTED] = "#eeeeec"
|
||||
fg[INSENSITIVE] = "#a5a5a4"
|
||||
fg[ACTIVE] = "#eeeeec"
|
||||
fg[PRELIGHT] = "#eeeeec"
|
||||
}
|
||||
|
||||
widget "Emacs.*" style "yoshi"
|
||||
widget_class "*Menu*" style "yoshi"
|
||||
1492
emacs/.emacs.d/init.el
Normal file
1492
emacs/.emacs.d/init.el
Normal file
File diff suppressed because it is too large
Load diff
960
emacs/.emacs.d/init.org
Normal file
960
emacs/.emacs.d/init.org
Normal file
|
|
@ -0,0 +1,960 @@
|
|||
#+TITLE: Emacs init
|
||||
#+PROPERTY: tangle init2.el
|
||||
#+STARTUP: showall
|
||||
#+OPTIONS: author:nil num:nil toc:nil
|
||||
#+MACRO: key @@html:<kbd>$1</kbd>@@@@ascii:`$1'@@
|
||||
#+HTML_HEAD: <link href="https://ryuslash.org/org.css" rel="stylesheet" type="text/css">
|
||||
|
||||
* About this file
|
||||
|
||||
Inspired by such other projects as the literal Emacs init from [[http://sachac.github.io/.emacs.d/Sacha.html][Sacha
|
||||
Chua]] and also from [[http://www.wisdomandwonder.com/wordpress/wp-content/uploads/2014/03/C3F.html][Grant Rettke]], here is my Emacs initialization
|
||||
file.
|
||||
|
||||
*Note:* This is not my entire Emacs initialization file. It's a
|
||||
work-in-progress. To keep on top of any changes to this file, or any
|
||||
other part of my Emacs init, I recommend you follow [[http://code.ryuslash.org/dot/tom/emacs/][This project]]
|
||||
([[http://code.ryuslash.org/dot/tom/emacs/atom/?h=master][Atom feed]]), which is where I keep my configuration.
|
||||
|
||||
** Preparation
|
||||
|
||||
I could use org-babel to load this file, but I don't like my
|
||||
initialization file being dependent on too many things, especially
|
||||
big things, and org is a big thing. It may be strange for you to
|
||||
read this, as I have placed my entire Emacs configuration in an
|
||||
org-mode file, but here are the make targets I use to tangle and
|
||||
subsequently byte-compile my init file:
|
||||
|
||||
#+BEGIN_SRC makefile :tangle no
|
||||
%.elc: %.el
|
||||
emacs -Q -batch -eval "(byte-compile-file \"$<\")"
|
||||
|
||||
init.el: init.org
|
||||
emacs -Q -batch -l "ob-tangle" -eval "(org-babel-tangle-file \"init.org\")
|
||||
#+END_SRC
|
||||
|
||||
Executing the second target (either through make, or manually) will
|
||||
get you my Emacs initialization file in plain Emacs Lisp.
|
||||
|
||||
*Note:* If you look at this file in it's org-mode form you will
|
||||
notice that I actually tangle ~init.org~ into ~init2.el~. This is a
|
||||
temporary measure so that I can gradually move my configuration
|
||||
from my existing ~init.el~ file into ~init.org~ without much trouble.
|
||||
Once I've emptied out my ~init.el~ I will instruct babel to tangle
|
||||
into ~init.el~, this code already reflects that.
|
||||
|
||||
** The ~oni:~ prefix
|
||||
|
||||
To keep my functions and variables from ever accidentally
|
||||
interfering with other packages or Emacs internal variables I
|
||||
prefix all the functions I write and variables I declare with ~oni:~.
|
||||
You don't have to copy it if you copy anything from this file, as
|
||||
long as you do it consistently.
|
||||
|
||||
* Use lexical binding
|
||||
|
||||
For some of these functions, and general coolness, lexical binding
|
||||
is a must. Without it, closures cannot be made.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp :padline no
|
||||
;; -*- lexical-binding: t -*-
|
||||
#+END_SRC
|
||||
|
||||
* Set some personal information
|
||||
|
||||
This information is used by some emacs commands and modules to make
|
||||
your life easier.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq user-full-name "Tom Willemse"
|
||||
user-mail-address "tom@ryuslash.org")
|
||||
#+END_SRC
|
||||
|
||||
* Clean up some UI elements
|
||||
|
||||
Some elements are only really useful if you use the mouse. Which I
|
||||
don't, not if I can help it. Only when browsing the web or using the
|
||||
odd graphical application do I touch the mouse, and even then as
|
||||
little as I can.
|
||||
|
||||
** Menu bar
|
||||
|
||||
The menu bar is one of the UI elements which work best with mouses.
|
||||
Sure you can change your toolkit's key bindings to allow you to
|
||||
more easily navigate, but {{{key(M-x)}}} or {{{key(M-`)}}}[fn:1]
|
||||
are easier if you don't use the mouse. Long story short: It has got
|
||||
to go.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(menu-bar-mode -1)
|
||||
#+END_SRC
|
||||
|
||||
** Tool bar
|
||||
|
||||
The toolbar is another such thing, and it takes up quite a bit more
|
||||
space too. Icons can look pretty cool, but in the end if you're not
|
||||
going to click them they don't really server much of a purpose.
|
||||
Again: It has got to go.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(tool-bar-mode -1)
|
||||
#+END_SRC
|
||||
|
||||
** Blinking cursor
|
||||
|
||||
I suppose a blinking cursor doesn't get lost very easily. But on
|
||||
the other hand, it can induce quite a few more headaches.
|
||||
|
||||
I've noticed that I don't really lose my cursor position all that
|
||||
much, really, so there doesn't seem to be any point in making it
|
||||
blink. Here we go again: It has got to go.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(blink-cursor-mode -1)
|
||||
#+END_SRC
|
||||
|
||||
** Line numbers
|
||||
|
||||
As I'm currently using svg-mode-line-themes[fn:2] for my ~mode-line~ I
|
||||
don't need to show these. Also I didn't really use them much, I
|
||||
don't often need to know what line I'm on.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(line-number-mode -1)
|
||||
#+END_SRC
|
||||
|
||||
** Tooltips
|
||||
|
||||
Tooltips are another one of those UI elements that aren't quite
|
||||
keyboard-friendly. As usually this information is shown just as well
|
||||
in the echo area, this is not necessary.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(tooltip-mode -1)
|
||||
#+END_SRC
|
||||
|
||||
** Cursor type
|
||||
|
||||
I prefer using a bar as a cursor, as opposed to a box. Using a bar
|
||||
is a better way of representing the location of the cursor, in my
|
||||
opinion.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq-default cursor-type 'bar)
|
||||
#+END_SRC
|
||||
|
||||
** Cursors in inactive windows
|
||||
|
||||
I use a bar cursor that's already pretty thin, so having an even
|
||||
thinner one in inactive windows is not very clear. Even when I
|
||||
was using a box cursor I didn't like seeing a hollow box everywhere
|
||||
my focus /wasn't/.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq-default cursor-in-non-selected-windows nil)
|
||||
#+END_SRC
|
||||
|
||||
** Long lines
|
||||
|
||||
Sometimes, very long lines can't help but show up in code. The
|
||||
default of wrapping lines around to the next line and showing an
|
||||
image in the fringe is very visually disturbing to me when looking
|
||||
at code[fn:3]. So I prefer to have it just run off the screen.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq-default truncate-lines t)
|
||||
#+END_SRC
|
||||
|
||||
** The default frame
|
||||
|
||||
Usually, most of these settings would be done with functions like
|
||||
=set-frame-font= or =scroll-bar-mode=, but working with the Emacs
|
||||
Daemon sometimes creates extra complications, because you might
|
||||
start a graphical environment at some point (I usually do
|
||||
immediately), but the startup process isn't.
|
||||
|
||||
*** Internal border
|
||||
|
||||
Set the internal border width to 0. This makes a small difference,
|
||||
with my current setup it causes my window's width to increase from
|
||||
120 to 121. Small, I know, but I'm very greedy when it comes to
|
||||
screen space.
|
||||
|
||||
#+NAME: default-frame-internal-border
|
||||
#+BEGIN_SRC emacs-lisp :tangle no
|
||||
(internal-border-width . 0)
|
||||
#+END_SRC
|
||||
|
||||
*** A fantastic font
|
||||
|
||||
I've tried several fonts, and all of them were nice, but came up
|
||||
short on some way. Some didn't have italic variants, some had
|
||||
dotted zeroes instead of dashed zeroes, some even had entirely
|
||||
clear zeroes which make them look like ~O~'s, others had
|
||||
boring-looking parentheses[fn:4]. Not Fantasque Sans
|
||||
Mono[fn:5][fn:6], it is awesome. If your web browser supports web
|
||||
fonts you should also see it used in the code blocks here.
|
||||
|
||||
For normal Emacs setups you might use the =set-frame-font= function
|
||||
like so:
|
||||
|
||||
#+BEGIN_SRC emacs-lisp :tangle no
|
||||
(set-frame-font "Fantasque Sans Mono 13" nil t)
|
||||
#+END_SRC
|
||||
|
||||
However, this doesn't work when running Emacs as a Daemon. You
|
||||
could (especially with lexical binding) add an
|
||||
=after-make-frame-functions= hook or something similar, but I find
|
||||
it easier to just specify the font in the =default-frame-alist=.
|
||||
|
||||
#+NAME: default-frame-font
|
||||
#+BEGIN_SRC emacs-lisp :tangle no
|
||||
(font . "Fantasque Sans Mono:pixelsize=17")
|
||||
#+END_SRC
|
||||
|
||||
*** Scroll bar
|
||||
|
||||
The scroll-bar is almost just as informative as the current line
|
||||
number and buffer position information shown in the (my) mode
|
||||
line. As I don't usually need to know where I am, other than the
|
||||
current line number occasionally, and I don't use the mouse, the
|
||||
scroll bar doesn't add anything and only takes up space. Once
|
||||
more: It has got to go.
|
||||
|
||||
Normally you would use something along the lines of:
|
||||
|
||||
#+BEGIN_SRC emacs-lisp :tangle no
|
||||
(scroll-bar-mode -1)
|
||||
#+END_SRC
|
||||
|
||||
However, this doesn't work when running Emacs as a Daemon. So
|
||||
instead I specify it in the =default-frame-alist=.
|
||||
|
||||
#+NAME: default-frame-scroll-bar
|
||||
#+BEGIN_SRC emacs-lisp :tangle no
|
||||
(vertical-scroll-bars . nil)
|
||||
#+END_SRC
|
||||
|
||||
*** Setting the option
|
||||
|
||||
So I've explained the reasons for each individual setting, but to
|
||||
get them to work they have to be put in the =default-frame-alist=.
|
||||
Here is the final setting:
|
||||
|
||||
#+BEGIN_SRC emacs-lisp :noweb yes
|
||||
(setq default-frame-alist
|
||||
`(<<default-frame-internal-border>>
|
||||
<<default-frame-font>>
|
||||
<<default-frame-scroll-bar>>))
|
||||
#+END_SRC
|
||||
|
||||
** Frame title
|
||||
|
||||
Show the buffer name in the frame title to make multiple frames
|
||||
identifiable by the buffer they're showing.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq frame-title-format '(:eval (concat "GNU Emacs: " (buffer-name))))
|
||||
#+END_SRC
|
||||
|
||||
** Don't show dialog boxes
|
||||
|
||||
Unfortunately this doesn't remove /all/ dialog boxes, but at least it
|
||||
keeps some of them from popping up. According to the docstring it
|
||||
should only change anything for when the mouse is used, which I
|
||||
don't ever do, but I still feel safer keeping this in my
|
||||
configuration.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq use-dialog-box nil)
|
||||
#+END_SRC
|
||||
|
||||
** Split windows equally
|
||||
|
||||
When splitting windows, give them all an equal amount of space. For
|
||||
those very few time that I have more than two windows in my Emacs
|
||||
frame it is much nicer to have each of them get ~33% space instead
|
||||
of 50%, 25% and 25%. The way I have my desktop set-up I don't ever
|
||||
split my windows horizontally.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq window-combination-resize t)
|
||||
#+END_SRC
|
||||
|
||||
** Keep the cursor steady when scrolling
|
||||
|
||||
When scrolling through the buffer with, for example, {{{key(C-v)}}}
|
||||
or {{{key(M-v)}}}, I find it much more intuitive to have the cursor
|
||||
stay in the relative screen position from before. Otherwise I get
|
||||
confused every time.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq scroll-preserve-screen-position t)
|
||||
#+END_SRC
|
||||
|
||||
** Don't show a mode line for completions
|
||||
|
||||
One of the things I dislike about Emacs is its rigidity concerning
|
||||
windows and other UI elements. One very simple way to make it
|
||||
/feel/ less so is to show less of it where possible. A mode line for
|
||||
completion buffers creates more separation than necessary, and I
|
||||
can't recall a single time where I've used the completion's mode
|
||||
line for anything.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-hook 'completion-list-mode-hook
|
||||
(lambda () (setq mode-line-format nil)))
|
||||
#+END_SRC
|
||||
|
||||
* Add org-mode appointments to the diary
|
||||
|
||||
Diary offers reminders, which can be useful when scheduling
|
||||
appointments.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defadvice org-agenda-redo (after ext:org-agenda-redo-add-appts)
|
||||
"Pressing `r' on the agenda will also add appointments."
|
||||
(setq appt-time-msg-list nil)
|
||||
(org-agenda-to-appt))
|
||||
#+END_SRC
|
||||
|
||||
* Close ansi-term buffer after exit
|
||||
|
||||
After the ansi-term process ends it leaves a buffer. I don't use
|
||||
ansi term in such a way that this has ever been useful, so just kill
|
||||
the ansi-term buffer after the process quits, no matter the exit
|
||||
status. Usually this comes about when I press {{{kbd(C-d)}}} at the
|
||||
command prompt.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defadvice term-handle-exit (after oni:kill-buffer-after-exit activate)
|
||||
"Kill the term buffer if the process finished."
|
||||
(kill-buffer (current-buffer)))
|
||||
#+END_SRC
|
||||
|
||||
* Stumpwm integration
|
||||
|
||||
This variable, macro and function help with integrating Emacs and
|
||||
Stumpwm. They are used by some other functions to make the two seem
|
||||
extra connected.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar oni:stumpish-program
|
||||
(expand-file-name
|
||||
"~/.local/share/quicklisp/local-projects/stumpwm/contrib/util/stumpish/stumpish")
|
||||
"The location of the stumpish executable.")
|
||||
|
||||
(defmacro oni:stumpwm (&rest body)
|
||||
"Execute BODY in stumpwm."
|
||||
(declare (indent 0))
|
||||
`(call-process oni:stumpish-program nil nil nil
|
||||
,(format "eval '%S'" `(progn ,@body))))
|
||||
|
||||
(defun oni:stumpwm-command (cmd)
|
||||
"Execute CMD in stumpwm."
|
||||
(call-process oni:stumpish-program nil nil nil cmd))
|
||||
|
||||
(defun oni:stumpwm-echo (message)
|
||||
(call-process oni:stumpish-program nil nil nil (format "echo %s" message)))
|
||||
#+END_SRC
|
||||
|
||||
** Fall back on stumpwm when moving around
|
||||
|
||||
Using the function specified in [[Stumpwm integration]] wrap the
|
||||
=windmove-do-window-select= function and catch any error produced,
|
||||
hoping it's the error that there's no more window to move to and
|
||||
then request that stumpwm move the focus in the same direction as
|
||||
windmove would have.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defadvice windmove-do-window-select
|
||||
(around oni:windmove-stumpwm activate)
|
||||
"If no window can be moved to, move stumpwm."
|
||||
(condition-case err
|
||||
ad-do-it
|
||||
(error (oni:stumpwm-command
|
||||
(format "move-focus %s" (ad-get-arg 0))))))
|
||||
#+END_SRC
|
||||
|
||||
* Don't just quit Emacs with {{{key(C-x C-c)}}} in the daemon
|
||||
|
||||
When working with Emacs as a daemon, which I do almost all of the
|
||||
time, I prefer using {{{key(C-x C-c)}}} to close the current frame
|
||||
instead of the entire session. Before this change I would
|
||||
occasionally close my session by mistake.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun oni:close-client-window ()
|
||||
"Close a client's frames."
|
||||
(interactive)
|
||||
(server-save-buffers-kill-terminal nil))
|
||||
|
||||
(when (daemonp)
|
||||
(global-set-key (kbd "C-x C-c") 'oni:close-client-window))
|
||||
#+END_SRC
|
||||
|
||||
* Don't minimize the frame with {{{key(C-z)}}}
|
||||
|
||||
One of the more annoying things that can happen is accidentally
|
||||
minimizing the frame you're working with. This doesn't really matter
|
||||
if you're working on a normal stacking window manager, but with a
|
||||
tiling window manager and no task bar this just causes the Emacs
|
||||
frame to hang until it is refocused or disappear with no way to get
|
||||
it back.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(when (or window-system (daemonp))
|
||||
(global-unset-key (kbd "C-z")))
|
||||
#+END_SRC
|
||||
|
||||
* Use the right dictionary
|
||||
|
||||
One of the caveats of using two (or more) languages in a single
|
||||
installation of Gnus is that ispell sometimes gets confused. Having
|
||||
come across a stackoverflow question[fn:7] about just this subject
|
||||
it was easy to modify the source code posted there to come up with
|
||||
this.
|
||||
|
||||
*Note:* See my [[Function declarations][note]] on function declarations about the use of
|
||||
=declare-function=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(declare-function message-narrow-to-headers-or-head "message")
|
||||
(declare-function message-fetch-field "message")
|
||||
|
||||
(defun oni:switch-ispell-dictionary ()
|
||||
(save-excursion
|
||||
(message-narrow-to-headers-or-head)
|
||||
(let ((from (message-fetch-field "From")))
|
||||
(ispell-change-dictionary
|
||||
(if (string-match (rx "@aethon.nl>" eol) from) "nl" "en")))))
|
||||
|
||||
(add-hook 'message-setup-hook 'oni:switch-ispell-dictionary)
|
||||
#+END_SRC
|
||||
|
||||
* Don't let shr use background color
|
||||
|
||||
Reading mail in Gnus is very nice, but shr has become a little too
|
||||
good at its job. Add to this the many occasions when a background is
|
||||
specified without specifying a foreground, plus a color theme that
|
||||
is the inverse of what is usually expected, and you can get
|
||||
hard-to-read HTML messages, gray foreground and gray background.
|
||||
|
||||
I've looked at the other possible renderers, but they don't look
|
||||
very nice compared to shr. So just remove its ability to add
|
||||
background colors.
|
||||
|
||||
*Note:* See my [[Function declarations][note]] on function declarations about the use of
|
||||
=declare-function=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(declare-function shr-colorize-region "shr")
|
||||
|
||||
(defun oni:shr-colorize-remove-last-arg (args)
|
||||
"If ARGS has more than 3 items, remove the last one."
|
||||
(if (> (length args) 3)
|
||||
(butlast args)
|
||||
args))
|
||||
|
||||
(with-eval-after-load 'shr
|
||||
(advice-add #'shr-colorize-region :filter-args
|
||||
#'oni:shr-colorize-remove-last-arg))
|
||||
#+END_SRC
|
||||
|
||||
* Optimized ~with-eval-after-load~
|
||||
|
||||
First offered [[http://www.lunaryorn.com/2013/05/01/byte-compiling-eval-after-load.html][here]] and then later updated [[http://www.lunaryorn.com/2013/06/25/introducing-with-eval-after-load.html][here]] (when
|
||||
~with-eval-after-load~ was added). Makes for very nice on-demand
|
||||
settings loading.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
;; http://www.lunaryorn.com/2013/06/25/introducing-with-eval-after-load/
|
||||
(defmacro stante-after (feature &rest forms)
|
||||
"After FEATURE is loaded, evaluate FORMS.
|
||||
|
||||
FEATURE may be an unquoted feature symbol or a file name, see
|
||||
`eval-after-load'."
|
||||
(declare (indent 1) (debug t))
|
||||
`(,(if (or (not byte-compile-current-file)
|
||||
(if (symbolp feature)
|
||||
(require feature nil :noerror)
|
||||
(load feature :no-message :no-error)))
|
||||
`progn
|
||||
(message "stante-after: cannot find %s" feature)
|
||||
'with-no-warnings)
|
||||
(with-eval-after-load ',feature ,@forms)))
|
||||
#+END_SRC
|
||||
|
||||
* Remember SQL input
|
||||
|
||||
Remembering input between sessions is a good thing.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(stante-after sql
|
||||
(setf sql-input-ring-file-name
|
||||
(expand-file-name "~/.emacs.d/sqliinput")))
|
||||
#+END_SRC
|
||||
|
||||
* Lazily load some buffers
|
||||
|
||||
Don't load all buffers right away. Having a lot of buffers and
|
||||
switching between projects a lot can take up quite a bit of time.
|
||||
|
||||
*Note:* See my [[Vacuous defvar][note]] on vacuous defvar for this use of =defvar=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar desktop-restore-eager)
|
||||
(setq desktop-restore-eager 5)
|
||||
#+END_SRC
|
||||
|
||||
* Fix some term keybindings
|
||||
|
||||
=ansi-term= passes along a lot of characters correctly, but things
|
||||
like =forward-delete-word= are not, by default. This is confusing when
|
||||
you see one thing and another is sent. Passing the correct keys
|
||||
directly to the terminal fixes this problem.
|
||||
|
||||
*Note:* See my [[Vacuous defvar][note]] on vacuous defvar for this use of =defvar=.
|
||||
|
||||
*Note:* See my [[Function declarations][note]] on function declarations about the use of
|
||||
=declare-function=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar term-raw-map)
|
||||
(declare-function term-send-raw-string "term")
|
||||
|
||||
(defun oni:set-term-keys ()
|
||||
(cl-flet ((zcommand (key)
|
||||
(lambda ()
|
||||
(interactive) (term-send-raw-string key))))
|
||||
(define-key term-raw-map
|
||||
(kbd "C-<backspace>") (zcommand "\C-H"))))
|
||||
|
||||
(add-hook 'term-mode-hook #'oni:set-term-keys)
|
||||
#+END_SRC
|
||||
|
||||
* Ask for a ~y~ or ~n~, not ~yes~ or ~no~.
|
||||
|
||||
Emacs starts out asking for you to type ~yes~ or ~no~ with most
|
||||
important questions. It is possible that this is used for such
|
||||
important questions where accidentally saying ~yes~ when you meant ~no~
|
||||
would be catastrophic (or at least could be). However, I've never
|
||||
(so far) had this problem, and I find it quite tedious to have to
|
||||
write out ~yes~ or ~no~ and then press {{{kbd(RET)}}}, give me a simple
|
||||
~y~ or ~n~ with no {{{kdb(RET)}}} required and I'm quite happy.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defalias 'yes-or-no-p 'y-or-n-p)
|
||||
#+END_SRC
|
||||
|
||||
* Use =hippie-expand=, not =dabbrev-expand=
|
||||
|
||||
I've never actually used =dabbrev-expand=, and only rarely use
|
||||
=hippie-expand= really, but since =hippie-expand= also includes a
|
||||
=dabbrev= expander and a lot more than just that, it seems alright to
|
||||
do this.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defalias 'dabbrev-expand 'hippie-expand)
|
||||
#+END_SRC
|
||||
|
||||
* Setting up =load-path=
|
||||
|
||||
First, to help, I create a function that takes a path, adds it to
|
||||
=load-path= and then checks to see if there is a file named
|
||||
~loaddefs.el~ in the given path. If there is, it loads it. This
|
||||
~loaddefs.el~ file is something that is created from autoload cookies
|
||||
in the files in some of these paths.
|
||||
|
||||
Since the =load-path= is also important during byte-compilation, this
|
||||
function should be defined both at run-time and compile-time.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(eval-and-compile
|
||||
(defun oni:loadpath-add-and-autoload (path)
|
||||
"Add PATH to `load-path' and load a `loaddefs.el' if it exists."
|
||||
(add-to-list 'load-path path)
|
||||
(let ((loaddefs (concat path "/loaddefs.el")))
|
||||
(when (file-exists-p loaddefs)
|
||||
(load loaddefs)))))
|
||||
#+END_SRC
|
||||
|
||||
After that I add some directories to my =load-path= so I can use these
|
||||
libraries when wanted. One of these is the ~site-lisp~ directory in my
|
||||
~.emacs.d~ directory, which is where I keep most of my personal
|
||||
non-ELPA modules (like module-specific initialization files). There
|
||||
are also some directories I include in ~vendor-lisp~, which is where I
|
||||
keep modules that I didn't write myself and, for some reason, can't
|
||||
or don't want to use ELPA for. Again it is important to realize that
|
||||
this information is relevant both at run-time and compile-time, so
|
||||
we wrap it with an =eval-and-compile=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(eval-and-compile
|
||||
(mapc #'oni:loadpath-add-and-autoload
|
||||
'("~/.emacs.d/site-lisp"
|
||||
"~/.emacs.d/vendor-lisp/mozrepl"
|
||||
"~/.emacs.d/vendor-lisp/eap" "/usr/share/emacs/site-lisp"
|
||||
"/usr/lib/node_modules/tern/emacs/"
|
||||
"~/.emacs.d/vendor-lisp/habitrpg.el")))
|
||||
#+END_SRC
|
||||
|
||||
* Some unconditional settings
|
||||
|
||||
Here are some settings that either need to be changed before certain
|
||||
modules load, or that don't belong in any specific module.
|
||||
|
||||
** Gnus init file
|
||||
|
||||
I put my gnus initialization file right where I put all my
|
||||
module-specific initialization files. Gnus is special, though: It
|
||||
loads the file every time you start it. That keeps it from using a
|
||||
simple =(eval-after-load 'gnus '(load "gnus-init"))=.
|
||||
|
||||
*Note:* See my [[Vacuous defvar][note]] on vacuous defvar for this use of =defvar=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar gnus-init-file)
|
||||
(setq gnus-init-file "~/.emacs.d/site-lisp/gnus-init")
|
||||
#+END_SRC
|
||||
|
||||
** Turn off bidirectional text
|
||||
|
||||
To speed things up a little, and because I have no contacts at all
|
||||
(so far) who use right-to-left text, there is no reason for me to
|
||||
use bidirectional text. For this reason I tell Emacs to always use
|
||||
left-to-right by default, instead of checking each paragraph.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq-default bidi-paragraph-direction 'left-to-right)
|
||||
#+END_SRC
|
||||
|
||||
** Don't use tabs
|
||||
|
||||
There is a war going on out there. Actually there are several, but
|
||||
the one I'm talking about here is the one about tabs vs. spaces. I
|
||||
have been deeply entrenched in the spaces camp for quite a while.
|
||||
Indentation always gets screwy for me if I don't use the exact same
|
||||
=tab-width= everyone else uses. I just like the consistency of using
|
||||
spaces.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq-default indent-tabs-mode nil)
|
||||
#+END_SRC
|
||||
|
||||
** Use four spaces for indentation
|
||||
|
||||
I once, long ago, started out with using eight spaces for each
|
||||
level of indentation. Although I think, technically, I was using
|
||||
tabs. This means that even just 3 levels of indentation take up a
|
||||
/huge/ amount of space that can't be used for anything else. Since I
|
||||
also try to limit the length of the lines in my code, this can make
|
||||
for very little code per line.
|
||||
|
||||
I also tried (and enjoyed) two spaces, but after a while, looking
|
||||
at bigger files, I noticed that it all becomes a blur. Two spaces
|
||||
is not a big-enough visual difference to make code read nicely, in
|
||||
my opinion.
|
||||
|
||||
So far, I have quite enjoyed four spaces for most code[fn:8].
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq-default tab-width 4)
|
||||
#+END_SRC
|
||||
|
||||
** Keep the message buffer from growing too large
|
||||
|
||||
Keep at most one-thousand messages in the ~*Messages*~ buffer. I can
|
||||
leave my Emacs session running for quite long times, sometimes
|
||||
days, at a time. If there are a lot of messages it can get a little
|
||||
tricky to manage/search.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq message-log-max 1000)
|
||||
#+END_SRC
|
||||
|
||||
** Don't start =elnode= when Emacs starts
|
||||
|
||||
Elnode is an awesome project and I'm still looking for a moment
|
||||
where I have the inspiration and time to actually do something with
|
||||
it. I started at some point, but then I couldn't get the cookies to
|
||||
work and I switched over to using Common Lisp, only to eventually
|
||||
stop developing the project because there was not chance of it
|
||||
seeing any use in the foreseeable future.
|
||||
|
||||
There is one little annoyance, though, and that is the fact that
|
||||
elnode will start itself up when Emacs starts. I don't want that.
|
||||
|
||||
This bit of code can't be put in an =eval-after-load= or anything
|
||||
like that because by the time it would be evaluated, elnode would
|
||||
already have started.
|
||||
|
||||
*Note:* See my [[Vacuous defvar][note]] on vacuous defvar for this use of =defvar=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar elnode-do-init)
|
||||
(setq elnode-do-init nil)
|
||||
#+END_SRC
|
||||
|
||||
* Show python package name instead of file name
|
||||
|
||||
When working with python, knowing which package I'm in usually tells
|
||||
me more about what I'm doing than the file name, especially when
|
||||
working with django where almost every app will have a ~tests.py~ and
|
||||
a ~models.py~. Of course =uniquify= fixes this pretty well too, though
|
||||
in this case, it's less cool (imo).
|
||||
|
||||
First we define two functions that help us determine the package
|
||||
name of the current file and the parent package name of the current
|
||||
file. Finally we define a third function which determines the full
|
||||
package name of the current buffer.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun oni:python--get-current-module-name ()
|
||||
"Get the name of the current python module.
|
||||
|
||||
This is very simply just the filename of the current buffer with
|
||||
the extension and pyath removed."
|
||||
(file-name-sans-extension
|
||||
(file-name-nondirectory (buffer-file-name))))
|
||||
|
||||
(defun oni:python--get-parent-module-name (&optional dir)
|
||||
"This gets the currend file's parent module.
|
||||
|
||||
This function recursively gathers the parent package name of
|
||||
either DIR or the current buffer's file name. Any directory where
|
||||
an `__init__.py' file is found is considered to be a package.
|
||||
|
||||
This function returns either the parent package, with its
|
||||
parents, or nil if the current directory isn't a python
|
||||
package.."
|
||||
(let* ((base (directory-file-name
|
||||
(file-name-directory (or dir (buffer-file-name)))))
|
||||
(package (file-name-nondirectory base)))
|
||||
(if (file-exists-p (concat base "/__init__.py"))
|
||||
(let ((parent (oni:python--get-parent-module-name base)))
|
||||
(if parent
|
||||
(concat parent "." package)
|
||||
package))
|
||||
nil)))
|
||||
|
||||
(defun oni:python-package-name ()
|
||||
(let ((current-module (oni:python--get-current-module-name)))
|
||||
(if (file-exists-p "__init__.py")
|
||||
(concat (oni:python--get-parent-module-name)
|
||||
"." current-module)
|
||||
current-module)))
|
||||
#+END_SRC
|
||||
|
||||
After all this we make Emacs show the package name rather than the
|
||||
file name in the mode-line.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun oni:python-package-buffer-identification ()
|
||||
"Have `mode-line-buffer-identification' show the python package name."
|
||||
(setq mode-line-buffer-identification
|
||||
'(:eval (oni:python-package-name))))
|
||||
|
||||
(add-hook 'python-mode-hook #'oni:python-package-buffer-identification)
|
||||
#+END_SRC
|
||||
|
||||
* Add some known symbols for .conkerorrc/init.js to js2-mode
|
||||
|
||||
Conkeror has a lot of functions, and I don't like seeing them all as
|
||||
unknowns. So add them to known symbols.
|
||||
|
||||
*Note:* See my [[Vacuous defvar][note]] on vacuous defvar for this use of =defvar=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar js2-additional-externs)
|
||||
|
||||
(defun oni:js2-add-conkeror-symbols ()
|
||||
"Add known/used conkeror symbols to additional externs."
|
||||
(when (string-suffix-p ".conkerorrc/init.js" (buffer-file-name))
|
||||
(setq js2-additional-externs
|
||||
'( ;; Functions
|
||||
"add_hook" "check_buffer" "co_return" "content_buffer"
|
||||
"define_browser_object_class" "define_key" "define_webjump"
|
||||
"dumpln" "get_current_profile" "get_home_directory"
|
||||
"get_recent_conkeror_window"
|
||||
"hints_minibuffer_annotation_mode" "interactive" "load_spec"
|
||||
"load_spec_uri_string" "load_url_in_new_buffer" "make_file"
|
||||
"make_uri" "mode_line_adder"
|
||||
"open_download_buffer_automatically" "prefix_completer"
|
||||
"read_browser_object" "register_user_stylesheet"
|
||||
"remove_hook" "require" "send_http_request" "session_pref"
|
||||
"shell_command_blind" "theme_load"
|
||||
;; Variables
|
||||
"Cc" "Ci" "browser_object_history_url" "browser_object_links"
|
||||
"buffer_count_widget" "buffer_icon_widget" "content_buffer"
|
||||
"content_buffer_form_keymap" "content_buffer_normal_keymap"
|
||||
"content_buffer_text_keymap" "content_policy_accept"
|
||||
"content_policy_bytype" "content_policy_reject" "cwd"
|
||||
"default_base_keymap" "default_global_keymap"
|
||||
"downloads_status_widget" "external_content_handlers"
|
||||
"hint_digits" "load_paths" "read_buffer_show_icons"
|
||||
"read_url_handler_list" "session_auto_save_auto_load"
|
||||
"theme_load_paths" "title_format_fn" "url_remoting_fn"
|
||||
;; Keyword argument
|
||||
"$alternative" "$browser_object" "$completer" "$completions"
|
||||
"$initial_value" "$options" "$prompt" "$sort_order"
|
||||
"$use_bookmarks" "$use_history" "$use_webjumps"))))
|
||||
|
||||
(add-hook 'js2-init-hook #'oni:js2-add-conkeror-symbols)
|
||||
#+END_SRC
|
||||
|
||||
* Teach eww about <code> tags
|
||||
|
||||
Strangely enough, ~eww~ doesn't seem to be aware of =<code>= HTML tags.
|
||||
Luckily it's trivial to teach it. It does know about =<pre>= HTML
|
||||
tags, and basically I just want =<code>= tags to be treated almost as
|
||||
=<pre>= tags, so to do that we just have to define a =shr-tag-code=
|
||||
function. I've copied the =shr-tag-pre= function and removed the calls
|
||||
to =ensure-newline=, because =<code>= tags are inline tags.
|
||||
|
||||
In order to remain a little future-proof, it should only be done if
|
||||
it doesn't already exist.
|
||||
|
||||
*Note:* See my [[Vacuous defvar][note]] on vacuous defvar for this use of =defvar=.
|
||||
|
||||
*Note:* See my [[Function declarations][note]] on function declarations about the use of
|
||||
=declare-function=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar shr-folding-mode)
|
||||
(declare-function shr-indent "shr")
|
||||
(declare-function shr-generic "shr")
|
||||
|
||||
(with-eval-after-load 'shr
|
||||
(unless (fboundp 'shr-tag-code)
|
||||
(defun shr-tag-code (cont)
|
||||
(let ((shr-folding-mode 'none))
|
||||
(shr-indent)
|
||||
(shr-generic cont)))))
|
||||
#+END_SRC
|
||||
|
||||
* Use scheme-mode for scsh interpreted files
|
||||
|
||||
Set the major mode for files interpreted by scsh (for example, by
|
||||
having ~#!/usr/local/bin/scsh~ at the top) to use =scheme-mode=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-to-list 'interpreter-mode-alist '("scsh" . scheme-mode))
|
||||
#+END_SRC
|
||||
|
||||
* Set default scheme implementation
|
||||
|
||||
Set the default implementation for geiser to guile so it doesn't ask
|
||||
which implementation to use every time.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar geiser-default-implementation)
|
||||
|
||||
(with-eval-after-load 'geiser
|
||||
(setq geiser-default-implementation 'guile))
|
||||
#+END_SRC
|
||||
|
||||
* Setup eww-lnum
|
||||
|
||||
As recommended in the [[https://github.com/m00natic/eww-lnum][README]], set the keys in the =eww-mode-map=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar eww-mode-map)
|
||||
|
||||
(with-eval-after-load 'eww
|
||||
(define-key eww-mode-map "f" 'eww-lnum-follow)
|
||||
(define-key eww-mode-map "F" 'eww-lnum-universal))
|
||||
#+END_SRC
|
||||
|
||||
* Don't compile scss files
|
||||
|
||||
By default =scss-mode= tries compiling a file each time it's saved. I
|
||||
don't have SCSS properly installed globally so this always fails,
|
||||
highly annoying.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar scss-compile-at-save)
|
||||
|
||||
(with-eval-after-load 'scss-mode
|
||||
(setq scss-compile-at-save nil))
|
||||
#+END_SRC
|
||||
|
||||
* Change listings in dired
|
||||
|
||||
The number of bytes a file is doesn't usually tell me much when it's
|
||||
something like ~292837~. I prefer seeing just how many Kb or Mb a
|
||||
certain file is. I also don't need to see the ~.~ and ~..~ directories
|
||||
when I insert directories into the current dired buffer, as there is
|
||||
a great chance that the current and parent directory are already
|
||||
shown in the buffer.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar dired-subdir-switches)
|
||||
|
||||
(with-eval-after-load 'dired
|
||||
(setq dired-listing-switches "-alh"
|
||||
dired-subdir-switches "-Alh"))
|
||||
#+END_SRC
|
||||
|
||||
* Load custom file
|
||||
|
||||
I don't really use the Emacs customization interface much, but I
|
||||
have used it as a kind-of persistent datastore, specifically for
|
||||
desktop-registry[fn:9]. I do very much like the idea of it, it's a
|
||||
very cool thing to have. I also use ~custom.el~ for storing some
|
||||
things that I really can't store in a public viewing location like
|
||||
this file or the git repository it lives in.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq custom-file "~/.emacs.d/custom.el")
|
||||
(load custom-file)
|
||||
#+END_SRC
|
||||
|
||||
* Notes
|
||||
|
||||
Here are some random or somewhat general notes about things you may
|
||||
run into when looking through my Emacs init.
|
||||
|
||||
** Vacuous defvar
|
||||
|
||||
A =defvar= without a value like =(defvar some-variable)= tells the
|
||||
byte-compiler that the variable will appear, but doesn't give it a
|
||||
value. It should only count for the file where it is used and once
|
||||
the file with the /actual/ =defvar= is loaded it will be populated with
|
||||
its value, contrary to what would happen if you'd given it a value
|
||||
before loading its original file.
|
||||
|
||||
** Function declarations
|
||||
|
||||
The function =declare-function= tells the byte-compiler where to find
|
||||
a certain function. This keeps the byte-compiler from complaining
|
||||
about certain functions possibly not being defined at run-time.
|
||||
|
||||
* Footnotes
|
||||
|
||||
[fn:1] This runs =tmm-menubar=, which lets you navigate the menubar in a
|
||||
text-driven way. I don't ever use it because I know what all my
|
||||
favorite functions are called, but it seems a great deal more
|
||||
efficient than having to click on everything.
|
||||
|
||||
[fn:2] https://github.com/sabof/svg-mode-line-themes
|
||||
|
||||
[fn:3] It works fine for me with something like jabber chats and the
|
||||
like.
|
||||
|
||||
[fn:4] I like to program in Lisp, parentheses are important to me!
|
||||
Parentheses should be nice and round, not almost like bars!
|
||||
|
||||
[fn:5] https://github.com/belluzj/fantasque-sans
|
||||
|
||||
[fn:6] Used to be Cosmic Sans Neue Mono, the name changed because
|
||||
people misread it as "Comic" (me included, which was the original
|
||||
reason I checked it out, for laughs) and hate Comic Sans, and also
|
||||
because there was already a Cosmic Sans font as well, which could
|
||||
cause confusion.
|
||||
|
||||
[fn:7] http://stackoverflow.com/questions/22175214/automatically-switch-language-in-gnus-depending-on-recipient
|
||||
|
||||
[fn:8] I still use 2 spaces for some languages, like HTML.
|
||||
|
||||
[fn:9] http://code.ryuslash.org/desktop-registry/about/
|
||||
13
emacs/.emacs.d/project.el
Normal file
13
emacs/.emacs.d/project.el
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
(require 'ox-publish)
|
||||
|
||||
(setq org-publish-use-timestamps-flag nil
|
||||
org-html-htmlize-output-type 'css
|
||||
org-publish-project-alist
|
||||
'(("org"
|
||||
:base-directory "./"
|
||||
:publishing-directory "_publish/"
|
||||
:recursive nil
|
||||
:base-extension "org"
|
||||
:publishing-function org-html-publish-to-html
|
||||
:html-doctype "<!DOCTYPE html>"
|
||||
:html-link-home "https://ryuslash.org")))
|
||||
1
emacs/.emacs.d/site-lisp/.gitignore
vendored
Normal file
1
emacs/.emacs.d/site-lisp/.gitignore
vendored
Normal file
|
|
@ -0,0 +1 @@
|
|||
rudel/
|
||||
5
emacs/.emacs.d/site-lisp/Makefile
Normal file
5
emacs/.emacs.d/site-lisp/Makefile
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
.PHONY: all
|
||||
all: appt-init.elc jabber-init.elc org-init.elc gnus-init.elc
|
||||
|
||||
%.elc: %.el
|
||||
emacs -Q -batch -eval "(byte-compile-file \"$<\")"
|
||||
46
emacs/.emacs.d/site-lisp/appt-init.el
Normal file
46
emacs/.emacs.d/site-lisp/appt-init.el
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
;;; appt-init.el --- Initialization for appt -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 2014 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <tom@ryuslash.org>
|
||||
;; Keywords:
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Initialization code for the `appt' library, should get loaded when
|
||||
;; `appt' is.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'appt)
|
||||
|
||||
(autoload 'jabber-send-message "jabber-chat")
|
||||
(defvar jabber-connections)
|
||||
|
||||
(defun oni:appt-display-window-and-jabber (min-to-app new-time appt-msg)
|
||||
"Send a message to my phone jabber account."
|
||||
(let ((fmt "%s%s (in %s minutes)"))
|
||||
(jabber-send-message
|
||||
(car jabber-connections) "phone@ryuslash.org" nil
|
||||
(format fmt new-time appt-msg min-to-app) nil))
|
||||
(appt-disp-window min-to-app new-time appt-msg))
|
||||
|
||||
(setq appt-disp-window-function #'oni:appt-display-window-and-jabber
|
||||
appt-display-diary nil)
|
||||
|
||||
|
||||
(provide 'appt-init)
|
||||
;;; appt-init.el ends here
|
||||
35
emacs/.emacs.d/site-lisp/avandu-init.el
Normal file
35
emacs/.emacs.d/site-lisp/avandu-init.el
Normal file
|
|
@ -0,0 +1,35 @@
|
|||
;;; avandu-init.el --- Initialization for avandu -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 2014 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <tom@ryuslash.org>
|
||||
;; Keywords:
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Initialization code for the `avandu' library, should get loaded
|
||||
;; when `avandu' is.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'avandu)
|
||||
|
||||
(setq avandu-user "admin"
|
||||
avandu-tt-rss-api-url "https://ryuslash.org/tt-rss/api/"
|
||||
avandu-html2text-command #'shr-render-region)
|
||||
|
||||
(provide 'avandu-init)
|
||||
;;; avandu-init.el ends here
|
||||
8
emacs/.emacs.d/site-lisp/drd.el
Normal file
8
emacs/.emacs.d/site-lisp/drd.el
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
(let ((quicklisp-slime-directory
|
||||
"~/.local/share/quicklisp/local-projects/slime/"))
|
||||
(add-to-list 'load-path quicklisp-slime-directory)
|
||||
(require 'slime-autoloads)
|
||||
(setq slime-backend (expand-file-name "swank-loader.lisp"
|
||||
quicklisp-slime-directory)
|
||||
slime-path quicklisp-slime-directory)
|
||||
(slime-setup '(slime-fancy)))
|
||||
86
emacs/.emacs.d/site-lisp/dzen.el
Normal file
86
emacs/.emacs.d/site-lisp/dzen.el
Normal file
|
|
@ -0,0 +1,86 @@
|
|||
;;; dzen.el --- Control DZEN2 from emacs
|
||||
|
||||
;; Copyright (C) 2012 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <slash@drd>
|
||||
;; Keywords: convenience
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'newst-backend)
|
||||
(require 'sawfish)
|
||||
|
||||
(defvar dzen-process nil
|
||||
"Dzen2's process.")
|
||||
|
||||
(defvar dzen-timer nil
|
||||
"Timer used to update the dzen line.")
|
||||
|
||||
(defun get-mail-count (account)
|
||||
(length (directory-files (concat "/home/slash/documents/mail/"
|
||||
account "/inbox/new") nil "^[^.]")))
|
||||
|
||||
(defun dzen-update ()
|
||||
(let ((strl "")
|
||||
(strc (if (boundp 'metal-express-radio-currently-playing)
|
||||
metal-express-radio-currently-playing
|
||||
""))
|
||||
(strr (format
|
||||
"jabber: %s ryu: %d gm: %d aet: %d 9n: %d rss: %d\n"
|
||||
(oni:current-jabber-status)
|
||||
(get-mail-count "ryuslash.org")
|
||||
(get-mail-count "gmail")
|
||||
(get-mail-count "aethon")
|
||||
(get-mail-count "ninthfloor")
|
||||
(newsticker--stat-num-items-total 'new))))
|
||||
(process-send-string
|
||||
"dzen2" (format "%s^p(_CENTER)^p(-%d)%s^p(_RIGHT)^p(-%d)%s"
|
||||
strl
|
||||
(* (floor (/ (length strc) 2)) 8) strc
|
||||
(+ 8 (* 8 (length strr))) strr))))
|
||||
|
||||
(defun dzen-start ()
|
||||
(interactive)
|
||||
(if (or (null dzen-process) (not (process-live-p dzen-process)))
|
||||
(progn
|
||||
(setq dzen-process
|
||||
(start-process "dzen2" "*dzen2*" "dzen2"
|
||||
"-w" "1920"
|
||||
"-fn" "Monaco-10"
|
||||
"-bg" "#222224"
|
||||
"-fg" "#eeeeec"
|
||||
"-y" "1060"))
|
||||
(dzen-update)
|
||||
(setq dzen-timer (run-with-timer 1 1 #'dzen-update)))
|
||||
(message "Dzen2 already running")))
|
||||
|
||||
(defun dzen-stop ()
|
||||
(interactive)
|
||||
(if (and dzen-process (process-live-p dzen-process))
|
||||
(progn
|
||||
(when dzen-timer
|
||||
(cancel-timer dzen-timer))
|
||||
(kill-process "dzen2"))
|
||||
(message "Dzen2 is not running"))
|
||||
(setq dzen-process nil
|
||||
dzen-timer nil))
|
||||
|
||||
(provide 'dzen)
|
||||
;;; dzen.el ends here
|
||||
266
emacs/.emacs.d/site-lisp/eltuki.el
Normal file
266
emacs/.emacs.d/site-lisp/eltuki.el
Normal file
|
|
@ -0,0 +1,266 @@
|
|||
;;; eltuki.el --- Tekuti functions
|
||||
|
||||
;; Copyright (C) 2012 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <slash@drd>
|
||||
;; Keywords: convenience
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Tekuti functions.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'org)
|
||||
|
||||
(defgroup eltuki
|
||||
nil
|
||||
"tekuti functions in Emacs."
|
||||
:group 'external)
|
||||
|
||||
(defcustom eltuki-blog-dir "~/blog"
|
||||
"Plain blog post directory, not the git repository."
|
||||
:group 'eltuki
|
||||
:type 'string)
|
||||
|
||||
(defcustom eltuki-default-status "publish"
|
||||
"Default status to use when status is unknown."
|
||||
:group 'eltuki
|
||||
:type 'string)
|
||||
|
||||
(defcustom eltuki-default-comment-status "open"
|
||||
"Default status for comments."
|
||||
:group 'eltuki
|
||||
:type 'string)
|
||||
|
||||
(define-skeleton eltuki-post
|
||||
"Create a post template for eltuki."
|
||||
""
|
||||
"#+TITLE: " (skeleton-read "Title: ") "\n"
|
||||
"#+TIMESTAMP: \n"
|
||||
"#+TAGS: " (skeleton-read "Tags (comma separated): ") "\n"
|
||||
"\n"
|
||||
_)
|
||||
|
||||
(defun eltuki-new-post ()
|
||||
(interactive)
|
||||
(switch-to-buffer (get-buffer-create "*eltuki*"))
|
||||
(org-mode)
|
||||
(eltuki-post))
|
||||
|
||||
(defun eltuki-get-title ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^#\\+TITLE: \\(.*\\)$" nil t)
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 1) (match-end 1))
|
||||
(error "Post has no title."))))
|
||||
|
||||
(defun eltuki-set-title (title)
|
||||
(interactive "MTitle: ")
|
||||
(setq title (concat " " title))
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^#\\+TITLE:\\(.*\\)$" nil t)
|
||||
(replace-match title t t nil 1)
|
||||
(insert "#+TITLE:" title "\n")
|
||||
(unless (= (char-after) ?\n)
|
||||
(insert-char ?\n)))))
|
||||
|
||||
(defun eltuki-get-timestamp ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^#\\+TIMESTAMP: \\([[:digit:]]+\\)$" nil t)
|
||||
(match-string 1)
|
||||
(format-time-string "%s"))))
|
||||
|
||||
(defun eltuki-set-timestamp ()
|
||||
(interactive)
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(let ((newtime (format-time-string " %s")))
|
||||
(if (re-search-forward "^#\\+TIMESTAMP:\\(.*\\)$" nil t)
|
||||
(replace-match newtime nil t nil 1)
|
||||
(when (search-forward "\n\n" nil t)
|
||||
(backward-char))
|
||||
(insert "#+TIMESTAMP:" newtime "\n")))))
|
||||
|
||||
(defun eltuki-get-tags ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(when (re-search-forward "^#\\+TAGS: \\(.*\\)$" nil t)
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 1) (match-end 1)))))
|
||||
|
||||
(defun eltuki-set-tags (tags)
|
||||
(interactive "MTags: ")
|
||||
(setq tags (concat " " tags))
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^#\\+TAGS:\\(.*\\)$" nil t)
|
||||
(replace-match tags t t nil 1)
|
||||
(when (search-forward "\n\n" nil t)
|
||||
(backward-char))
|
||||
(insert "#+TAGS:" tags "\n"))))
|
||||
|
||||
(defun eltuki-get-status ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^#\\+STATUS: \\(draft\\|publish\\)$" nil t)
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 1) (match-end 1))
|
||||
eltuki-default-status)))
|
||||
|
||||
(defun eltuki-toggle-status ()
|
||||
(interactive)
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(let ((newstatus (if (string= (eltuki-get-status) "draft")
|
||||
" publish"
|
||||
" draft")))
|
||||
(if (re-search-forward "^#\\+STATUS:\\(.*\\)$" nil t)
|
||||
(replace-match newstatus t t nil 1)
|
||||
(when (search-forward "\n\n" nil t)
|
||||
(backward-char))
|
||||
(insert "#+STATUS:" newstatus "\n")))))
|
||||
|
||||
(defun eltuki-get-comment-status ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward
|
||||
"^#\\+COMMENTSTATUS: \\(open\\|closed\\)$" nil t)
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 1) (match-end 1))
|
||||
eltuki-default-comment-status)))
|
||||
|
||||
(defun eltuki-toggle-comment-status ()
|
||||
(interactive)
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(let ((newstatus (if (string= (eltuki-get-comment-status) "closed")
|
||||
" open"
|
||||
" closed")))
|
||||
(if (re-search-forward "^#\\+COMMENTSTATUS:\\(.*\\)$" nil t)
|
||||
(replace-match newstatus t t nil 1)
|
||||
(when (search-forward "\n\n" nil t)
|
||||
(backward-char))
|
||||
(insert "#+COMMENTSTATUS:" newstatus "\n")))))
|
||||
|
||||
(defun eltuki-slugify-string (str)
|
||||
(while (string-match "[^a-zA-Z0-9 ]+" str)
|
||||
(setq str (replace-match "" nil t str)))
|
||||
(while (string-match " +" str)
|
||||
(setq str (replace-match "-" nil t str)))
|
||||
(downcase str))
|
||||
|
||||
(defun eltuki-get-directory ()
|
||||
(concat
|
||||
eltuki-blog-dir "/"
|
||||
(format-time-string "%Y%%2f%m%%2f%d%%2f")
|
||||
(eltuki-slugify-string (eltuki-get-title))))
|
||||
|
||||
(defun eltuki-write-content (dir)
|
||||
(let ((org-export-with-toc nil)
|
||||
(org-export-with-section-numbers nil)
|
||||
(filename (concat dir "/content"))
|
||||
(org-export-show-temporary-export-buffer nil))
|
||||
(org-html-export-as-html nil nil nil t)
|
||||
(with-current-buffer "*Org HTML Export*"
|
||||
(write-region (point-min) (point-max) filename)
|
||||
(kill-buffer))
|
||||
filename))
|
||||
|
||||
(defun eltuki-write-metadata (dir)
|
||||
(let ((timestamp (eltuki-get-timestamp))
|
||||
(tags (eltuki-get-tags))
|
||||
(status (eltuki-get-status))
|
||||
(title (eltuki-get-title))
|
||||
(name (eltuki-slugify-string (eltuki-get-title)))
|
||||
(commentstatus (eltuki-get-comment-status))
|
||||
(filename (concat dir "/metadata")))
|
||||
(with-temp-buffer
|
||||
(insert "timestamp: " timestamp "\n"
|
||||
"tags: " tags "\n"
|
||||
"status: " status "\n"
|
||||
"title: " title "\n"
|
||||
"name: " name "\n"
|
||||
"comment_status: " commentstatus)
|
||||
(write-region (point-min) (point-max) filename))
|
||||
filename))
|
||||
|
||||
(defun eltuki-save-org (buffer dir)
|
||||
(let ((filename (concat dir "/post.org")))
|
||||
(with-current-buffer buffer
|
||||
(write-file filename))
|
||||
filename))
|
||||
|
||||
(defun eltuki-git-add (file)
|
||||
(shell-command (concat "cd " eltuki-blog-dir "; git add '" (expand-file-name file) "'")))
|
||||
|
||||
(defun eltuki-commit ()
|
||||
(shell-command (concat "cd " eltuki-blog-dir "; git commit -m \"new post: \\\"" (eltuki-get-title)
|
||||
"\\\"\"")))
|
||||
|
||||
(defun eltuki-finish ()
|
||||
(interactive)
|
||||
(let ((buffer (or (get-buffer "*eltuki*")
|
||||
(current-buffer)))
|
||||
(dest (eltuki-get-directory)))
|
||||
(unless (file-exists-p dest)
|
||||
(mkdir dest))
|
||||
|
||||
(mapc #'eltuki-git-add
|
||||
(list (eltuki-write-content dest)
|
||||
(eltuki-write-metadata dest)
|
||||
(eltuki-save-org buffer dest)))
|
||||
|
||||
(eltuki-commit)
|
||||
(kill-buffer buffer)))
|
||||
|
||||
(defun eltuki-process-sentinel (proc status)
|
||||
"Print PROC's STATUS."
|
||||
(message "git %s" (substring status 0 -1)))
|
||||
|
||||
(defun eltuki--passwd-prompt (string)
|
||||
"Decide on what to prompt based on STRING."
|
||||
(cond
|
||||
((or
|
||||
(string-match "^Enter passphrase for key '\\\(.*\\\)': $" string)
|
||||
(string-match "^\\\(.*\\\)'s password:" string))
|
||||
(format "Password for '%s': " (match-string 1 string)))
|
||||
((string-match "^[pP]assword:" string)
|
||||
"Password:")))
|
||||
|
||||
(defun eltuki-process-filter (proc string)
|
||||
"Check if PROC is asking for a password in STRING."
|
||||
(with-current-buffer (process-buffer proc)
|
||||
(let ((inhibit-read-only t)
|
||||
(ask (eltuki--passwd-prompt string)))
|
||||
(if ask
|
||||
(process-send-string proc (concat (read-passwd ask nil) "\n"))
|
||||
(insert string)))))
|
||||
|
||||
(defun eltuki-publish ()
|
||||
"Publish posts."
|
||||
(interactive)
|
||||
(let* ((default-directory (concat eltuki-blog-dir "/"))
|
||||
(proc (start-process "eltuki-publish" "*eltuki-publish*"
|
||||
"git" "push")))
|
||||
(set-process-sentinel proc 'eltuki-process-sentinel)
|
||||
(set-process-filter proc 'eltuki-process-filter)))
|
||||
|
||||
(provide 'eltuki)
|
||||
;;; eltuki.el ends here
|
||||
82
emacs/.emacs.d/site-lisp/gnus-init.el
Normal file
82
emacs/.emacs.d/site-lisp/gnus-init.el
Normal file
|
|
@ -0,0 +1,82 @@
|
|||
(eval-when-compile
|
||||
(require 'gnus)
|
||||
(require 'gnus-start)
|
||||
(require 'gnus-sum)
|
||||
(require 'gnus-art)
|
||||
(require 'gnus-msg))
|
||||
|
||||
(defvar gnus-tmp-from)
|
||||
|
||||
(defvar oni:mail-adresses
|
||||
(rx (or "tom@ryuslash.org" "ryuslash@ninthfloor.org"
|
||||
"ryuslash@gmail.com")))
|
||||
|
||||
(defun gnus-user-format-function-a (headers)
|
||||
(let ((to (gnus-extra-header 'To headers)))
|
||||
(if (string-match oni:mail-adresses to)
|
||||
(if (string-match "," to) "~" "»")
|
||||
(if (or (string-match oni:mail-adresses
|
||||
(gnus-extra-header 'Cc headers))
|
||||
(string-match oni:mail-adresses
|
||||
(gnus-extra-header 'BCc headers)))
|
||||
"~"
|
||||
" "))))
|
||||
|
||||
(setq gnus-ignored-from-addresses oni:mail-adresses)
|
||||
(setq message-alternative-emails oni:mail-adresses)
|
||||
(setq message-dont-reply-to-names oni:mail-adresses)
|
||||
|
||||
(defvar gnus-face-5 'font-lock-variable-name-face)
|
||||
(defvar gnus-face-6 'font-lock-constant-face)
|
||||
|
||||
(setq gnus-group-line-format "%P %(%C%) %B%60=%4y%-2M%S\n")
|
||||
(setq gnus-summary-line-format "%U%R%z%ua%I%(%*%[%5{%-23,23f%}%]%) %s\n")
|
||||
(setq gnus-summary-mode-line-format "Gnus: %G %Z")
|
||||
(setq gnus-select-method '(nntp "news.gmane.org"))
|
||||
(setq gnus-secondary-select-methods
|
||||
'((nnmaildir "gmail"
|
||||
(directory "~/documents/mail/gmail/"))
|
||||
(nnmaildir "ninthfloor"
|
||||
(directory "~/documents/mail/ninthfloor/"))
|
||||
;; (nnmaildir "aethon"
|
||||
;; (directory "~/documents/mail/aethon/"))
|
||||
(nnmaildir "ryuslash"
|
||||
(directory "~/documents/mail/ryuslash.org/"))
|
||||
(nntp "news.gwene.org")))
|
||||
(setq gnus-auto-subscribed-groups nil)
|
||||
(setq gnus-save-newsrc-file nil)
|
||||
(setq gnus-read-newsrc-file nil)
|
||||
(setq gnus-article-truncate-lines nil)
|
||||
(setq gnus-permanently-visible-groups
|
||||
(rx (and (or "gmail" "aethon" "ninthfloor" "ryuslash")
|
||||
":inbox")))
|
||||
(setq gnus-check-new-newsgroups nil)
|
||||
(setq gnus-novice-user nil)
|
||||
(setq gnus-posting-styles
|
||||
'((".*"
|
||||
(address "tom@ryuslash.org")
|
||||
(eval (setq message-sendmail-extra-arguments '("-a" "ryuslash"))))
|
||||
("gmail:"
|
||||
(address "ryuslash@gmail.com")
|
||||
(eval (setq message-sendmail-extra-arguments '("-a" "gmail"))))
|
||||
("ninthfloor:"
|
||||
(address "ryuslash@ninthfloor.org")
|
||||
(eval (setq message-sendmail-extra-arguments '("-a" "ninthfloor"))))
|
||||
("arch:"
|
||||
(address "tom.willemsen@archlinux.us")
|
||||
(eval (setq message-sendmail-extra-arguments '("-a" "arch"))))
|
||||
("aethon:"
|
||||
(name "Tom Willemsen")
|
||||
(address "thomas@aethon.nl")
|
||||
(signature-file "~/documents/work/aethon/signature_20131209.txt")
|
||||
(eval (setq message-sendmail-extra-arguments '("-a" "aethon"))))))
|
||||
(add-hook 'gnus-select-group-hook
|
||||
(lambda ()
|
||||
(cond
|
||||
((string-match "aethon"
|
||||
(gnus-group-real-name gnus-newsgroup-name))
|
||||
(ispell-change-dictionary "nl"))
|
||||
(t (ispell-change-dictionary "en")))))
|
||||
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
|
||||
|
||||
(setq message-kill-buffer-on-exit t)
|
||||
200
emacs/.emacs.d/site-lisp/jabber-init.el
Normal file
200
emacs/.emacs.d/site-lisp/jabber-init.el
Normal file
|
|
@ -0,0 +1,200 @@
|
|||
;;; jabber-initel --- Jabber.el initialization
|
||||
;;; Commentary:
|
||||
;;; Code:
|
||||
|
||||
(require 'init (locate-user-emacs-file "init.elc" "init.el"))
|
||||
(require 'jabber)
|
||||
|
||||
;; (autoload 'jabber-message-libnotify "jabber-libnotify")
|
||||
;; (autoload 'jabber-muc-libnotify "jabber-libnotify")
|
||||
|
||||
(defun jabber-init-roster-mode-func ()
|
||||
"Function for `jabber-roster-mode-hook'."
|
||||
(setq mode-line-format
|
||||
(list (propertize " %m" 'face 'mode-line-buffer-id))))
|
||||
|
||||
(defun jabber-init-show-status-in-buffer (who oldstatus newstatus
|
||||
statustext proposed-alert)
|
||||
"Check to see if WHO has a buffer and if so print his new status.
|
||||
|
||||
OLDSTATUS, NEWSTATUS and STATUSTEXT are ignored.
|
||||
|
||||
Insert PROPOSED-ALERT in the buffer if it is non-nil."
|
||||
(let ((buffer (get-buffer (jabber-chat-get-buffer (symbol-name who)))))
|
||||
(when (and buffer proposed-alert)
|
||||
(with-current-buffer buffer
|
||||
(ewoc-enter-last jabber-chat-ewoc (list :notice proposed-alert
|
||||
:time (current-time)))))))
|
||||
|
||||
(defun jabber-init-stumpwm-echo (from buffer text title)
|
||||
"Use stumpwm to echo a message has arrived."
|
||||
(oni:stumpwm-echo title))
|
||||
|
||||
(defun jabber-init-stumpwm-echo-muc (nick group buffer text title)
|
||||
"Use stumpwm to echo a message has arrived."
|
||||
(oni:stumpwm-echo title))
|
||||
|
||||
(setq jabber-account-list
|
||||
(append (mapcar (lambda (str) (list (concat str "/" system-name)))
|
||||
'("tom@ryuslash.org" "ryuslash@ninthfloor.org"))
|
||||
'("ryuslash@gmail.com"
|
||||
(:network-server . "talk.google.com")
|
||||
(:port . 443)
|
||||
(:connection-type . ssl)))
|
||||
|
||||
jabber-avatar-cache-directory "~/.emacs.d/jabber-avatars/"
|
||||
jabber-chat-buffer-format "+%n"
|
||||
jabber-chat-foreign-prompt-format "%t %u"
|
||||
jabber-chat-local-prompt-format "%t %u"
|
||||
jabber-chat-buffer-show-avatar nil
|
||||
jabber-chat-fill-long-lines nil
|
||||
jabber-chat-delayed-time-format "%H:%M"
|
||||
|
||||
jabber-chatstates-confirm nil
|
||||
|
||||
jabber-muc-colorize-local t
|
||||
jabber-muc-colorize-foreign t
|
||||
|
||||
jabber-history-enabled t
|
||||
jabber-use-global-history nil
|
||||
jabber-history-dir "~/.emacs.d/jabber-hist"
|
||||
|
||||
jabber-groupchat-buffer-format "++%n"
|
||||
jabber-groupchat-prompt-format "%t %u"
|
||||
|
||||
jabber-roster-show-bindings nil
|
||||
jabber-show-offline-contacts nil
|
||||
|
||||
jabber-vcard-avatars-publish nil
|
||||
jabber-vcard-avatars-retrieve nil)
|
||||
(add-to-list 'jabber-account-list
|
||||
`(,(concat "thomas@aethon.nl/" system-name)
|
||||
(:network-server . "talk.google.com")
|
||||
(:connection-type . ssl)))
|
||||
|
||||
;; (add-hook 'jabber-alert-message-hooks #'jabber-message-libnotify)
|
||||
;; (add-hook 'jabber-alert-muc-hooks #'jabber-muc-libnotify)
|
||||
;; (add-hook 'jabber-alert-message-hooks #'jabber-init-stumpwm-echo)
|
||||
;; (add-hook 'jabber-alert-muc-hooks #'jabber-init-stumpwm-echo)
|
||||
(add-hook 'jabber-chat-mode-hook #'visual-line-mode)
|
||||
(add-hook 'jabber-roster-mode-hook #'jabber-init-roster-mode-func)
|
||||
(add-hook 'jabber-alert-presence-hooks
|
||||
#'jabber-init-show-status-in-buffer)
|
||||
|
||||
(remove-hook 'jabber-alert-presence-hooks #'jabber-presence-echo)
|
||||
|
||||
(global-set-key (kbd "<f6>") 'jabber-switch-to-roster-buffer)
|
||||
|
||||
|
||||
;;; Ugly, but works
|
||||
|
||||
(defvar *longest-prompt* 0)
|
||||
(make-variable-buffer-local '*longest-prompt*)
|
||||
|
||||
(defun update-margins (prompt-length)
|
||||
(when (> prompt-length *longest-prompt*)
|
||||
(let ((window (get-buffer-window (current-buffer))))
|
||||
(when (equal window (selected-window))
|
||||
(set-window-margins window prompt-length))
|
||||
(setq left-margin-width prompt-length
|
||||
*longest-prompt* prompt-length))))
|
||||
|
||||
|
||||
(defun jabber-chat-self-prompt (timestamp delayed dont-print-nick-p)
|
||||
"Print prompt for sent message.
|
||||
TIMESTAMP is the timestamp to print, or nil for now.
|
||||
If DELAYED is true, print long timestamp
|
||||
\(`jabber-chat-delayed-time-format' as opposed to
|
||||
`jabber-chat-time-format').
|
||||
If DONT-PRINT-NICK-P is true, don't include nickname."
|
||||
(let* ((state-data (fsm-get-state-data jabber-buffer-connection))
|
||||
(username (plist-get state-data :username))
|
||||
(server (plist-get state-data :server))
|
||||
(resource (plist-get state-data :resource))
|
||||
(nickname username)
|
||||
(prompt (format-spec jabber-chat-local-prompt-format
|
||||
(list
|
||||
(cons ?t (format-time-string
|
||||
(if delayed
|
||||
jabber-chat-delayed-time-format
|
||||
jabber-chat-time-format)
|
||||
timestamp))
|
||||
(cons ?n (if dont-print-nick-p "" nickname))
|
||||
(cons ?u username)
|
||||
(cons ?r resource)
|
||||
(cons ?j (concat username "@" server))))))
|
||||
(insert (jabber-propertize
|
||||
" "
|
||||
'display (list '(margin left-margin) prompt)
|
||||
'face 'jabber-chat-prompt-local
|
||||
'help-echo
|
||||
(concat (format-time-string "On %Y-%m-%d %H:%M:%S" timestamp) " from you")))
|
||||
(update-margins (length prompt))))
|
||||
|
||||
(defun jabber-chat-print-prompt (xml-data timestamp delayed dont-print-nick-p)
|
||||
"Print prompt for received message in XML-DATA.
|
||||
TIMESTAMP is the timestamp to print, or nil to get it
|
||||
from a jabber:x:delay element.
|
||||
If DELAYED is true, print long timestamp
|
||||
\(`jabber-chat-delayed-time-format' as opposed to
|
||||
`jabber-chat-time-format').
|
||||
If DONT-PRINT-NICK-P is true, don't include nickname."
|
||||
(let* ((from (jabber-xml-get-attribute xml-data 'from))
|
||||
(timestamp (or timestamp
|
||||
(car (delq nil (mapcar 'jabber-x-delay (jabber-xml-get-children xml-data 'x))))))
|
||||
(prompt (format-spec jabber-chat-foreign-prompt-format
|
||||
(list
|
||||
(cons ?t (format-time-string
|
||||
(if delayed
|
||||
jabber-chat-delayed-time-format
|
||||
jabber-chat-time-format)
|
||||
timestamp))
|
||||
(cons ?n (if dont-print-nick-p "" (jabber-jid-displayname from)))
|
||||
(cons ?u (or (jabber-jid-username from) from))
|
||||
(cons ?r (jabber-jid-resource from))
|
||||
(cons ?j (jabber-jid-user from))))))
|
||||
(insert (jabber-propertize
|
||||
" "
|
||||
'display (list '(margin left-margin) prompt)
|
||||
'face 'jabber-chat-prompt-foreign
|
||||
'help-echo
|
||||
(concat (format-time-string "On %Y-%m-%d %H:%M:%S" timestamp) " from " from)))
|
||||
(update-margins (length prompt))))
|
||||
|
||||
(defun jabber-muc-print-prompt (xml-data &optional local dont-print-nick-p)
|
||||
"Print MUC prompt for message in XML-DATA."
|
||||
(let* ((nick (jabber-jid-resource (jabber-xml-get-attribute xml-data 'from)))
|
||||
(timestamp (car (delq nil (mapcar 'jabber-x-delay (jabber-xml-get-children xml-data 'x)))))
|
||||
(prompt (format-spec jabber-groupchat-prompt-format
|
||||
(list
|
||||
(cons ?t (format-time-string
|
||||
(if timestamp
|
||||
jabber-chat-delayed-time-format
|
||||
jabber-chat-time-format)
|
||||
timestamp))
|
||||
(cons ?n (if dont-print-nick-p "" nick))
|
||||
(cons ?u nick)
|
||||
(cons ?r nick)
|
||||
(cons ?j (concat jabber-group "/" nick))))))
|
||||
(if (stringp nick)
|
||||
(insert (jabber-propertize
|
||||
" "
|
||||
'display (list '(margin left-margin) prompt)
|
||||
'face (if local ;Message from you.
|
||||
(if jabber-muc-colorize-local ;; If colorization enable...
|
||||
;; ...colorize nick
|
||||
(list ':foreground (jabber-muc-nick-get-color nick))
|
||||
;; otherwise, use default face.
|
||||
'jabber-chat-prompt-local)
|
||||
;; Message from other participant.
|
||||
(if jabber-muc-colorize-foreign ;If colorization enable...
|
||||
;; ... colorize nick
|
||||
(list ':foreground (jabber-muc-nick-get-color nick))
|
||||
;; otherwise, use default face.
|
||||
'jabber-chat-prompt-foreign))
|
||||
'help-echo (concat (format-time-string "On %Y-%m-%d %H:%M:%S" timestamp) " from " nick " in " jabber-group)))
|
||||
(jabber-muc-system-prompt))
|
||||
(update-margins (length prompt))))
|
||||
|
||||
(provide 'jabber-init)
|
||||
;;; jabber-init.el ends here
|
||||
80
emacs/.emacs.d/site-lisp/metalexpress.el
Normal file
80
emacs/.emacs.d/site-lisp/metalexpress.el
Normal file
|
|
@ -0,0 +1,80 @@
|
|||
;;; metalexpress.el --- Listen to Metal Express Radio
|
||||
|
||||
;; Copyright (C) 2012 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <thomas@aethon.nl>
|
||||
;; Keywords: multimedia
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Functions for easily listening to Metal Express Radio.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defgroup metal-express-radio nil
|
||||
"Group for the Metal Express Radio listening functions."
|
||||
:group 'multimedia)
|
||||
|
||||
(defcustom metal-express-radio-playlist-url
|
||||
"http://usa7-vn.mixstream.net/listen/8248.m3u"
|
||||
"The URL of the Metal Express Radio stream."
|
||||
:group 'metal-express-radio
|
||||
:type 'string)
|
||||
|
||||
(defcustom metal-express-radio-song-changed-hook nil
|
||||
"Hook run when the currently playing song changes."
|
||||
:type 'hook
|
||||
:group 'metal-express-radio)
|
||||
|
||||
(defvar metal-express-radio-currently-playing nil
|
||||
"The currently playing song.")
|
||||
|
||||
(defun mer-proc-filter (proc string)
|
||||
(when (string-match "^ICY Info: StreamTitle='\\(.*\\)';StreamUrl='';"
|
||||
string)
|
||||
(setq metal-express-radio-currently-playing (match-string 1 string))
|
||||
(run-hooks 'metal-express-radio-song-changed-hook)))
|
||||
|
||||
(defun metal-express-radio-echo-currently-playing ()
|
||||
(interactive)
|
||||
(message metal-express-radio-currently-playing))
|
||||
|
||||
(defun metal-express-radio-notify ()
|
||||
(interactive)
|
||||
(notifications-notify :title "Now playing:"
|
||||
:body metal-express-radio-currently-playing))
|
||||
|
||||
;;;###autoload
|
||||
(defun metal-express-radio-start ()
|
||||
"Start listening to Metal Express Radio."
|
||||
(interactive)
|
||||
(let ((proc (start-process "metalexpress" "*Metal Express Radio*"
|
||||
"mplayer" metal-express-radio-playlist-url)))
|
||||
(set-process-filter proc #'mer-proc-filter)))
|
||||
|
||||
(defun metal-express-radio-stop ()
|
||||
"Stop listening to Metal Express Radio."
|
||||
(interactive)
|
||||
(kill-process (get-buffer-process "*Metal Express Radio*"))
|
||||
(setq metal-express-radio-currently-playing nil))
|
||||
|
||||
(add-hook 'metal-express-radio-song-changed-hook
|
||||
'metal-express-radio-echo-currently-playing)
|
||||
(add-hook 'metal-express-radio-song-changed-hook
|
||||
'metal-express-radio-notify)
|
||||
|
||||
(provide 'metalexpress)
|
||||
;;; metalexpress.el ends here
|
||||
54
emacs/.emacs.d/site-lisp/mu4e-init.el
Normal file
54
emacs/.emacs.d/site-lisp/mu4e-init.el
Normal file
|
|
@ -0,0 +1,54 @@
|
|||
;;; mu4e-init.el --- mu4e initialization
|
||||
|
||||
;; Copyright (C) 2012 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <slash@drd>
|
||||
;; Keywords:
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'oni)
|
||||
|
||||
(oni:define-mailbox "aethon"
|
||||
(oni:email thomas at aethon dot nl)
|
||||
(expand-file-name "~/documents/work/aethon/signature.txt"))
|
||||
(oni:define-mailbox "gmail" (oni:email ryuslash at gmail dot com))
|
||||
(oni:define-mailbox "ninthfloor"
|
||||
(oni:email ryuslash at ninthfloor dot org))
|
||||
(oni:define-mailbox "ryuslash" (oni:email tom at ryuslash dot org)
|
||||
nil "ryuslash.org")
|
||||
|
||||
(setq mu4e-headers-date-format "%d-%m %H:%M")
|
||||
(setq mu4e-headers-fields '((:date . 11)
|
||||
(:flags . 6)
|
||||
(:to . 22)
|
||||
(:from . 22)
|
||||
(:subject)))
|
||||
(setq mu4e-headers-show-threads nil)
|
||||
(setq mu4e-headers-sort-revert nil)
|
||||
(setq mu4e-html2text-command "w3m -dump -T text/HTML -cols 72")
|
||||
(setq mu4e-my-email-addresses (list
|
||||
(oni:email tom at ryuslash dot org)
|
||||
(oni:email ryuslash at gmail dot com)
|
||||
(oni:email ryuslash at ninthfloor dot org)
|
||||
(oni:email thomas at aethon dot nl)))
|
||||
|
||||
(provide 'mu4e-init)
|
||||
;;; mu4e-init.el ends here
|
||||
123
emacs/.emacs.d/site-lisp/my-smt.el
Normal file
123
emacs/.emacs.d/site-lisp/my-smt.el
Normal file
|
|
@ -0,0 +1,123 @@
|
|||
;;; my-smt.el --- My SVG mode-line theme -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 2014 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <tom@ryuslash.org>
|
||||
;; Keywords: faces
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
|
||||
(smt/defwidget my-smt-flycheck-errors
|
||||
:text (lambda (widget)
|
||||
(ignore widget)
|
||||
(when flycheck-mode
|
||||
(let ((counts (flycheck-count-errors
|
||||
flycheck-current-errors)))
|
||||
`(tspan " " (tspan :fill ,(if (smt/window-active-p)
|
||||
"#a85454"
|
||||
"#969696") ,(or (cdr (assoc 'error counts)) 0))
|
||||
"/" (tspan :fill ,(if (smt/window-active-p)
|
||||
"#a88654"
|
||||
"#969696") ,(or (cdr (assoc 'warning counts)) 0)))))))
|
||||
|
||||
(smt/defwidget my-smt-jabber-activity
|
||||
:text (lambda (widget)
|
||||
(ignore widget)
|
||||
(if (and (smt/window-active-p)
|
||||
(boundp 'jabber-activity-mode-string)
|
||||
(not (equal jabber-activity-mode-string "")))
|
||||
(concat jabber-activity-mode-string " "))))
|
||||
|
||||
(defun my-smt-yoshi-title-style (widget)
|
||||
"Fill color for either active or inactive windows.
|
||||
|
||||
WIDGET is ignored."
|
||||
(ignore widget)
|
||||
(list :fill (if (smt/window-active-p)
|
||||
"#a85454"
|
||||
"#969696")))
|
||||
|
||||
(smt/defwidget my-smt-po-counters
|
||||
:text (lambda (widget)
|
||||
(ignore widget)
|
||||
(when (eql major-mode 'po-mode)
|
||||
(format " %dt+%df+%du+%do" po-translated-counter
|
||||
po-fuzzy-counter po-untranslated-counter
|
||||
po-obsolete-counter))))
|
||||
|
||||
(smt/defwidget my-smt-buffer-identification
|
||||
:style 'my-smt-yoshi-title-style
|
||||
:text (lambda (widget)
|
||||
(ignore widget)
|
||||
(concat
|
||||
(s-trim
|
||||
(substring-no-properties
|
||||
(format-mode-line mode-line-buffer-identification)))
|
||||
(when (and (or buffer-file-name
|
||||
buffer-offer-save)
|
||||
(buffer-modified-p))
|
||||
"*"))))
|
||||
|
||||
(smt/defwidget my-smt-current-dictionary
|
||||
:text (lambda (widget)
|
||||
(ignore widget)
|
||||
(if flyspell-mode
|
||||
(concat " " (or ispell-current-dictionary
|
||||
ispell-local-dictionary
|
||||
flyspell-default-dictionary)))))
|
||||
|
||||
(smt/defwidget my-smt-position
|
||||
:text (lambda (widget)
|
||||
(ignore widget)
|
||||
(format-mode-line "%l/%c:%p")))
|
||||
|
||||
(smt/defrow my-smt-right
|
||||
:prototype 'default-right
|
||||
:widgets '(my-smt-jabber-activity
|
||||
major-mode
|
||||
my-smt-current-dictionary
|
||||
my-smt-flycheck-errors
|
||||
version-control minor-modes)
|
||||
:margin 16)
|
||||
|
||||
(smt/defrow my-smt-left
|
||||
:prototype 'default-left
|
||||
:widgets '(buffer-info my-smt-buffer-identification my-smt-po-counters
|
||||
which-function))
|
||||
|
||||
(smt/defrow my-smt-position
|
||||
:prototype 'default-position
|
||||
:widgets '(my-smt-position))
|
||||
|
||||
(defun my-smt-major-mode-style (widget)
|
||||
(ignore widget)
|
||||
'(:fill "#ccc" :font-family "Fantasque Sans" :filter nil
|
||||
:font-weight "bold" :font-style "italic"))
|
||||
|
||||
(smt/deftheme my-smt
|
||||
:prototype 'black-crystal
|
||||
:local-widgets (list (cons 'major-mode
|
||||
(smt/make-widget
|
||||
:prototype 'major-mode
|
||||
:style 'my-smt-major-mode-style)))
|
||||
:rows '(my-smt-left my-smt-position my-smt-right))
|
||||
|
||||
(provide 'my-smt)
|
||||
;;; my-smt.el ends here
|
||||
192
emacs/.emacs.d/site-lisp/org-init.el
Normal file
192
emacs/.emacs.d/site-lisp/org-init.el
Normal file
|
|
@ -0,0 +1,192 @@
|
|||
;;; org-init.el --- Org initialization
|
||||
|
||||
;; Copyright (C) 2012 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <slash@drd>
|
||||
;; Keywords:
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'appt)
|
||||
(require 'org-habit)
|
||||
(require 'org-protocol)
|
||||
|
||||
(eval-after-load "org"
|
||||
'(require 'org-contacts nil :noerror))
|
||||
|
||||
(eval-when-compile
|
||||
(require 'desktop)
|
||||
(require 'org-capture))
|
||||
|
||||
(autoload 'org-clocking-p "org-clock")
|
||||
|
||||
(with-eval-after-load 'org-crypt
|
||||
(org-crypt-use-before-save-magic))
|
||||
|
||||
(eval-and-compile
|
||||
(add-to-list 'load-path "~/.emacs.d/vendor-lisp/habitrpg.el"))
|
||||
|
||||
(defun tagify (str)
|
||||
"Remove dots, replace - with _ in STR."
|
||||
(replace-regexp-in-string
|
||||
"-" "_" (replace-regexp-in-string "\\." "" (downcase str))))
|
||||
|
||||
(defun oni:color-for (object)
|
||||
"Generate a hex color by taking the first 6 characters of OBJECT's MD5 sum."
|
||||
(format "#%s" (substring (md5 object) 0 6)))
|
||||
|
||||
(defun oni:org-colors-for (names)
|
||||
"Create an alist for NAMES with corresponding colors."
|
||||
(mapcar (lambda (name) (cons name (oni:color-for name))) names))
|
||||
|
||||
(defun oni:note-template ()
|
||||
(concat
|
||||
"* %<%c>\n"
|
||||
" :DIRECTORY: =" default-directory "=\n"
|
||||
(when (buffer-file-name) " :FILE: [[file:%F][%F]]\n")
|
||||
(when (org-clocking-p) " :TASK: %K\n")
|
||||
"\n %?"))
|
||||
|
||||
(defun oni:org-maybe-outline-path ()
|
||||
(let ((outline-path (org-format-outline-path (org-get-outline-path))))
|
||||
(unless (string= outline-path "")
|
||||
(setq outline-path (concat "[ " outline-path " ] ")))
|
||||
outline-path))
|
||||
|
||||
(defun org-init-filter-by-desktop ()
|
||||
"Filter agenda by current label."
|
||||
(when desktop-dirname
|
||||
(let ((label (tagify (file-name-nondirectory
|
||||
(directory-file-name
|
||||
(expand-file-name desktop-dirname))))))
|
||||
(org-agenda-filter-apply (cons label nil) 'tag))))
|
||||
|
||||
(defun org-init-skip-tags ()
|
||||
"Skip the \"ex\" and \"unconfirmed\" tags."
|
||||
(let ((tags (org-get-tags-at (point))))
|
||||
(when (or (member "ex" tags)
|
||||
(member "unconfirmed" tags))
|
||||
(save-excursion
|
||||
(or
|
||||
(ignore-errors (org-forward-element)
|
||||
(point))
|
||||
(point-max))))))
|
||||
|
||||
(defun org-init-get-tag-name ()
|
||||
"Get the name for a new tag for the currently loaded desktop."
|
||||
(let ((dname (desktop-registry-current-desktop)))
|
||||
(if dname
|
||||
(let ((tag (read-string "Tag(s): " (tagify dname))))
|
||||
(if (not (string= tag ""))
|
||||
(format ":%s:" tag)
|
||||
""))
|
||||
"")))
|
||||
|
||||
(setq org-agenda-cmp-user-defined (lambda (a b) 1))
|
||||
(setq org-agenda-prefix-format
|
||||
'((agenda . " %i %-12:c%?-12t% s")
|
||||
(timeline . " % s")
|
||||
(todo . " %i %-12:c %(oni:org-maybe-outline-path)")
|
||||
(tags . " %i %-12:c %(oni:org-maybe-outline-path)")
|
||||
(search . " %i %-12:c")))
|
||||
(setq org-agenda-sorting-strategy
|
||||
'((agenda habit-down time-up priority-down category-keep)
|
||||
(todo priority-down user-defined-down)
|
||||
(tags priority-down category-keep)
|
||||
(search category-keep)))
|
||||
(setq org-agenda-tags-column (1+ (- (window-width))))
|
||||
(setq org-directory (expand-file-name "~/documents/org"))
|
||||
(setq org-default-notes-file (concat org-directory "/org"))
|
||||
(setq org-capture-templates
|
||||
`(("t" "Task" entry (file+headline "~/documents/org/tasks" "Task Queue")
|
||||
"* TODO %? %(org-init-get-tag-name)"
|
||||
:empty-lines-before 1)
|
||||
("T" "Linked task" entry (file "~/documents/org/tasks")
|
||||
"* TODO %? %(org-init-get-tag-name)\n\n %a"
|
||||
:empty-lines-before 1)
|
||||
("a" "Appointment" entry (file "~/documents/org/tasks")
|
||||
"* %?\n %^T\n\n %a"
|
||||
:empty-lines-before 1)
|
||||
("n" "General note" entry (file ,org-default-notes-file)
|
||||
(function oni:note-template)
|
||||
:empty-lines-before 1)
|
||||
("l" "Log entry" entry (file+datetree "~/documents/org/log.org")
|
||||
"* %<%c>\n <%<%Y-%m-%d %H:%M>>\n\n %?"
|
||||
:empty-lines-before 1)))
|
||||
(setq org-contacts-files '("~/documents/org/misc/contacts.org"))
|
||||
(setq org-agenda-show-outline-path nil)
|
||||
(setq org-agenda-todo-ignore-deadlines 'far)
|
||||
(setq org-agenda-todo-ignore-scheduled t)
|
||||
(setq org-export-htmlize-output-type 'css)
|
||||
(setq org-feed-alist
|
||||
'(("MyEpisodes"
|
||||
"http://www.myepisodes.com/rss.php?feed=mylist&uid=Slash&pwdmd5=04028968e1f0b7ee678b748a4320ac17"
|
||||
"~/documents/org/tasks" "MyEpisodes"
|
||||
:formatter oni:myepisodes-formatter)))
|
||||
(setq org-fontify-done-headline t)
|
||||
(setq org-hide-emphasis-markers t)
|
||||
(setq org-outline-path-complete-in-steps t)
|
||||
(setq org-refile-allow-creating-parent-nodes t)
|
||||
(setq org-refile-use-outline-path 'file)
|
||||
(setq org-return-follows-link t)
|
||||
(setq org-src-fontify-natively t)
|
||||
(setq org-tags-column (- 70))
|
||||
(setq org-tags-exclude-from-inheritance '("crypt"))
|
||||
(setq org-todo-keyword-faces
|
||||
(oni:org-colors-for '("TODO" "WIP" "DONE" "CANCELLED" "FAILED"
|
||||
"ACQUIRE" "IGNORED" "COMMENT" "GOT")))
|
||||
(setq org-tag-faces
|
||||
(oni:org-colors-for '("aethon" "noexport" "tv" "myaethon2"
|
||||
"dailies" "ex" "maintenance" "housework"
|
||||
"cdispass" "clark" "emacsd" "eye_on_manga"
|
||||
"kaarvok" "silbot" "myaethon" "hypo"
|
||||
"unconfirmed" "gitto" "urxvt_modeline"
|
||||
"scrumli" "clark_conkeror"
|
||||
"git_auto_commit_mode" "mode_icons"
|
||||
"dispassel" "hypo_emacs" "hypo_cli"
|
||||
"conkeror" "transient_navigation" "pkgbuilds"
|
||||
"edocs" "cask" "fiplr" "avandu"
|
||||
"gitolite_admin" "yoshi_theme" "dvdroid"
|
||||
"commit_check" "imsleepy" "indent_shift"
|
||||
"work" "picturefix")))
|
||||
(setq org-use-fast-todo-selection t)
|
||||
(setq org-agenda-skip-function-global 'org-init-skip-tags)
|
||||
(setq org-use-property-inheritance '("slug"))
|
||||
(setq org-M-RET-may-split-line '((default . t)
|
||||
(headline)))
|
||||
(setq org-insert-heading-respect-content t)
|
||||
(setf (cdar org-blank-before-new-entry) t)
|
||||
|
||||
(add-hook 'org-agenda-mode-hook 'org-agenda-to-appt)
|
||||
(add-hook 'org-agenda-finalize-hook 'org-init-filter-by-desktop)
|
||||
|
||||
(add-to-list 'org-modules 'habit)
|
||||
|
||||
(org-agenda-to-appt)
|
||||
(ad-activate 'org-agenda-redo)
|
||||
|
||||
(require 'habitrpg)
|
||||
(add-hook 'org-after-todo-state-change-hook 'habitrpg-add 'append)
|
||||
|
||||
(setq org-mobile-directory "~/ownCloud/MobileOrg"
|
||||
org-mobile-inbox-for-pull "~/documents/org/inbox.org")
|
||||
|
||||
(provide 'org-init)
|
||||
;;; org-init.el ends here
|
||||
70
emacs/.emacs.d/site-lisp/pivot.el
Normal file
70
emacs/.emacs.d/site-lisp/pivot.el
Normal file
|
|
@ -0,0 +1,70 @@
|
|||
;;; pivot.el --- Elisp library for the Pivotal Tracker API -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 2014 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <tom@ryuslash.org>
|
||||
;; Keywords: comm, hypermedia
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'url)
|
||||
|
||||
(defgroup pivotel nil
|
||||
"Communicate with Pivotal Tracker."
|
||||
:group 'external)
|
||||
|
||||
(defcustom pivotel-api-token nil
|
||||
"API token from Pivotal Tracker.
|
||||
|
||||
From Pivotal Tracker: Your token enables access to your project
|
||||
and story data via the API, and needs to be kept private."
|
||||
:group 'pivotel)
|
||||
|
||||
(defvar pivotel-api-url
|
||||
"https://www.pivotaltracker.com/services/v5"
|
||||
"Base URL of the Pivotal Tracker API.
|
||||
|
||||
Does not need a final `/'.")
|
||||
|
||||
(defun pivotel-get-story (project story)
|
||||
"Get data from PROJECT for STORY."
|
||||
(let ((url-request-extra-headers
|
||||
`(("X-TrackerToken" . ,pivotel-api-token))))
|
||||
(with-current-buffer
|
||||
(url-retrieve-synchronously
|
||||
(format "%s/projects/%d/stories/%d"
|
||||
pivotel-api-url project story))
|
||||
(goto-char (point-min))
|
||||
(search-forward "\n\n")
|
||||
(json-read))))
|
||||
|
||||
(defun pivotel-get-projects ()
|
||||
"Get a list of all projects."
|
||||
(let ((url-request-extra-headers
|
||||
`(("X-TrackerTocken" . ,pivotel-api-token))))
|
||||
(with-current-buffer
|
||||
(url-retrieve-synchronously
|
||||
(format "%s/projects" pivotel-api-url))
|
||||
(goto-char (point-min))
|
||||
(search-forward "\n\n")
|
||||
(json-read))))
|
||||
|
||||
(provide 'pivot)
|
||||
;;; pivot.el ends here
|
||||
57
emacs/.emacs.d/site-lisp/pkgbuild.el
Normal file
57
emacs/.emacs.d/site-lisp/pkgbuild.el
Normal file
|
|
@ -0,0 +1,57 @@
|
|||
;;; pkgbuild.el --- PKGBUILD utility functions -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 2014 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <tom@ryuslash.org>
|
||||
;; Keywords: convenience
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defun pkgbuild-find-checksums-boundaries ()
|
||||
"Look in the current buffer for the start and end of the checksums."
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(re-search-forward (rx (or "md5" "sha1" "sha256") "sums"))
|
||||
(let ((start (match-beginning 0)))
|
||||
(search-forward "(")
|
||||
(backward-char)
|
||||
(forward-sexp)
|
||||
(list start (point)))))
|
||||
|
||||
(defun pkgbuild-get-updated-checksums ()
|
||||
"Call `makepkg -g' to get the updated checksums."
|
||||
(with-temp-buffer
|
||||
(insert (shell-command-to-string "makepkg -g"))
|
||||
(apply #'buffer-substring-no-properties
|
||||
(pkgbuild-find-checksums-boundaries))))
|
||||
|
||||
;;;###autoload
|
||||
(defun pkgbuild-update-checksums ()
|
||||
"Find and update the checksums for the current buffer."
|
||||
(interactive)
|
||||
(let ((updated (pkgbuild-get-updated-checksums)))
|
||||
(if updated
|
||||
(progn
|
||||
(apply #'delete-region (pkgbuild-find-checksums-boundaries))
|
||||
(insert updated))
|
||||
(error "No new checksums found"))))
|
||||
|
||||
(provide 'pkgbuild)
|
||||
;;; pkgbuild.el ends here
|
||||
74
emacs/.emacs.d/site-lisp/quick-edit-mode.el
Normal file
74
emacs/.emacs.d/site-lisp/quick-edit-mode.el
Normal file
|
|
@ -0,0 +1,74 @@
|
|||
;;; quick-edit-mode.el --- Quickly edit stuff
|
||||
|
||||
;; Copyright (C) 2012 Tom Willemse
|
||||
|
||||
;; Author: Tom Willemse <slash@drd>
|
||||
;; Keywords: convenience
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Quickly edit stuff
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defvar quick-edit-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map "/" 'undo)
|
||||
(define-key map "0" 'delete-window)
|
||||
(define-key map "1" 'delete-other-windows)
|
||||
(define-key map "2" 'split-window-below)
|
||||
(define-key map "3" 'split-window-right)
|
||||
(define-key map "K" 'kill-whole-line)
|
||||
(define-key map "V" 'scroll-down-command)
|
||||
(define-key map "a" 'oni:move-beginning-of-dwim)
|
||||
(define-key map "b" 'backward-char)
|
||||
(define-key map "d" 'oni:kill-region-or-forward-char)
|
||||
(define-key map "e" 'oni:move-end-of-dwim)
|
||||
(define-key map "f" 'forward-char)
|
||||
(define-key map "j" 'newline-and-indent)
|
||||
(define-key map "k" 'oni:kill-region-or-line)
|
||||
(define-key map "n" 'next-line)
|
||||
(define-key map "o" 'other-window)
|
||||
(define-key map "p" 'previous-line)
|
||||
(define-key map "v" 'scroll-up-command)
|
||||
(define-key map "w" 'oni:kill-region-or-backward-char)
|
||||
(define-key map (kbd "C-b") 'electric-buffer-list)
|
||||
(define-key map (kbd "C-g") 'quick-edit-mode)
|
||||
(define-key map (kbd "RET") 'quick-edit-mode)
|
||||
map)
|
||||
"Keymap for quick-edit-mode.")
|
||||
|
||||
(defun qe-locally-disable ()
|
||||
"Disable quick-edit mode in the minibuffer"
|
||||
(when (eq overriding-local-map quick-edit-map)
|
||||
(setq-local overriding-local-map nil)))
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode quick-edit-mode
|
||||
"Quickly edit stuff."
|
||||
:lighter " qe"
|
||||
:global t
|
||||
(if quick-edit-mode
|
||||
(progn
|
||||
(setq overriding-local-map quick-edit-map)
|
||||
(add-hook 'minibuffer-setup-hook 'qe-locally-disable)
|
||||
(add-hook 'special-mode-hook 'qe-locally-disable))
|
||||
(setq overriding-local-map nil)
|
||||
(remove-hook 'minibuffer-setup-hook 'qe-locally-disable)
|
||||
(remove-hook 'special-mode-hook 'qe-locally-disable)))
|
||||
|
||||
(provide 'quick-edit-mode)
|
||||
;;; quick-edit-mode.el ends here
|
||||
3
emacs/.emacs.d/site-lisp/wm-init.el
Normal file
3
emacs/.emacs.d/site-lisp/wm-init.el
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
(async-shell-command "herbstluftwm" " herbstluftwm")
|
||||
(async-shell-command "dunst" " dunst")
|
||||
(async-shell-command "xbindkeys" " xbindkeys")
|
||||
8
emacs/.emacs.d/snippets/conf-mode/section
Normal file
8
emacs/.emacs.d/snippets/conf-mode/section
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
# -*- mode: snippet; require-final-newline: nil -*-
|
||||
# name: Xorg Section
|
||||
# key: Section
|
||||
# --
|
||||
Section "$1"
|
||||
Identifier "$2"
|
||||
$0
|
||||
EndSection
|
||||
5
emacs/.emacs.d/snippets/emacs-lisp/face
Normal file
5
emacs/.emacs.d/snippets/emacs-lisp/face
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
# -*- mode: snippet; require-final-newline: nil -*-
|
||||
# name: face
|
||||
# key: f
|
||||
# --
|
||||
`($1 ((t (${2::foreground} $0))))
|
||||
7
emacs/.emacs.d/snippets/html-mode/block
Normal file
7
emacs/.emacs.d/snippets/html-mode/block
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
# -*- mode: snippet; require-final-newline: nil -*-
|
||||
# name: block
|
||||
# key: block
|
||||
# --
|
||||
{% block $1 %}
|
||||
$0
|
||||
{% endblock %}
|
||||
8
emacs/.emacs.d/snippets/html-mode/for
Normal file
8
emacs/.emacs.d/snippets/html-mode/for
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: for
|
||||
# key: for
|
||||
# condition: pony-tpl-minor-mode
|
||||
# --
|
||||
{% for $1 in $2 %}
|
||||
$0
|
||||
{% endfor %}
|
||||
8
emacs/.emacs.d/snippets/html-mode/generic-block
Normal file
8
emacs/.emacs.d/snippets/html-mode/generic-block
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: Template Block
|
||||
# key: %
|
||||
# condition: pony-tpl-minor-mode
|
||||
# --
|
||||
{% $1 %}
|
||||
$0
|
||||
{% end$1 %}
|
||||
5
emacs/.emacs.d/snippets/html-mode/script
Normal file
5
emacs/.emacs.d/snippets/html-mode/script
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: script
|
||||
# key: script
|
||||
# --
|
||||
<script src="$1" type="${2:text/javascript}" language="${3:javascript}"></script>
|
||||
6
emacs/.emacs.d/snippets/html-mode/trans-with-cap
Normal file
6
emacs/.emacs.d/snippets/html-mode/trans-with-cap
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: trans with cap
|
||||
# key: trans
|
||||
# condition: pony-tpl-minor-mode
|
||||
# --
|
||||
{% trans "$1"|capfirst %}
|
||||
7
emacs/.emacs.d/snippets/org-mode/codeblock
Normal file
7
emacs/.emacs.d/snippets/org-mode/codeblock
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: codeblock
|
||||
# key: code
|
||||
# --
|
||||
#+begin_src $1
|
||||
$0
|
||||
#+end_src
|
||||
9
emacs/.emacs.d/snippets/org-mode/heading
Normal file
9
emacs/.emacs.d/snippets/org-mode/heading
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: Heading
|
||||
# key: *
|
||||
# --
|
||||
${1:*} ${2:TODO} $3
|
||||
${1:$(make-string (length text) ?\ )} :PROPERTIES:
|
||||
${1:$(make-string (length text) ?\ )} :CATEGORY: $4
|
||||
${1:$(make-string (length text) ?\ )} :END:
|
||||
${1:$(make-string (length text) ?\ )} $0
|
||||
51
emacs/.emacs.d/snippets/org-mode/project
Normal file
51
emacs/.emacs.d/snippets/org-mode/project
Normal file
|
|
@ -0,0 +1,51 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: project
|
||||
# key: project
|
||||
# --
|
||||
#+TITLE: ${1:project_name}
|
||||
#+LINK: src ${2:http://code.ryuslash.org/cgit.cgi/$3$1/}
|
||||
#+LINK: tar_gz $2${4:snapshot/$1-master}.tar.gz
|
||||
#+LINK: zip $2$4.zip
|
||||
#+STARTUP: showall
|
||||
|
||||
#+begin_html
|
||||
<script src="/keyjs.js" type="text/javascript"></script>
|
||||
<script type="text/javascript">
|
||||
keyjs_initialize({ "u": [ "keyjs_goto", "../index.html" ],
|
||||
"h": [ "keyjs_goto", "http://ryuslash.org" ] });
|
||||
</script>
|
||||
#+end_html
|
||||
|
||||
#+INCLUDE: "dlmenu.inc"
|
||||
|
||||
* About
|
||||
|
||||
${5:A short description about $1}
|
||||
|
||||
| $0Status | $6 |
|
||||
| Language | $7 |
|
||||
| License | ${8:GPLv3} |
|
||||
|
||||
* Why?
|
||||
|
||||
${9:Why did you even think of writing $1?}
|
||||
|
||||
* Features
|
||||
|
||||
${10:$1 does...}
|
||||
|
||||
* Dependencies
|
||||
|
||||
${11:$1 needs to have...}
|
||||
|
||||
* Download
|
||||
|
||||
${12:To download $1...}
|
||||
|
||||
* Install
|
||||
|
||||
${13:To install $1...}
|
||||
|
||||
* Usage
|
||||
|
||||
${14:Using $1...}
|
||||
14
emacs/.emacs.d/snippets/org-mode/snippet
Normal file
14
emacs/.emacs.d/snippets/org-mode/snippet
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: snippet
|
||||
# key: snippet
|
||||
# --
|
||||
#+TITLE: ${1:snippet-name}
|
||||
#+OPTIONS: toc:nil
|
||||
|
||||
* $1
|
||||
|
||||
${2:A short description abount $1}
|
||||
|
||||
#+BEGIN_SRC $3 :tangle yes
|
||||
$0
|
||||
#+END_SRC
|
||||
8
emacs/.emacs.d/snippets/php-mode/function
Normal file
8
emacs/.emacs.d/snippets/php-mode/function
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
# -*- mode: snippet; require-final-newline: nil -*-
|
||||
# name: function
|
||||
# key: function
|
||||
# --
|
||||
function $1($2)
|
||||
{
|
||||
$0
|
||||
}
|
||||
13
emacs/.emacs.d/snippets/php-mode/wpheader.php
Normal file
13
emacs/.emacs.d/snippets/php-mode/wpheader.php
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
# -*- mode: snippet; require-final-newline: nil -*-
|
||||
# name: WP Plugin Header
|
||||
# key: header
|
||||
# --
|
||||
/*
|
||||
* Plugin Name: $1
|
||||
* Plugin URI: $2
|
||||
* Description: $3
|
||||
* Version: ${4:1.0}
|
||||
* Author: ${5:Tom Willemse}
|
||||
* Author URI: ${6:https://ryuslash.org}
|
||||
* License: ${7:GPLv2}
|
||||
*/
|
||||
7
emacs/.emacs.d/snippets/python-mode/defm_empty
Normal file
7
emacs/.emacs.d/snippets/python-mode/defm_empty
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
# -*- coding: utf-8 -*-
|
||||
# name: Empty Defmethod
|
||||
# key: defm
|
||||
# --
|
||||
def ${1:name}(self, *args, **kwargs):
|
||||
'''$2'''
|
||||
return super(${3:`(progn (re-search-backward "^[ \t]*class \\(.+\\)(") (match-string 1)))`}, self).$1(*args, **kwargs)
|
||||
9
emacs/.emacs.d/snippets/python-mode/form
Normal file
9
emacs/.emacs.d/snippets/python-mode/form
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: Model Form
|
||||
# key: form
|
||||
# --
|
||||
class ${1:Model}Form(forms.ModelForm):
|
||||
'''Form for the $1 model.'''
|
||||
|
||||
class Meta:
|
||||
model = $1
|
||||
8
emacs/.emacs.d/snippets/python-mode/form_valid
Normal file
8
emacs/.emacs.d/snippets/python-mode/form_valid
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: Record form
|
||||
# key: defm
|
||||
# --
|
||||
@record_activity(model=${1:`(progn (re-search-backward "^[ \t]*model = \\([a-zA-Z_].*\\)$") (match-string 1))`})
|
||||
def form_valid(self, form):
|
||||
'''Make sure any changes to the $1 model get logged.'''
|
||||
return super(${2:`(progn (re-search-backward "^[ \t]*class \\(.+\\)(") (match-string 1)))`}, self).form_valid(form)
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: form_valid with return
|
||||
# key: formvalid
|
||||
# --
|
||||
def form_valid(self, form):
|
||||
rv = super(`(let ((name (python-info-current-defun))) (substring name 0 (cl-position ?. name)))`, self).form_valid(form)
|
||||
$0
|
||||
return rv
|
||||
6
emacs/.emacs.d/snippets/python-mode/import_from
Normal file
6
emacs/.emacs.d/snippets/python-mode/import_from
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
# -*- coding: utf-8 -*-
|
||||
# name: from ... import ...
|
||||
# contributor: Tom Willemse
|
||||
# key: from
|
||||
# --
|
||||
from ${1:module} import ${2:class_or_module}
|
||||
7
emacs/.emacs.d/snippets/python-mode/method
Normal file
7
emacs/.emacs.d/snippets/python-mode/method
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: method
|
||||
# key: defm
|
||||
# --
|
||||
def $1(self$2):
|
||||
'''$3'''
|
||||
$0
|
||||
9
emacs/.emacs.d/snippets/python-mode/permission_guard
Normal file
9
emacs/.emacs.d/snippets/python-mode/permission_guard
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: Permission guard
|
||||
# key: defm
|
||||
# --
|
||||
@method_decorator(permission_required('$1',
|
||||
raise_exception=True))
|
||||
def dispatch(self, *args, **kwargs):
|
||||
'''Make sure the user has the $1 permission.'''
|
||||
return super(${3:`(progn (re-search-backward "^[ \t]*class \\(.+\\)(") (match-string 1)))`}, self).dispatch(*args, **kwargs)
|
||||
5
emacs/.emacs.d/snippets/python-mode/url
Normal file
5
emacs/.emacs.d/snippets/python-mode/url
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
# -*- mode: snippet -*-
|
||||
# name: url
|
||||
# key: url
|
||||
# --
|
||||
url(r'^$1', $2, name='$3'),
|
||||
5
emacs/.emacs.d/snippets/ruby-mode/ProductSeed
Normal file
5
emacs/.emacs.d/snippets/ruby-mode/ProductSeed
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
# -*- mode: snippet; require-final-newline: nil -*-
|
||||
# name: ProductSeed
|
||||
# key: pseed
|
||||
# --
|
||||
Product.find_or_create_by_name(parent_id: $1, name: '$2', description: '$3', price: '$4')
|
||||
5
emacs/.emacs.d/snippets/ruby-mode/ProductSeedHW
Normal file
5
emacs/.emacs.d/snippets/ruby-mode/ProductSeedHW
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
# -*- mode: snippet; require-final-newline: nil -*-
|
||||
# name: ProductSeedWithHW
|
||||
# key: pseed
|
||||
# --
|
||||
Product.find_or_create_by_name(parent_id: $1, name: '$2', description: '$3', price: '$4', width_in_cm: '$5', height_in_cm: '$6', width_in_mm: '${5:$(round (* 10 (string-to-int yas-text)))}', height_in_mm: '${6:$(round (* 10 (string-to-int yas-text)))}')
|
||||
8
emacs/.emacs.d/snippets/ruby-mode/ProductSeedHWGroup
Normal file
8
emacs/.emacs.d/snippets/ruby-mode/ProductSeedHWGroup
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
# -*- mode: snippet; require-final-newline: nil -*-
|
||||
# name: ProductSeedWithHWGroup
|
||||
# key: pseed
|
||||
# --
|
||||
Product.find_or_create_by_name(parent_id: $1, name: '$2', description: 'Small', price: '20.00', width_in_cm: '25.00', height_in_cm: '21.00', width_in_mm: '250', height_in_mm: '210')
|
||||
Product.find_or_create_by_name(parent_id: $1, name: '$2', description: 'Medium', price: '20.00', width_in_cm: '30.00', height_in_cm: '25.80', width_in_mm: '300', height_in_mm: '258')
|
||||
Product.find_or_create_by_name(parent_id: $1, name: '$2', description: 'Large', price: '20.00', width_in_cm: '35.00', height_in_cm: '30.00', width_in_mm: '350', height_in_mm: '300')
|
||||
Product.find_or_create_by_name(parent_id: $1, name: '$2', description: 'Extra large', price: '20.00', width_in_cm: '40.00', height_in_cm: '34.00', width_in_mm: '400', height_in_mm: '340')
|
||||
Loading…
Reference in a new issue