commit - 69ed211cdb4a5c2cd0a8a451480056e4c6042c9f
commit + 1d60e75fcb75efcd13be74f6ac262b9c3043a282
blob - c2319d35c8f77117b0688746da1414d95f16d98f
blob + 10bb29ef63b93a6fe6c8a0a161ad9d841c2d0390
--- emacs/init.el
+++ emacs/init.el
(add-hook 'text-mode-hook #'whitespace-mode)
(dolist (hook '(emacs-lisp-mode-hook
+ js-mode-hook
clojure-mode-hook
clojurescript-mode-hook
clojurec-mode-hook
(let ((font
;; "-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1"
- "JuliaMono 8"
+ "Spleen"
))
(set-frame-font font nil t)
(add-to-list 'default-frame-alist `(font . ,font)))
;; some cool stuff
(save-place-mode +1)
-(savehist-mode +1)
+;(savehist-mode +1)
(setq history-delete-duplicates t
history-length 1000
savehist-save-minibuffer-history t)
;; packages that i want to be installed
(dolist (pkg '(vc-got eglot sly cider go-mode web-mode lua-mode
markdown-mode yaml-mode gemini-mode
- form-feed shackle puni orderless))
+ form-feed shackle puni orderless
+ rotate vc-fossil flimenu howm))
(unless (package-installed-p pkg)
(message "Installing %s" pkg)
(package-install pkg)))
(global-form-feed-mode +1)
+(flimenu-global-mode +1)
(add-hook 'text-mode-hook #'puni-mode)
(add-hook 'prog-mode-hook #'puni-mode)
shackle-rules
(let ((repls "\\*\\(cider-repl\\|sly-mrepl\\|ielm\\)")
(godot "\\*godot - .*\\*")
- (vcs "\\*\\(Flymake\\|Package-Lint\\|vc-\\(git\\|got\\) :\\).*")
+ (vcs "\\*\\(Flymake\\|Package-Lint\\|vc-\\(git\\|got\\|fossil\\) :\\).*")
(elfeed "\\*elfeed-entry\\*")
(vmd "\\*vmd console .*"))
`(("*Async Shell Command*" :ignore t)
(shackle-mode +1)
;; (setq display-buffer-alist nil)
+
+
+;; rotate
+(define-key global-map (kbd "C-c R") #'rotate-window)
+(define-key global-map (kbd "C-c r") #'rotate-layout)
+
+
+;; howm
+(require 'howm)
+
+(define-key howm-menu-mode-map "\C-h" nil)
+(define-key riffle-summary-mode-map "\C-h" nil)
+(define-key howm-view-contents-mode-map "\C-h" nil)
+
+;; rename buffers to their title
+(add-hook 'howm-mode-hook 'howm-mode-set-buffer-name)
+(add-hook 'after-save-hook 'howm-mode-set-buffer-name)