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

Emacs: Add functions for ascii/digit conv and full month calendar

Browse Source
This commit is contained in:
Joseph Ferano 2023-12-04 18:48:05 +07:00
parent 285f2e92cc
commit eadf75cbe8
1 changed files with 50 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
.config/emacs/init.org
View File

@ -491,6 +491,23 @@ Ligatures... are they that useful?
(require 'ligature)
(global-ligature-mode)
#+end_src
** Random Functions
#+begin_src emacs-lisp
(defun joe/print-digit-as-ascii (digit)
(string-match-p "^\\(?:0\\|[1-9][0-9]*\\)$" digit))
(defun joe/get-ascii-in-region (beg end)
(interactive "r")
(if (use-region-p)
(message "%s"
(concat
(mapcar 'string-to-number
(split-string (buffer-substring-no-properties beg end) " "))))
(message "No region selected")))
(define-key ctl-x-x-map (kbd "a") #'joe/get-ascii-in-region)
#+end_src
** Text
#+begin_src emacs-lisp
@ -922,6 +939,7 @@ The theme of `C-x 4` bindings is that they operate on other windows, so this fun
(defun joe/qtile-move-dir (dir)
(start-process "qtile-dir" nil "qtile" "cmd-obj" "-o" "layout" "-f" dir))
;; (start-process "qtile-dir" nil "qtile" "cmd-obj" "-o" "layout" "-f" "right"))
(defun joe/windmove-left ()
(interactive)
@ -947,10 +965,15 @@ The theme of `C-x 4` bindings is that they operate on other windows, so this fun
(windmove-down)
(joe/qtile-move-dir "down")))
(global-set-key (kbd "s-h") #'joe/windmove-left)
(global-set-key (kbd "s-l") #'joe/windmove-right)
(global-set-key (kbd "s-k") #'joe/windmove-up)
(global-set-key (kbd "s-j") #'joe/windmove-down)
;; (global-set-key (kbd "s-h") #'joe/windmove-left)
;; (global-set-key (kbd "s-l") #'joe/windmove-right)
;; (global-set-key (kbd "s-k") #'joe/windmove-up)
;; (global-set-key (kbd "s-j") #'joe/windmove-down)
(global-set-key (kbd "s-h") #'windmove-left)
(global-set-key (kbd "s-l") #'windmove-right)
(global-set-key (kbd "s-k") #'windmove-up)
(global-set-key (kbd "s-j") #'windmove-down)
;; There's a bug in Gnome where frames are resized to the wrong dimensions
(defun joe/resize-frames ()
@ -2255,14 +2278,13 @@ it doesn't close it.
(c-toggle-comment-style -1))
(add-hook 'c-mode-hook #'joe/c-mode-hook)
#+end_src
*** COMMENT Haskell
*** Haskell
#+begin_src emacs-lisp
(require 'haskell-mode)
(setq haskell-interactive-popup-errors nil)
(when (boundp 'evil-mode)
(evil-define-key 'insert haskell-interactive-mode-map (kbd "C-n") #'haskell-interactive-mode-history-next)
(evil-define-key 'insert haskell-interactive-mode-map (kbd "C-p") #'haskell-interactive-mode-history-previous))
(evil-define-key 'insert haskell-interactive-mode-map (kbd "C-p") #'haskell-interactive-mode-history-previous)
#+end_src
*** COMMENT Clojure
@ -2554,6 +2576,27 @@ with the cursor you hit TAB and you complete the following;
#+begin_src emacs-lisp
(require 'org-kanban)
#+end_src
** Calendar
#+begin_src emacs-lisp
(require 'cl)
(require 'calendar)
(defun twelve-month-calendar ()
(interactive)
(let ((calendar-buffer (get-buffer-create "12-month calendar"))
(month 12)
(year 2012))
(set-buffer calendar-buffer)
(setq calendar-frame (make-frame))
(make-variable-buffer-local 'font-lock-face)
(set-face-attribute 'default calendar-frame :height 70)
(set-frame-width calendar-frame 300)
(erase-buffer)
(dotimes (i 12)
(calendar-generate-month month year 0)
(calendar-increment-month month year -1))
(calendar-mode)))
#+end_src
** Magit
The best git porcelain/client I've ever used. Also kill stray magit buffers left