hiro/dotfiles
1
0
Fork 0
mirror of https://github.com/vale981/dotfiles synced 2025-03-04 09:01:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Sexy Lisp Lambda, Screenshots

Browse source
This commit is contained in:
Valentin Boettcher 2018-11-03 16:12:11 +01:00
parent 428739956d
commit b5cf7f5a7c
3 changed files with 46 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
README.md
View file

@ -4,3 +4,11 @@ My dotfiles and scripts for setting them up.
You **don't** want to run `install.sh`. Check the source, so you know
what you're doing.
Happy Hacking.
# Screenshots
<a href="https://i.imgur.com/wyJO9iC.png">
<img src="https://imgur.com/wyJO9iCl.png" />
</a>
<a href="https://i.imgur.com/U8aJvqk.png">
<img src="https://imgur.com/U8aJvqkl.png" />
</a>

41
dots/home/.emacs
View file

@ -37,7 +37,7 @@
'(haskell-process-suggest-remove-import-lines t)
'(package-selected-packages
(quote
(lispy slime-company slime info-beamer auctex-latexmk indium ag flow-minor-mode company-flow flycheck-flow js-doc yasnippet-classic-snippets yasnippet-snippets ivy-yasnippet counsel sage-shell-mode frames-only-mode dummyparens anaconda-mode magit-filenotify docker-compose-mode docker xref-js2 js2-refactor flycheck-rtags flycheck ivy-rtags rtags auctex magit php-mode flycheck-rust avy-flycheck company racer cargo rust-mode restart-emacs nix-mode json-mode multiple-cursors swiper ivy xresources-theme powerline)))
(pretty-mode lispy slime-company slime info-beamer auctex-latexmk indium ag flow-minor-mode company-flow flycheck-flow js-doc yasnippet-classic-snippets yasnippet-snippets ivy-yasnippet counsel sage-shell-mode frames-only-mode dummyparens anaconda-mode magit-filenotify docker-compose-mode docker xref-js2 js2-refactor flycheck-rtags flycheck ivy-rtags rtags auctex magit php-mode flycheck-rust avy-flycheck company racer cargo rust-mode restart-emacs nix-mode json-mode multiple-cursors swiper ivy xresources-theme powerline)))
'(safe-local-variable-values (quote ((TeX-master . t))))
'(show-paren-mode t)
'(tramp-syntax (quote default) nil (tramp)))
@ -197,10 +197,43 @@
;;; LISP
(load (expand-file-name "~/.roswell/helper.el"))
(slime-setup '(slime-company))
(defun sm-greek-lambda () (font-lock-add-keywords nil `(("\\<lambda\\>" (0 (progn (compose-region (match-beginning 0) (match-end 0) ,(make-char 'greek-iso8859-7 107)) nil))))))
(add-hook 'emacs-lisp-mode-hook 'sm-greek-lambda)
(add-hook 'slime-mode-hook 'sm-greek-lambda)
;; (defun sm-greek-lambda ()
;; (font-lock-add-keywords
;; nil
;; `(("\\<lambda\\>"
;; (0
;; (progn
;; (compose-region
;; (match-beginning 0)
;; (match-end 0)
;; ,(make-char
;; 'greek-iso8859-7
;; 107))
;; nil))))))
(defmacro replace-seqs (chars modes)
`(progn ,@(loop for char in chars collect `(replace-seq ,(first char) ,(second char) ,modes))
nil))
(defmacro replace-seq (char replacement modes)
(let ((fname (gensym)))
`(progn
(defun ,fname ()
(font-lock-add-keywords
nil
'((,char (0
(progn
(compose-region (match-beginning 0)
(match-end 0)
,replacement)
nil))))))
,@(loop for mode in modes collect `(add-hook ,mode (quote ,fname)))
nil)))
(replace-seqs (("#'" "⍘") ("\\<lambda\\>" "λ") ("\\<funcall\\>" "⨐")) ('slime-mode-hook 'emacs-lisp-mode-hook 'slime-repl-mode-hook))
(add-hook 'emacs-lisp-mode-hook #'lispy-mode)
(add-hook 'eval-expression-minibuffer-setup-hook #'lispy-mode)
(add-hook 'ielm-mode-hook #'lispy-mode)

2
tools/oomox-gtk-theme

@ -1 +1 @@
Subproject commit fef5f8d74dd0a0bc0add311d32bb0682715266a9
Subproject commit 82ddbda30f2eae3dfdbaa85545893b1aa841d496