pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

More resources, miscellaneous changes

Browse source
This commit is contained in:
Benson Chu 2019-02-23 20:52:49 -06:00
parent f052381757
commit 97c23d3ce4
18 changed files with 772 additions and 320 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
.gitmodules vendored
View file

@ -25,3 +25,6 @@
[submodule "custom/org-ql"]
path = custom/org-ql
url = https://github.com/alphapapa/org-ql
[submodule "custom/ts.el"]
path = custom/ts.el
url = https://github.com/alphapapa/ts.el

634
config.org
View file

@ -20,6 +20,7 @@
(use-package exwm)
(require 'exwm-config)
(exwm-config-default)
(fringe-mode '(10 . 0))
#+END_SRC
** Naming Windows
#+BEGIN_SRC emacs-lisp
@ -173,12 +174,20 @@
(defun youtube-split ()
(interactive)
(split-window (selected-window) 526 t t))
(if-let (buf (get-buffer "youtube"))
(switch-to-buffer buf)
(launch-program-with-name "firefox" "youtube"))
(split-window (selected-window) 472 t t)
(switch-window))
(defun big-youtube-split ()
(interactive)
(split-window (selected-window) 630 t t))
(if-let (buf (get-buffer "youtube"))
(switch-to-buffer buf)
(launch-program-with-name "firefox" "youtube"))
(split-window (selected-window) 630 t t)
(switch-window))
#+END_SRC
** Disable simulation keys on an emacs window
#+BEGIN_SRC emacs-lisp
@ -201,12 +210,14 @@
(interactive)
(exwm-input--fake-key ?\C-t))
(define-key *root-map* (kbd "C-t") 'annoying-key-thing)
(define-key *root-map* (kbd "C-b") 'previous-buffer)
(define-key *root-map* (kbd "t") 'transpose-chars)
(define-key *root-map* (kbd "c") 'multi-term)
(define-key *root-map* (kbd "C-p") 'exwmx-launch-program)
(define-key *root-map* (kbd "e") (quickrun-lambda "emacs" "emacs"))
(define-key *root-map* (kbd "s") (quickrun-lambda "steam" nil))
(define-key *root-map* (kbd "q") (quickrun-lambda "qutebrowser" nil))
(define-key *root-map* (kbd "V") (quickrun-lambda "VBoxManage startvm \"Windows 7\"" "VirtualBox Machine"))
(define-key *root-map* (kbd "r") 'exwmx-name-buffer)
(define-key *root-map* (kbd "C-n") 'switch-window)
(define-key *root-map* (kbd ")") (lambda () (interactive) (shell-command "sleep 2s ; xset dpms force off")))
@ -237,7 +248,6 @@
** Multimonitor support
#+BEGIN_SRC emacs-lisp
(require 'exwm-randr)
(setq exwm-randr-workspace-output-plist '(2 "DP1" 3 "DP1"))
(exwm-randr-enable)
#+END_SRC
** Keybindings
@ -271,9 +281,8 @@
(,(kbd "s-$") . (lambda () (interactive) (exwm-workspace-move-window 3)))))
(defun dvorak? ()
(string= (shell-command-to-string "setxkbmap -v | grep symbols")
"symbols: pc+de(neo_dvorak)+inet(evdev)+terminate(ctrl_alt_bksp)
"))
(string-match-p "de(neo_dvorak)"
(shell-command-to-string "setxkbmap -v | grep symbols")))
(defun set-keyboard (layout)
(shell-command (format "setxkbmap %s" layout)))
@ -313,14 +322,15 @@
(defvar wallpaper-path "/home/benson/.emacs.d/res/digital_space_universe_4k_8k-wide.jpg")
(defvar live-wallpaper-path "/home/benson/MEGA/pictures/wallpapers/videos/bg.mp4")
(setq i3-string "Xephyr -br -ac -noreset -resizeable -screen 1920x1080 :1 & sleep 1s; DISPLAY=:1 i3")
(setq i3-string "Xephyr -br -ac -noreset -resizeable -screen 1920x1080 :8 & sleep 1s; DISPLAY=:8 i3")
(setq xfce4-string "Xephyr -br -ac -noreset -resizeable -screen 1920x1080 :8 & sleep 1s; DISPLAY=:8 xfce4-session")
(setq kde-string "Xephyr -br -ac -noreset -resizeable -screen 1920x1080 :8 & sleep 1s; DISPLAY=:8 startkde")
(defvar exwm-startup-programs
'("megasync"
("compton -f -i .7 -b")
("/usr/lib/polkit-gnome/polkit-gnome-authentication-agent-1")
("/usr/lib/notification-daemon-1.0/notification-daemon")
("nm-applet")
;(i3-string)
))
(defvar hard-drive-space "")
@ -328,6 +338,14 @@
(interactive)
(launch-program i3-string))
(defun launch-xfce ()
(interactive)
(launch-program xfce4-string))
(defun launch-kde ()
(interactive)
(launch-program kde-string))
(defun lock-screen ()
(interactive)
(let ((res (shell-command-to-string "pgrep i3lock-fancy")))
@ -455,15 +473,17 @@
(defun my/setup-screens ()
(interactive)
(let ((result (shell-command-to-string "xrandr --query | grep -e connected | grep -v -e disconnected -e eDP1 | cut -d ' ' -f 1 | tr -d \"\\n\"")))
(setq exwm-randr-workspace-output-plist `(2 ,result 3 ,result))
(when (> (length result) 0)
(let* ((response (completing-read (format "Monitor %s detected. Resolution? " result) '("2560x1440" "1920x1080" "3840x2160") nil t "^"))
(let ((primary (shell-command-to-string "xrandr --query | grep ' connected' | grep eDP | cut -d ' ' -f 1 | tr -d '\n'"))
(secondary (shell-command-to-string "xrandr --query | grep ' connected' | grep -v eDP | cut -d ' ' -f 1 | tr -d '\n'")))
(setq exwm-randr-workspace-output-plist `(0 ,primary 1 ,primary 2 ,secondary 3 ,secondary))
(when (and (> (length secondary) 0)
(string= "yes" (completing-read (format "Monitor %s detected. Setup? " secondary) '("yes" "no"))))
(let* ((response (completing-read (format "Resolution for %s? " secondary) '("2560x1440" "1920x1080" "3840x2160") nil t "^"))
(length (string-to-number (substring response 0 4)))
(height (string-to-number (substring response 5 9))))
(shell-command (format "xrandr --output %s --mode %s --above eDP1" result response))
(let ((pos (completing-read "Position? " (mapcar #'number-to-string (list 0 (/ (- length 1920) 2) 1200)) nil t "^")))
(shell-command (format "xrandr --output eDP1 --pos %sx%s" pos height))))))
(shell-command (format "xrandr --output %s --mode %s --above %s" secondary response primary))
(let ((pos (completing-read "Position? " '("right-of" "above") nil t "^")))
(shell-command (format "xrandr --output %s --%s %s" primary pos secondary))))))
(setup-wallpaper))
(add-hook 'exwm-init-hook 'my/setup-screens)
@ -531,10 +551,14 @@
** Multi-term
#+BEGIN_SRC emacs-lisp
(use-package multi-term)
(define-key term-mode-map (kbd "M-'") 'scroll-down)
(unbind-key (kbd "C-t") term-mode-map)
(add-hook 'term-mode-hook
(lambda ()
(add-to-list 'term-bind-key-alist '("M-[" . multi-term-prev))
(add-to-list 'term-bind-key-alist '("M-]" . multi-term-next))))
(add-to-list 'term-bind-key-alist '("M-]" . multi-term-next))
(add-to-list 'term-bind-key-alist '("M-'" . scroll-down))
(add-to-list 'term-bind-key-alist '("C-t" . *root-map*))))
#+END_SRC
** resize-window
#+BEGIN_SRC emacs-lisp
@ -982,7 +1006,7 @@
(kill-local-variable 'mode-line-format))
#+END_SRC
**** Config
#+BEGIN_SRC emacs-lisp
#+BEGIN_SRC emacs-lisp#
(use-package powerline)
(use-package airline-themes)
@ -1097,6 +1121,7 @@
(mode . comint-mode)
(mode . makefile-gmake-mode)))
("code" (or (mode . clojure-mode)
(mode . csharp-mode)
(mode . c++-mode)
(mode . c-mode)
(mode . scala-mode)
@ -1143,7 +1168,7 @@
;(add-hook 'exwm-workspace-switch-hook 'ibuffer)
#+END_SRC
*** Ace jump
** Ace jump
#+BEGIN_SRC emacs-lisp
(use-package ace-jump-mode)
(global-set-key (kbd "C-c SPC") 'ace-jump-mode)
@ -1233,7 +1258,7 @@
(file "~/MEGA/org/checklists/mornings.org"))
("Cn" "Nightly routine" entry (file "~/MEGA/org/entries/routines.org")
(file "~/MEGA/org/checklists/nights.org"))
("y" "Elfeed YouTube" entry (file+olp "~/MEGA/org/agenda/agenda.org" "leisure" "Videos")
("y" "Elfeed YouTube" entry (file+olp "~/MEGA/org/agenda/agenda.org" "rewards" "Videos")
"* TODO %(identity elfeed-link-org-capture)")
("p" "Protocol" entry (file "~/MEGA/org/agenda/refile.org")
"* STUFF %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?")
@ -1423,9 +1448,9 @@
(setq org-agenda-sticky t)
(setq org-todo-keywords
'((sequence "STUFF(s)" "SOMEDAY(P)" "|")
(sequence "TODO(t)" "ONE(o)" "NEXT(n)" "READ(r)" "HABIT(H)" "|" "DONE(d!)")
(sequence "PROJECT(p)" "ETERNAL(e)" "|" "COMPLETE(c)")
'((sequence "STUFF(s)" "SOMEDAY(P)" "INACT(i)" "|")
(sequence "TODO(t)" "ONE(o)" "NEXT(n)" "HABIT(H)" "|" "DONE(d!)")
(sequence "PROJECT(p)" "SEQUENTIAL(S)" "ETERNAL(e)" "|" "COMPLETE(c)")
(sequence "WAIT(w@/!)" "HOLD(h)" "TICKLER())" "FORGOTTEN(f)" "|" "ABANDON(a@/!)")
(sequence "TOP" "|")))
@ -1436,9 +1461,11 @@
("WAIT" :foreground "yellow" :weight bold)
("HOLD" :foreground "red" :weight bold)
("PROJECT" :foreground "white" :weight bold)
("SEQUENTIAL" :foreground "white" :weight bold)
("ABANDON" :foreground "dark gray" :weight bold)
("FORGOTTEN" :foreground "dark gray" :weight bold)
("TOP" :foreground "royal blue" :weight bold)))
("TOP" :foreground "royal blue" :weight bold)
("INACT" :foreground "dark gray" :weight bold)))
(setq org-todo-state-tags-triggers
(quote (("HOLD" ("HOLD" . t))
@ -1447,7 +1474,7 @@
(setq org-use-fast-todo-selection t)
;(setq org-agenda-files (quote ("~/MEGA/org/agenda")))
;(setq org-agenda-files (quote ("~/MEGA/org/agenda/dallas.org")))
(org-agenda-load-file-list)
; Targets include this file and any file contributing to the agenda - up to 9 levels deep
@ -1484,6 +1511,7 @@
#+END_SRC
**** My Project code
#+BEGIN_SRC emacs-lisp
(defun my/is-part-of-subtree ()
(save-excursion
(and (not (= 1 (org-current-level)))
@ -1496,22 +1524,37 @@
(defun my/is-standalone-task ()
(and (not (member (org-get-todo-state) '("WAIT" "PROJECT" "SOMEDAY" "TICKLER")))
(not (member "ARCHIVE" (org-get-tags-at)))
(and (not (member (org-get-todo-state) '("HOLD" "PROJECT" "SOMEDAY" "TICKLER" "SEQUENTIAL")))
(not (member "ARCHIVE" (org-get-tags)))
(not (my/is-part-of-subtree))
(not (my/is-a-project))))
(defun my/is-a-task ()
(defun my/no-children ()
(save-excursion
(or (equal "ONE" (org-get-todo-state))
(and (org-get-todo-state)
(not (member "NOT_TASKS" (org-get-tags-at)))
(let ((curr-indent (org-current-level)))
(while (and (outline-next-heading)
(not (member "ARCHIVE" (org-get-tags-at)))
(< curr-indent (org-current-level))
(if (member "ARCHIVE" (org-get-tags))
(progn
(org-end-of-subtree)
(outline-next-heading))
t)
(not (org-get-todo-state))))
(>= curr-indent
(org-current-level)))))))
(org-current-level)))))
(defun my/is-unactionable-task ()
(or (member "NOT_TASKS" (org-get-tags))
(member (org-get-todo-state) (cons "INACT" org-done-keywords))))
(defun my/is-a-task ()
(save-excursion
(and (not (member "NOT_TASKS" (org-get-tags)))
(or (and (equal "ONE" (org-get-todo-state))
(not (my/has-non-done-task)))
(and (org-get-todo-state)
(not (member (org-get-todo-state) '("SOMEDAY" "WAIT")))
(my/no-children))))))
(defun my/has-subtask ()
(save-excursion
@ -1519,6 +1562,11 @@
has-subtask)
(while (and (not has-subtask)
(outline-next-heading)
(if (member "ARCHIVE" (org-get-tags))
(progn
(org-end-of-subtree)
(outline-next-heading))
t)
(< (point) subtree-end))
(when (org-get-todo-state)
(setq has-subtask t)))
@ -1537,12 +1585,12 @@
(defun my/is-next-task ()
(let ((todo (org-get-todo-state)))
(or (equal todo "NEXT")
(and (member todo '("TODO" "ONE"))
(or ;;(equal todo "NEXT")
(and (member todo '("TODO" "ONE" "NEXT"))
(or (org-get-scheduled-time (point))
(org-get-deadline-time (point)))))))
(defun my/has-active-task ()
(defun my/has-non-done-task ()
(save-excursion
(let ((subtree-end (save-excursion (org-end-of-subtree t)))
has-next-task)
@ -1557,10 +1605,10 @@
(save-excursion
(let ((todo (org-get-todo-state)))
(when todo
(or (member todo '("PROJECT" "ETERNAL" "HOLD"))
(or (member todo '("PROJECT" "ETERNAL" "HOLD" "SEQUENTIAL"))
(and (equal todo "ONE")
(my/has-active-task))
(and (member todo '("TODO" "WAIT" "SOMEDAY"))
(my/has-non-done-task))
(and (member todo '("TODO"))
(my/has-subtask)))))))
(defvar my/ambiguous-projects-default-to-stuck t)
@ -1569,9 +1617,9 @@
(save-excursion
(let ((subtree-end (save-excursion (org-end-of-subtree t)))
has-next-task has-active-project)
(outline-next-heading)
(while (and (not (and has-next-task
has-active-project))
(outline-next-heading)
(< (point) subtree-end))
(cond ((and (my/is-a-task)
(my/is-next-task))
@ -1579,7 +1627,27 @@
((and (my/is-a-project)
(eq (my/get-project-type file (point) nil)
'active))
(setq has-stuck-project t))))
(setq has-active-project t)))
(org-end-of-subtree t t))
(or has-next-task
has-active-project))))
(defun my/active-sequential-project (file point)
(save-excursion
(let ((subtree-end (save-excursion (org-end-of-subtree t)))
has-next-task has-active-project)
(outline-next-heading)
(while (and (not (or has-next-task
has-active-project))
(< (point) subtree-end))
(cond ((and (my/is-a-task)
(my/is-next-task))
(setq has-next-task t))
((and (my/is-a-project)
(eq (my/get-project-type file (point) nil)
'active))
(setq has-active-project t)))
(org-end-of-subtree t t))
(or has-next-task
has-active-project))))
@ -1587,22 +1655,23 @@
(save-excursion
(let ((subtree-end (save-excursion (org-end-of-subtree t)))
has-task has-next-task has-project has-stuck-project)
(outline-next-heading)
(while (and (not (and has-next-task
has-stuck-project))
(outline-next-heading)
(< (point) subtree-end))
;; (unless (member "ARCHIVE" (org-get-tags-at))
;; (unless (member "ARCHIVE" (org-get-tags))
(cond ((my/is-a-project)
(setq has-project t)
(when (eq (my/get-project-type file (point) t)
'stuck)
(setq has-stuck-project t))
(org-end-of-subtree t t))
(setq has-stuck-project t)))
((my/is-a-task)
(setq has-task t)
(when (or (my/is-next-task) (equal (org-get-todo-state) "WAIT"))
(setq has-next-task t)))
));; )
)
(org-end-of-subtree t t)
);; )
(or (and has-next-task
(not has-stuck-project))
(and (not has-task)
@ -1620,6 +1689,10 @@
((equal todo "WAIT") 'wait)
((org-time> (org-entry-get (point) "SCHEDULED") (org-matcher-time "<now>")) 'delayed)
;;((my/is-a-task) nil)
((equal "SEQUENTIAL" (org-get-todo-state))
(if (my/active-sequential-project file point)
'active
'stuck))
(ambiguous-to-stuck
(if (my/generous-active-project file point)
'active
@ -1629,18 +1702,49 @@
'active
'stuck)))))))
;; (defun my/show-stuck-projects ()
;; "Only show subtrees that are stuck projects"
;; (save-restriction
;; (widen)
;; (let ((subtree-end (save-excursion (org-end-of-subtree t))))
;; (unless (or (and (my/is-a-task)
;; (my/is-standalone-task)
;; (not (org-get-scheduled-time (point)))
;; (not (org-get-deadline-time (point))))
;; (eq (my/get-project-type buffer-file-name (point) t)
;; 'stuck))
;; subtree-end))))
(defvar my/stuck-projects-flag nil)
(defun my/show-stuck-projects ()
"Only show subtrees that are stuck projects"
(save-restriction
(widen)
(let ((subtree-end (save-excursion (org-end-of-subtree t))))
(unless (or (and (my/is-a-task)
(if (and my/stuck-projects-flag
(< (point) my/stuck-projects-flag))
(if (or (my/is-next-task)
(my/is-unactionable-task)
(and (not (my/is-a-task))
(not (eq (my/get-project-type buffer-file-name (point) t)
'stuck))))
subtree-end
nil)
(setq my/stuck-projects-flag nil)
(cond ((and (my/is-a-task)
(my/is-standalone-task)
(not (org-get-scheduled-time (point)))
(not (org-get-deadline-time (point))))
(eq (my/get-project-type buffer-file-name (point) t)
'stuck))
subtree-end))))
nil)
((eq (my/get-project-type buffer-file-name
(point) t)
'stuck)
(when (or (null my/stuck-projects-flag)
(< stuck-projects-flag subtree-end))
(setq my/stuck-projects-flag subtree-end))
nil)
(t subtree-end))))))
(defvar my/done-projects-flag nil)
@ -1659,6 +1763,15 @@
nil)
next-headline)))))
(defun my/org-agenda-reset-vars ()
(interactive)
(setq my/stuck-projects-flag nil
my/done-projects-flag nil
my/next-task-flag nil))
(add-to-list 'org-agenda-finalize-hook
#'my/org-agenda-reset-vars)
(defun my/show-active-projects ()
"Only show subtrees that are stuck projects"
(save-restriction
@ -1742,6 +1855,26 @@
(when (or (my/is-a-project)
(member (org-get-todo-state) '("SOMEDAY" "WAIT" "HABIT" nil)))
next-headline)))))
(defvar my/next-task-flag nil)
;; (setq my/next-task-flag nil)
(defun my/has-next-todo ()
(save-excursion
(let ((end-of-subtree (save-excursion (org-end-of-subtree t)))
flag)
(while (and (not flag)
(outline-next-heading)
(< (point) next-headline))
(when (string= (org-get-todo-state) "NEXT")
(setq flag (point))))
flag)))
(defun my/show-leaf-tasks ()
(let ((next-headline (save-excursion (org-end-of-subtree t))))
(unless (or (string= "NEXT" (org-get-todo-state))
(my/has-next-todo))
next-headline)))
#+END_SRC
**** Views
#+BEGIN_SRC emacs-lisp
@ -1789,6 +1922,18 @@
(add-hook 'org-agenda-finalize-hook #'org-agenda-delete-empty-compact-blocks)
(defun org-agenda-add-separater-between-project ()
(setq buffer-read-only nil)
(save-excursion
(goto-char (point-min))
(let ((start-pos (point))
(previous t))
(re-search-forward " +agenda: +[^\\. ]" nil t)
(while (re-search-forward " +agenda: +[^\\. ]" nil t)
(beginning-of-line)
(insert "=============================================\n")
(forward-line)))))
;; I don't think this code is necessary
;; (add-to-list 'org-agenda-entry-types :deadlines*)
@ -1842,7 +1987,7 @@
(agenda ""
((org-agenda-skip-function 'my/agenda-custom-skip)
(org-agenda-span 'day)
(org-agenda-show-log t)
;(org-agenda-show-log t)
(org-agenda-skip-deadline-if-done t)
(org-agenda-skip-scheduled-if-done t)
(org-super-agenda-groups '((:name "Overdue" :and (:deadline past :log nil :not (:tag "Work")))
@ -1853,8 +1998,8 @@
:not (:deadline today)))))
(:name "Work Related" :tag "WORK")
))))))
("c" "Access Comms" todo "TODO"
((org-agenda-files '("~/MEGA/org/entries/comms.org"))))
("c" "Access Comms" tags-todo "+COMMS/!TODO"
((org-agenda-files '("~/MEGA/org/agenda/agenda.org" "~/MEGA/org/entries/comms.org"))))
("P" "Time to panic"
((tags-todo "+MOTIVATION/!TOP"
((org-agenda-overriding-header "Remember your motivation")
@ -1867,6 +2012,11 @@
(org-agenda-overriding-header "Next Tasks list")
(org-tags-match-list-sublevels t)
(org-agenda-sorting-strategy '(deadline-up))))
("L" "Leaf Task List" tags-todo "-REFILE-HOLD-WAIT"
((org-agenda-skip-function 'my/show-leaf-tasks)
(org-tags-match-list-sublevels 'indented)
(org-agenda-overriding-header "Next Tasks list")
(org-agenda-finalize-hook '(org-agenda-add-separater-between-project))))
("r" "Review Tasks"
((todo "TODO"
((org-agenda-files '("~/MEGA/org/entries/reviews.gpg"))
@ -1896,7 +2046,8 @@
("t" "Today" agenda ""
((org-agenda-skip-function 'my/agenda-custom-skip)
(org-agenda-span 'day)
(org-agenda-show-log t)))
(org-agenda-start-with-log-mode '(closed clock))
(org-agenda-clockreport-mode t)))
("C" . "Categories")
("Cb" "Bus tasks" tags-todo "BUS")
("Cr" "Articles to read" tags-todo "READ")
@ -2565,6 +2716,141 @@
#+BEGIN_SRC emacs-lisp
(show-paren-mode t)
#+END_SRC
*** lsp-mode
#+begin_src emacs-lisp
(use-package lsp-mode)
(use-package lsp-ui)
(use-package lsp-java)
(use-package dap-mode
:config
(dap-mode t)
(dap-ui-mode t))
(require 'dap-java)
;; (defhydra dap-hydra (:color pink :hint nil :foreign-keys run)
;; ;; "
;; ;; ^Stepping^ ^Switch^ ^Breakpoints^ ^Eval
;; ;; ^^^^^^^^-----------------------------------------------------------------------------------------
;; ;; _n_: Next _ss_: Session _bt_: Toggle _ee_: Eval
;; ;; _i_: Step in _st_: Thread _bd_: Delete _er_: Eval region
;; ;; _o_: Step out _sf_: Stack frame _ba_: Add _es_: Eval thing at point
;; ;; _c_: Continue _sl_: List locals _bc_: Set condition _eii_: Inspect
;; ;; _r_: Restart frame _sb_: List breakpoints _bh_: Set hit count _eir_: Inspect region
;; ;; _Q_: Disconnect _sS_: List sessions _bl_: Set log message _eis_: Inspect thing at point
;; ;; "
;; ("n" dap-next)
;; ("i" dap-step-in)
;; ("o" dap-step-out)
;; ("c" dap-continue)
;; ("r" dap-restart-frame)
;; ("ss" dap-switch-session)
;; ("st" dap-switch-thread)
;; ("sf" dap-switch-stack-frame)
;; ("sl" dap-ui-locals)
;; ("sb" dap-ui-breakpoints)
;; ("sS" dap-ui-sessions)
;; ("bt" dap-breakpoint-toggle)
;; ("ba" dap-breakpoint-add)
;; ("bd" dap-breakpoint-delete)
;; ("bc" dap-breakpoint-condition)
;; ("bh" dap-breakpoint-hit-condition)
;; ("bl" dap-breakpoint-log-message)
;; ("ee" dap-eval)
;; ("er" dap-eval-region)
;; ("es" dap-eval-thing-at-point)
;; ("eii" dap-ui-inspect)
;; ("eir" dap-ui-inspect-region)
;; ("eis" dap-ui-inspect-thing-at-point)
;; ("q" nil "quit" :color blue)
;; ("Q" dap-disconnect :color red))
(use-package lsp-rust)
(use-package lsp-python)
#+end_src
*** Rainbow delimiters
#+begin_src emacs-lisp
(use-package rainbow-delimiters)
(rainbow-delimiters-mode)
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode)
(add-hook 'org-mode-hook #'rainbow-delimiters-mode)
(let ((rainbow-purple "#9E1CB2")
(rainbow-blue "#1194f6")
(rainbow-green "#47B04B")
(rainbow-yellow "#FFED18")
(rainbow-orange "#E7B500")
(rainbow-red "#C90067")
(rainbow-7 "#00AA5D")
(rainbow-8 "#FE7380"))
(custom-set-faces
`(rainbow-delimiters-depth-1-face ((t (:foreground ,rainbow-purple))))
`(rainbow-delimiters-depth-2-face ((t (:foreground ,rainbow-green))))
`(rainbow-delimiters-depth-3-face ((t (:foreground ,rainbow-blue))))
`(rainbow-delimiters-depth-4-face ((t (:foreground ,rainbow-red))))
`(rainbow-delimiters-depth-5-face ((t (:foreground ,rainbow-yellow))))
`(rainbow-delimiters-depth-6-face ((t (:foreground ,rainbow-blue))))
`(rainbow-delimiters-depth-7-face ((t (:foreground ,rainbow-red))))
`(rainbow-delimiters-depth-8-face ((t (:foreground ,rainbow-8))))
`(rainbow-delimiters-depth-9-face ((t (:foreground ,rainbow-purple))))
`(rainbow-delimiters-depth-10-face ((t (:foreground ,rainbow-blue))))
`(rainbow-delimiters-depth-11-face ((t (:foreground ,rainbow-green))))
`(rainbow-delimiters-depth-12-face ((t (:foreground ,rainbow-yellow))))))
#+end_src
*** C#
#+BEGIN_SRC emacs-lisp
(use-package csharp-mode)
(use-package omnisharp)
(add-hook 'csharp-mode-hook 'omnisharp-mode)
#+END_SRC
*** React js
#+BEGIN_SRC emacs-lisp
(use-package rjsx-mode)
#+END_SRC
*** Golang
#+BEGIN_SRC emacs-lisp
(use-package go-mode)
(add-hook 'go-mode-hook
(lambda ()
(add-hook 'before-save-hook 'gofmt-before-save)
(setq tab-width 4)
(setq indent-tabs-mode 1)))
#+END_SRC
*** Elpy
#+BEGIN_SRC emacs-lisp
(use-package elpy)
(elpy-enable)
#+END_SRC
*** EIN
#+BEGIN_SRC emacs-lisp
(use-package ein)
(add-to-list 'exec-path
"/home/benson/anaconda3/bin/")
#+END_SRC
*** Web-mode
#+BEGIN_SRC emacs-lisp
(use-package web-mode)
(add-to-list 'auto-mode-alist '("\\.phtml\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.tpl\\.php\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.[agj]sp\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.as[cp]x\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.erb\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.mustache\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
(setq web-mode-auto-close-style 2)
#+END_SRC
*** Processing
#+BEGIN_SRC emacs-lisp
(use-package processing-mode)
(setq processing-location "/usr/bin/processing-java")
#+END_SRC
*** Treemacs
#+BEGIN_SRC emacs-lisp
(use-package treemacs)
#+END_SRC
** Freekeys
#+BEGIN_SRC emacs-lisp#
(use-package free-keys)
@ -2689,17 +2975,6 @@
#+END_SRC
** Elpy
#+BEGIN_SRC emacs-lisp
(use-package elpy)
(elpy-enable)
#+END_SRC
** EIN
#+BEGIN_SRC emacs-lisp
(use-package ein)
(add-to-list 'exec-path
"/home/benson/anaconda3/bin/")
#+END_SRC
** Ledger mode
#+BEGIN_SRC emacs-lisp
(use-package ledger-mode
@ -2732,20 +3007,6 @@
(report-name (ledger-report-read-name)))
(ledger-report report-name nil)))
#+END_SRC
** Web-mode
#+BEGIN_SRC emacs-lisp
(use-package web-mode)
(add-to-list 'auto-mode-alist '("\\.phtml\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.tpl\\.php\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.[agj]sp\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.as[cp]x\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.erb\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.mustache\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
(setq web-mode-auto-close-style 2)
#+END_SRC
** ediff
#+BEGIN_SRC emacs-lisp
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
@ -2760,39 +3021,10 @@
mouse-wheel-scroll-amount '(1)
mouse-wheel-progressive-speed nil)
#+END_SRC
** Processing
#+BEGIN_SRC emacs-lisp
(use-package processing-mode)
(setq processing-location "/usr/bin/processing-java")
#+END_SRC
** AUR PKGBUILD
#+BEGIN_SRC emacs-lisp
(use-package pkgbuild-mode)
#+END_SRC
** Golang
#+BEGIN_SRC emacs-lisp
(use-package go-mode)
(add-hook 'go-mode-hook
(lambda ()
(add-hook 'before-save-hook 'gofmt-before-save)
(setq tab-width 4)
(setq indent-tabs-mode 1)))
#+END_SRC
** React js
#+BEGIN_SRC emacs-lisp
(use-package rjsx-mode)
#+END_SRC
** Treemacs
#+BEGIN_SRC emacs-lisp
(use-package treemacs)
#+END_SRC
** C#
#+BEGIN_SRC emacs-lisp
(use-package csharp-mode)
(use-package omnisharp)
(add-hook 'csharp-mode-hook 'omnisharp-mode)
#+END_SRC
** Eyebrowse
#+BEGIN_SRC emacs-lisp
(use-package eyebrowse
@ -2819,35 +3051,6 @@
(require 're-builder)
(setq reb-re-syntax 'string)
#+end_src
** Rainbow delimiters
#+begin_src emacs-lisp
(use-package rainbow-delimiters)
(rainbow-delimiters-mode)
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode)
(add-hook 'org-mode-hook #'rainbow-delimiters-mode)
(let ((rainbow-purple "#9E1CB2")
(rainbow-blue "#1194f6")
(rainbow-green "#47B04B")
(rainbow-yellow "#FFED18")
(rainbow-orange "#E7B500")
(rainbow-red "#C90067")
(rainbow-7 "#00AA5D")
(rainbow-8 "#FE7380"))
(custom-set-faces
`(rainbow-delimiters-depth-1-face ((t (:foreground ,rainbow-purple))))
`(rainbow-delimiters-depth-2-face ((t (:foreground ,rainbow-green))))
`(rainbow-delimiters-depth-3-face ((t (:foreground ,rainbow-blue))))
`(rainbow-delimiters-depth-4-face ((t (:foreground ,rainbow-red))))
`(rainbow-delimiters-depth-5-face ((t (:foreground ,rainbow-yellow))))
`(rainbow-delimiters-depth-6-face ((t (:foreground ,rainbow-blue))))
`(rainbow-delimiters-depth-7-face ((t (:foreground ,rainbow-red))))
`(rainbow-delimiters-depth-8-face ((t (:foreground ,rainbow-8))))
`(rainbow-delimiters-depth-9-face ((t (:foreground ,rainbow-purple))))
`(rainbow-delimiters-depth-10-face ((t (:foreground ,rainbow-blue))))
`(rainbow-delimiters-depth-11-face ((t (:foreground ,rainbow-green))))
`(rainbow-delimiters-depth-12-face ((t (:foreground ,rainbow-yellow))))))
#+end_src
** new-text-color
#+begin_src emacs-lisp
(custom-set-faces
@ -2863,6 +3066,165 @@
(global-set-key (kbd "C-v") 'scrollkeeper-down)
(global-set-key (kbd "M-v") 'scrollkeeper-up)
#+end_src
** set-default-directory
#+begin_src emacs-lisp
(defun set-default-directory (dir)
(interactive "f")
(setq default-directory dir))
#+end_src
** hydra
#+begin_src emacs-lisp
(use-package hydra)
#+end_src
** org-mru-clock
#+begin_src emacs-lisp
(use-package org-mru-clock)
#+end_src
** org-clock-convenience
#+begin_src emacs-lisp
(defun my/org-clock-move-to-other ()
(interactive)
(forward-char 6)
(while (condition-case nil
(progn
(previous-line)
(org-clock-convenience-goto-ts)
nil)
(error t))))
(defun my/org-clock-move-up ()
(interactive)
(org-clock-convenience-timestamp-up)
(my/org-clock-move-to-other)
(org-clock-convenience-timestamp-up))
(use-package org-clock-convenience
:ensure t
:bind (:map org-agenda-mode-map
("<S-up>" . org-clock-convenience-timestamp-up)
("<S-down>" . org-clock-convenience-timestamp-down)
("<S-M-up>" . org-clock-convenience-timestamp-up)
("<S-M-down>" . org-clock-convenience-timestamp-down)
("ö" . org-clock-convenience-fill-gap)
("é" . org-clock-convenience-fill-gap-both)))
#+end_src
** org-clock-consisitency
#+begin_src emacs-lisp
(setq org-agenda-clock-consistency-checks
'(:max-duration "10:00"
:min-duration 0
:max-gap 0
:gap-ok-around ("4:00")
;; :default-face ((:background "DarkRed")
;; (:foreground "white"))
;; :overlap-face nil
;; :gap-face ((:background "DarkRed")
;; (:foreground "white"))
;; :no-end-time-face nil
;; :long-face nil
;; :short-face nil
))
#+end_src
** org-clock stfuf
#+begin_src emacs-lisp
(org-clock-persistence-insinuate)
(setq org-clock-in-resume t)
#+end_src
** org-edna
#+begin_src emacs-lisp
(use-package org-edna)
(org-edna-load)
#+end_src
** org agenda goto headline AND narrow
#+begin_src emacs-lisp
(defun my/org-agenda-narrow ()
(interactive)
(org-agenda-switch-to)
(org-narrow-to-subtree)
(org-cycle)
(org-cycle))
(define-key org-agenda-mode-map (kbd "S-<return>") 'my/org-agenda-narrow)
#+end_src
** World time include Taiwan
#+begin_src emacs-lisp
;; (("America/Los_Angeles" "Seattle")
;; ("America/New_York" "New York")
;; ("Europe/London" "London")
;; ("Europe/Paris" "Paris")
;; ("Asia/Calcutta" "Bangalore")
;; ("Asia/Tokyo" "Tokyo"))
(setq display-time-world-list
'(("Asia/Taipei" "Taiwan")))
#+end_src
** org-brain
#+begin_src emacs-lisp
(use-package org-brain :ensure t
:init
(global-set-key (kbd "M-'") 'org-brain-visualize)
(setq org-brain-path "~/MEGA/org/brain/")
;; For Evil users
(with-eval-after-load 'evil
(evil-set-initial-state 'org-brain-visualize-mode 'emacs))
:config
(setq org-id-track-globally t)
(setq org-id-locations-file "~/.emacs.d/.org-id-locations")
(push '("b" "Brain" plain (function org-brain-goto-end)
"* %i%?" :empty-lines 1)
org-capture-templates)
(setq org-brain-visualize-default-choices 'all)
(setq org-brain-title-max-length 0)
(define-key org-brain-visualize-mode-map (kbd "^") 'org-brain-visualize-back))
#+end_src
** Open links with firefox
#+begin_src emacs-lisp
(setq browse-url-browser-function 'browse-url-firefox)
#+end_src
** indent-guide
#+begin_src emacs-lisp
(use-package indent-guide)
(ident-guide-global-mode)
#+end_src
** org-export
#+begin_src emacs-lisp
(require 'ox-latex)
(require 'ox-beamer)
#+end_src
** desktop-environment
#+begin_src emacs-lisp
(use-package desktop-environment)
(desktop-environment-mode)
#+end_src
** arch-linux
#+begin_src emacs-lisp
(use-package arch-packer)
#+end_src
** My org traversal function
#+begin_src emacs-lisp
(defmacro traverse-org-headlines (headline &rest body)
(declare (indent defun))
(let ((buffer-symbol (make-symbol "buffer")))
`(let (,buffer-symbol)
(org-check-agenda-file ,(cadr headline))
(setq ,buffer-symbol (if (file-exists-p ,(cadr headline))
(org-get-agenda-file-buffer ,(cadr headline))
(error "No such file %s" ,(cadr headline))))
(with-current-buffer ,buffer-symbol
(while (and (not (eobp))
(outline-next-heading))
,@body)))))
(defmacro traverse-org-files (files &rest body)
(declare (indent defun))
(let ((file-symbol (make-symbol "file")))
`(dolist (,file-symbol ,(cadr files))
(traverse-org-headlines (,(car files) ,file-symbol)
,@body))))
(insert (format "%s" (macroexpand-all
' (traverse-org-files (a org-agenda-files)
(+ 1 2)))))
#+end_src
* Broken
** mu4e
*** General config

2
custom.el
View file

@ -13,7 +13,7 @@
("~/MEGA/org/agenda/agenda.org" "~/MEGA/org/agenda/reference.org" "~/MEGA/org/agenda/refile.org")))
'(package-selected-packages
(quote
(scrollkeeper elfeed-org elfeed rg ag dumb-jump rainbow-delimiters org-super-agenda htmlize exwm-x keyfreq org-jira eyebrowse omnisharp omnisharp-emacs typescript-mode csharp-mode restclient rjsx-mode go-mode go treemacs org-timeline plantuml-mode pkgbuild-mode airline-themes powerline magit-svn ein emacs-ipython-notebook processing-mode web-mode ledger-mode elpy skewer-mode js2-mode dired-narrow pdf-tools yaml-mode clj-refactor paredit geiser magit ensime yasnippet irony company dired-du ox-reveal oauth2 org-caldav calfw-org calfw-gcal calfw-ical calfw org-bullets ace-jump-mode switch-window counsel smex ivy helm counsel-projectile helm-projectile projectile slime pulseaudio-control evil undo-tree multi-term swiper color-theme-modern org org-plus-contrib use-package exwm))))
(hyperbole eclim alert gscholar-bibtex org-noter pdf-tools md4rd arch-packer interleave sx desktop-environment org-journal-list indent-guide org-board org-brain org-edna org-clock-csv org-clock-convenience org-mru-clock lsp-ui dap-mode lsp-python lsp-rust lsp-java lsp-ruby lsp-mode smart-jump scrollkeeper elfeed-org elfeed rg ag dumb-jump rainbow-delimiters org-super-agenda htmlize exwm-x keyfreq org-jira eyebrowse omnisharp omnisharp-emacs typescript-mode csharp-mode restclient rjsx-mode go-mode go treemacs org-timeline plantuml-mode pkgbuild-mode airline-themes powerline magit-svn ein emacs-ipython-notebook processing-mode web-mode ledger-mode elpy skewer-mode js2-mode dired-narrow yaml-mode clj-refactor paredit geiser magit ensime yasnippet irony company dired-du ox-reveal oauth2 org-caldav calfw-org calfw-gcal calfw-ical calfw org-bullets ace-jump-mode switch-window counsel smex ivy helm counsel-projectile helm-projectile projectile slime pulseaudio-control evil undo-tree multi-term swiper color-theme-modern org org-plus-contrib use-package exwm))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.

1
custom/ts.el Submodule

@ -0,0 +1 @@
Subproject commit b4ddb3f2ef20b70d1053719d58ec77ba2c563b45

2
elfeed.org
View file

@ -72,6 +72,7 @@
**** [[https://www.youtube.com/feeds/videos.xml?channel_id=UCuCkxoKLYO_EQ2GeFtbM_bw][Half as Interesting]]
**** [[https://www.youtube.com/feeds/videos.xml?channel_id=UC9RM-iSvTu1uPJb8X5yp3EQ][Wendover Productions]]
**** [[https://www.youtube.com/feeds/videos.xml?channel_id=UCBsuOBu-dxj5bx1KMgmar5g][TheHappieCat]]
**** [[https://www.youtube.com/feeds/videos.xml?channel_id=UConVfxXodg78Tzh5nNu85Ew][Welch Labs]]
*** ASMR :asmr:
**** [[https://www.youtube.com/feeds/videos.xml?channel_id=UC768XN2ZjMYtNsPT6hcvbCA][Dana ASMR]]
@ -188,7 +189,6 @@
*** [[https://www.youtube.com/feeds/videos.xml?channel_id=UCNGSLqZab4TkgY8cnJQxgtA][psyfile]]
*** [[https://www.youtube.com/feeds/videos.xml?channel_id=UCH4BNI0-FOK2dMXoFtViWHw][It's Okay To Be Smart]]
*** [[https://www.youtube.com/feeds/videos.xml?channel_id=UCJ0yBou72Lz9fqeMXh9mkog][Physics Videos by Eugene Khutoryansky]]
*** [[https://www.youtube.com/feeds/videos.xml?channel_id=UConVfxXodg78Tzh5nNu85Ew][Welch Labs]]
*** [[https://www.youtube.com/feeds/videos.xml?channel_id=UCRIxFJ5UicWOUdoUYyJTD1Q][Gbay99]]
*** [[https://www.youtube.com/feeds/videos.xml?channel_id=UCw26dm5ytO00bdWU3FEx9Jw][Shan-chan]]
*** [[https://www.youtube.com/feeds/videos.xml?channel_id=UCt9ez6CnUQCFEUnxeBGlR9w][FamilyJules]]

18
exwm-x/exwmx-appconfig
View file

@ -1,9 +1,11 @@
(:command "qutebrowser" :alias "qutebrowser" :pretty-name "qutebrowser" :paste-key "C-v" :class "qutebrowser" :instance "qutebrowser" :title "DuckDuckGo — Privacy, simplified. - qutebrowser" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "5a90ddb8976a59d030137fc4414e2918")
(:command "emacs" :alias "emacs" :pretty-name "emacs" :paste-key "C-v" :class "Emacs" :instance "emacs" :title "emacs@ArchLinuvo" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys t :ignore-simulation-keys nil :eval nil :key "d174de6e20bb093cb298146666b92ac1")
(:command "youtube" :alias "youtube" :pretty-name "youtube" :paste-key "C-v" :class "Firefox" :instance "youtube" :title "(4) Water & Dust Resistant PC Case - WHO NEEDS THIS?? - YouTube - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "e63021d849994bb88d64a4d86ed1f4e6")
(:command "school" :alias "school" :pretty-name "school" :paste-key "C-v" :class "Firefox" :instance "school" :title "Pocket: Log In - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "45308901feaebc917a2ff5e74187ea33")
(:command "Navigator" :alias "Navigator" :pretty-name "Navigator" :paste-key "C-v" :class "Firefox" :instance "Navigator" :title "mkropat/jumpapp: A run-or-raise application switcher for any X11 desktop - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "b5686ca42c47fd5dec0b9efe8739ce94")
(:command "pcmanfm" :alias "pcmanfm" :pretty-name "pcmanfm" :paste-key "C-v" :class "Pcmanfm" :instance "pcmanfm" :title "exwm-x" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "50e978cd291dcc11f145ca5835193ae1")
(:command "firefox" :alias "firefox" :pretty-name "firefox" :paste-key "C-v" :class "Firefox" :instance "firefox" :title "Text from Minibuffer - GNU Emacs Lisp Reference Manual - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "b6160ae814a3ea99d1a7636d9c636519")
(:command "work" :alias "work" :pretty-name "work" :paste-key "C-v" :class "Firefox" :instance "work" :title "Pocket: Log In - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "ca58c8720d794df8d0b88c6dceea8c69")
(:command "mgtv" :alias "mgtv" :pretty-name "mgtv" :paste-key "C-v" :class "mgtv" :instance "mgtv" :title "哆啦A梦第二季 第70集 - 视频在线观看 - 哆啦A梦 第二季 - 芒果TV - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "618647de63882e1c4e7209cd22bea289")
(:command "steam" :alias "Steam" :pretty-name "Steam" :paste-key "C-v" :class "Steam" :instance "Steam" :title "Steam" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "a68f5a036e9cd3dd4c8ae09a73f8d3db")
(:command "work" :alias "work" :pretty-name "work" :paste-key "C-v" :class "Firefox" :instance "work" :title "Pocket: Log In - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "ca58c8720d794df8d0b88c6dceea8c69")
(:command "firefox" :alias "firefox" :pretty-name "firefox" :paste-key "C-v" :class "Firefox" :instance "firefox" :title "Text from Minibuffer - GNU Emacs Lisp Reference Manual - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "b6160ae814a3ea99d1a7636d9c636519")
(:command "pcmanfm" :alias "pcmanfm" :pretty-name "pcmanfm" :paste-key "C-v" :class "Pcmanfm" :instance "pcmanfm" :title "exwm-x" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "50e978cd291dcc11f145ca5835193ae1")
(:command "Navigator" :alias "Navigator" :pretty-name "Navigator" :paste-key "C-v" :class "Firefox" :instance "Navigator" :title "mkropat/jumpapp: A run-or-raise application switcher for any X11 desktop - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "b5686ca42c47fd5dec0b9efe8739ce94")
(:command "school" :alias "school" :pretty-name "school" :paste-key "C-v" :class "Firefox" :instance "school" :title "Pocket: Log In - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "45308901feaebc917a2ff5e74187ea33")
(:command "youtube" :alias "youtube" :pretty-name "youtube" :paste-key "C-v" :class "Firefox" :instance "youtube" :title "(4) Water & Dust Resistant PC Case - WHO NEEDS THIS?? - YouTube - Mozilla Firefox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "e63021d849994bb88d64a4d86ed1f4e6")
(:command "emacs" :alias "emacs" :pretty-name "emacs" :paste-key "C-v" :class "Emacs" :instance "emacs" :title "emacs@ArchLinuvo" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys t :ignore-simulation-keys nil :eval nil :key "d174de6e20bb093cb298146666b92ac1")
(:command "qutebrowser" :alias "qutebrowser" :pretty-name "qutebrowser" :paste-key "C-v" :class "qutebrowser" :instance "qutebrowser" :title "DuckDuckGo — Privacy, simplified. - qutebrowser" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "5a90ddb8976a59d030137fc4414e2918")
(:command "VirtualBox Machine" :alias "VirtualBox Machine" :pretty-name "VirtualBox Machine" :paste-key "C-v" :class "VirtualBox Machine" :instance "VirtualBox Machine" :title "Windows 7 [Running] - Oracle VM VirtualBox" :floating nil :size-and-position default :workspace current-workspace :add-prefix-keys nil :remove-prefix-keys nil :ignore-simulation-keys nil :eval nil :key "9032cdf6364297438c1892d892122db3")

418
my-redefs.org
View file

@ -1,3 +1,216 @@
* Filter by top heading, but only top todo heading
#+begin_src emacs-lisp
(defun my/org-find-parent (pos)
(save-excursion
(with-current-buffer (if (markerp pos) (marker-buffer pos) (current-buffer))
(when pos (goto-char pos))
;; Skip up to the topmost parent.
(while (save-excursion
(org-up-heading-safe)
(org-get-todo-state))
(org-up-heading-safe))
(ignore-errors (nth 4 (org-heading-components))))))
(defun org-agenda-filter-by-top-headline (strip)
"Keep only those lines that are descendants from the same top headline.
The top headline is that of the current line."
(interactive "P")
(if org-agenda-filtered-by-top-headline
(progn
(setq org-agenda-filtered-by-top-headline nil
org-agenda-top-headline-filter nil)
(org-agenda-filter-show-all-top-filter))
(let ((toph (my/org-find-parent (org-get-at-bol 'org-hd-marker))))
(if toph (org-agenda-filter-top-headline-apply toph strip)
(error "No top-level headline at point")))))
#+end_src
* org-timeline at beginning of agenda buffer
#+BEGIN_SRC emacs-lisp
(defun org-timeline-insert-timeline ()
"Insert graphical timeline into agenda buffer."
(unless (buffer-narrowed-p)
(goto-char (point-min))
(while (and (not (eq (get-text-property (line-beginning-position) 'org-agenda-type) 'agenda))
(not (eobp)))
(forward-line))
(forward-line)
(unless (eobp)
(let ((inhibit-read-only t))
(insert (org-timeline--generate-timeline))
(insert (propertize (concat "\n" (make-string (/ (window-width) 2) ?─)) 'face 'org-time-grid) "\n"))
;; enable `font-lock-mode' in agenda view to display the "chart"
(font-lock-mode))))
#+END_SRC
* org-caldav bug
#+BEGIN_SRC emacs-lisp
(defun org-caldav-skip-function (backend)
(when (eq backend 'icalendar)
(org-map-entries
(lambda ()
(let ((pt (save-excursion (apply 'org-agenda-skip-entry-if org-caldav-skip-conditions))))
(when (or pt
;;(org-get-repeat)
) ;; No repeating tasks
(org-todo 'none)
(let ((current-prefix-arg '(4)))
(call-interactively 'org-schedule)
(call-interactively 'org-deadline))))))))
#+END_SRC
* Another org-caldav bug
https://github.com/org-trello/org-trello/issues/258
#+BEGIN_SRC emacs-lisp
(defun url-http-end-of-document-sentinel (proc why)
;; Sentinel used to handle (i) terminated old HTTP/0.9 connections,
;; and (ii) closed connection due to reusing a HTTP connection which
;; we believed was still alive, but which the server closed on us.
;; We handle case (ii) by calling `url-http' again.
(url-http-debug "url-http-end-of-document-sentinel in buffer (%s)"
(process-buffer proc))
(url-http-idle-sentinel proc why)
(when (buffer-name (process-buffer proc))
(with-current-buffer (process-buffer proc)
(goto-char (point-min))
(cond ((not (looking-at "HTTP/"))
(if url-http-no-retry
;; HTTP/0.9 just gets passed back no matter what
(url-http-activate-callback)
;; Call `url-http' again if our connection expired.
(erase-buffer)
(let ((url-request-method url-http-method)
(url-request-extra-headers url-http-extra-headers)
(url-request-data url-http-data)
(url-using-proxy (url-find-proxy-for-url
url-current-object
(url-host url-current-object))))
(when url-using-proxy
(setq url-using-proxy
(url-generic-parse-url url-using-proxy)))
(if (string= "https" (url-type url-current-object))
(setq url-gateway-method 'tls))
(url-http url-current-object url-callback-function
url-callback-arguments (current-buffer)))))
((url-http-parse-headers)
(url-http-activate-callback))))))
#+END_SRC
* I don't like the help window behavior
#+BEGIN_SRC emacs-lisp
(defun my/goto-variable (var &optional file)
(when (eq file 'C-source)
(setq file (help-C-file-name var 'var)))
(let* ((location (find-variable-noselect var file))
(position (cdr location)))
(switch-to-buffer (car location))
(run-hooks 'find-function-after-hook)
(if position
(progn
;; Widen the buffer if necessary to go to this position.
(when (or (< position (point-min))
(> position (point-max)))
(widen))
(goto-char position))
(message "Unable to find location in file"))))
(define-button-type 'help-variable-def
:supertype 'help-xref
'help-function #'my/goto-variable
'help-echo (purecopy "mouse-2, RET: find variable's definition"))
(defun my/goto-function (fun &optional file type)
(or file
(setq file (find-lisp-object-file-name fun type)))
(if (not file)
(message "Unable to find defining file")
(require 'find-func)
(when (eq file 'C-source)
(setq file
(help-C-file-name (indirect-function fun) 'fun)))
;; Don't use find-function-noselect because it follows
;; aliases (which fails for built-in functions).
(let ((location
(find-function-search-for-symbol fun type file)))
(switch-to-buffer (car location))
(run-hooks 'find-function-after-hook)
(if (cdr location)
(goto-char (cdr location))
(message "Unable to find location in file")))))
(define-button-type 'help-function-def
:supertype 'help-xref
'help-function #'my/goto-function
'help-echo (purecopy "mouse-2, RET: find function's definition"))
#+END_SRC
* Org agenda supposedly has an option to make no timestamp on a date mean the end of the day
However, the behavior reflected is not so. Therefore, I have added some code to manually add the end-of-day timestamp manually
#+BEGIN_SRC emacs-lisp
(setq org-sort-agenda-notime-is-late t)
(defun my-org-agenda-entry-get-agenda-timestamp (pom)
"Retrieve timestamp information for sorting agenda views.
Given a point or marker POM, returns a cons cell of the timestamp
and the timestamp type relevant for the sorting strategy in
`org-agenda-sorting-strategy-selected'."
(let (ts ts-date-type)
(save-match-data
(cond ((org-em 'scheduled-up 'scheduled-down
org-agenda-sorting-strategy-selected)
(setq ts (org-entry-get pom "SCHEDULED")
ts-date-type " scheduled"))
((org-em 'deadline-up 'deadline-down
org-agenda-sorting-strategy-selected)
(setq ts (org-entry-get pom "DEADLINE")
ts-date-type " deadline"))
((org-em 'ts-up 'ts-down
org-agenda-sorting-strategy-selected)
(setq ts (org-entry-get pom "TIMESTAMP")
ts-date-type " timestamp"))
((org-em 'tsia-up 'tsia-down
org-agenda-sorting-strategy-selected)
(setq ts (org-entry-get pom "TIMESTAMP_IA")
ts-date-type " timestamp_ia"))
((org-em 'timestamp-up 'timestamp-down
org-agenda-sorting-strategy-selected)
(setq ts (or (org-entry-get pom "SCHEDULED")
(org-entry-get pom "DEADLINE")
(org-entry-get pom "TIMESTAMP")
(org-entry-get pom "TIMESTAMP_IA"))
ts-date-type ""))
(t (setq ts-date-type "")))
(cons (when ts
(ignore-errors
(org-time-string-to-seconds
(if (string-match-p ":" ts)
ts
(let ((s (substring ts 0 (1- (length ts))))) ;; Added code here
(concat s
" 23:59>"))))))
ts-date-type))))
(advice-add 'org-agenda-entry-get-agenda-timestamp
:override
#'my-org-agenda-entry-get-agenda-timestamp)
#+END_SRC
* org-mru-clock
Include the tags dammit
#+begin_src emacs-lisp
(defun org-mru-clock-format-entry ()
"Return the parent heading string appended to the heading at point."
(let* ((this (org-get-heading 'no-tags 'no-todo))
(parent
(save-excursion
(org-up-heading-safe)
(concat (org-get-heading 'no-tags 'no-todo)
" "
(string-join (org-get-tags-at) ","))))
(parent-post (if parent
(format " (%s)" parent)
""))
(with-parent (concat this parent-post)))
(if org-mru-clock-keep-formatting
with-parent
(substring-no-properties with-parent))))
#+end_src
* Scan Tags Indent
#+BEGIN_SRC emacs-lisp
(defun get-parent-indent-level ()
@ -177,170 +390,41 @@
(org-hide-archived-subtrees (point-min) (point-max)))
(nreverse rtn)))
#+END_SRC
* org-timeline at beginning of agenda buffer
#+BEGIN_SRC emacs-lisp
(defun org-timeline-insert-timeline ()
"Insert graphical timeline into agenda buffer."
(unless (buffer-narrowed-p)
(goto-char (point-min))
(while (and (not (eq (get-text-property (line-beginning-position) 'org-agenda-type) 'agenda))
(not (eobp)))
(forward-line))
(forward-line)
(unless (eobp)
(let ((inhibit-read-only t))
(insert (org-timeline--generate-timeline))
(insert (propertize (concat "\n" (make-string (/ (window-width) 2) ?─)) 'face 'org-time-grid) "\n"))
;; enable `font-lock-mode' in agenda view to display the "chart"
(font-lock-mode))))
#+END_SRC
* org-caldav bug
#+BEGIN_SRC emacs-lisp
(defun org-caldav-skip-function (backend)
(when (eq backend 'icalendar)
(org-map-entries
(lambda ()
(let ((pt (save-excursion (apply 'org-agenda-skip-entry-if org-caldav-skip-conditions))))
(when (or pt
;;(org-get-repeat)
) ;; No repeating tasks
(org-todo 'none)
(let ((current-prefix-arg '(4)))
(call-interactively 'org-schedule)
(call-interactively 'org-deadline))))))))
#+END_SRC
* Another org-caldav bug
https://github.com/org-trello/org-trello/issues/258
#+BEGIN_SRC emacs-lisp
(defun url-http-end-of-document-sentinel (proc why)
;; Sentinel used to handle (i) terminated old HTTP/0.9 connections,
;; and (ii) closed connection due to reusing a HTTP connection which
;; we believed was still alive, but which the server closed on us.
;; We handle case (ii) by calling `url-http' again.
(url-http-debug "url-http-end-of-document-sentinel in buffer (%s)"
(process-buffer proc))
(url-http-idle-sentinel proc why)
(when (buffer-name (process-buffer proc))
(with-current-buffer (process-buffer proc)
(goto-char (point-min))
(cond ((not (looking-at "HTTP/"))
(if url-http-no-retry
;; HTTP/0.9 just gets passed back no matter what
(url-http-activate-callback)
;; Call `url-http' again if our connection expired.
(erase-buffer)
(let ((url-request-method url-http-method)
(url-request-extra-headers url-http-extra-headers)
(url-request-data url-http-data)
(url-using-proxy (url-find-proxy-for-url
url-current-object
(url-host url-current-object))))
(when url-using-proxy
(setq url-using-proxy
(url-generic-parse-url url-using-proxy)))
(if (string= "https" (url-type url-current-object))
(setq url-gateway-method 'tls))
(url-http url-current-object url-callback-function
url-callback-arguments (current-buffer)))))
((url-http-parse-headers)
(url-http-activate-callback))))))
#+END_SRC
* I don't like the help window behavior
#+BEGIN_SRC emacs-lisp
(defun my/goto-variable (var &optional file)
(when (eq file 'C-source)
(setq file (help-C-file-name var 'var)))
(let* ((location (find-variable-noselect var file))
(position (cdr location)))
(switch-to-buffer (car location))
(run-hooks 'find-function-after-hook)
(if position
(progn
;; Widen the buffer if necessary to go to this position.
(when (or (< position (point-min))
(> position (point-max)))
(widen))
(goto-char position))
(message "Unable to find location in file"))))
(define-button-type 'help-variable-def
:supertype 'help-xref
'help-function #'my/goto-variable
'help-echo (purecopy "mouse-2, RET: find variable's definition"))
(defun my/goto-function (fun &optional file type)
(or file
(setq file (find-lisp-object-file-name fun type)))
(if (not file)
(message "Unable to find defining file")
(require 'find-func)
(when (eq file 'C-source)
(setq file
(help-C-file-name (indirect-function fun) 'fun)))
;; Don't use find-function-noselect because it follows
;; aliases (which fails for built-in functions).
(let ((location
(find-function-search-for-symbol fun type file)))
(switch-to-buffer (car location))
(run-hooks 'find-function-after-hook)
(if (cdr location)
(goto-char (cdr location))
(message "Unable to find location in file")))))
(define-button-type 'help-function-def
:supertype 'help-xref
'help-function #'my/goto-function
'help-echo (purecopy "mouse-2, RET: find function's definition"))
#+END_SRC
* Org agenda supposedly has an option to make no timestamp on a date mean the end of the day
However, the behavior reflected is not so. Therefore, I have added some code to manually add the end-of-day timestamp manually
#+BEGIN_SRC emacs-lisp
(setq org-sort-agenda-notime-is-late t)
(defun my-org-agenda-entry-get-agenda-timestamp (pom)
"Retrieve timestamp information for sorting agenda views.
Given a point or marker POM, returns a cons cell of the timestamp
and the timestamp type relevant for the sorting strategy in
`org-agenda-sorting-strategy-selected'."
(let (ts ts-date-type)
(save-match-data
(cond ((org-em 'scheduled-up 'scheduled-down
org-agenda-sorting-strategy-selected)
(setq ts (org-entry-get pom "SCHEDULED")
ts-date-type " scheduled"))
((org-em 'deadline-up 'deadline-down
org-agenda-sorting-strategy-selected)
(setq ts (org-entry-get pom "DEADLINE")
ts-date-type " deadline"))
((org-em 'ts-up 'ts-down
org-agenda-sorting-strategy-selected)
(setq ts (org-entry-get pom "TIMESTAMP")
ts-date-type " timestamp"))
((org-em 'tsia-up 'tsia-down
org-agenda-sorting-strategy-selected)
(setq ts (org-entry-get pom "TIMESTAMP_IA")
ts-date-type " timestamp_ia"))
((org-em 'timestamp-up 'timestamp-down
org-agenda-sorting-strategy-selected)
(setq ts (or (org-entry-get pom "SCHEDULED")
(org-entry-get pom "DEADLINE")
(org-entry-get pom "TIMESTAMP")
(org-entry-get pom "TIMESTAMP_IA"))
ts-date-type ""))
(t (setq ts-date-type "")))
(cons (when ts
(ignore-errors
(org-time-string-to-seconds
(if (string-match-p ":" ts)
ts
(let ((s (substring ts 0 (1- (length ts))))) ;; Added code here
(concat s
" 23:59>"))))))
ts-date-type))))
(advice-add 'org-agenda-entry-get-agenda-timestamp
:override
#'my-org-agenda-entry-get-agenda-timestamp)
#+END_SRC
* gdb window layout custom
#+begin_src emacs-lisp
(defun gdb-setup-windows ()
"Layout the window pattern for option `gdb-many-windows'."
(gdb-get-buffer-create 'gdb-locals-buffer)
(gdb-get-buffer-create 'gdb-stack-buffer)
(gdb-get-buffer-create 'gdb-breakpoints-buffer)
(set-window-dedicated-p (selected-window) nil)
(switch-to-buffer gud-comint-buffer)
(delete-other-windows)
(let ((win0 (selected-window))
(win1 (split-window nil ( / ( * (window-height) 3) 4)))
(win2 (split-window nil ( / (window-height) 3)))
(win3 (split-window-right)))
(gdb-set-window-buffer (gdb-locals-buffer-name) nil win3)
(select-window win2)
(set-window-buffer
win2
(if gud-last-last-frame
(gud-find-file (car gud-last-last-frame))
(if gdb-main-file
(gud-find-file gdb-main-file)
;; Put buffer list in window if we
;; can't find a source file.
(list-buffers-noselect))))
(setq gdb-source-window (selected-window))
(let ((win4 (split-window-right)))
(gdb-set-window-buffer
(gdb-get-buffer-create 'gdb-disassembly-buffer) nil win4))
(select-window win1)
(gdb-set-window-buffer (gdb-stack-buffer-name))
(let ((win5 (split-window-right)))
(gdb-set-window-buffer (if gdb-show-threads-by-default
(gdb-threads-buffer-name)
(gdb-breakpoints-buffer-name))
nil win5))
(select-window win0)))
#+end_src

BIN
res/001.jpg Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 605 KiB

BIN
res/2000px-Archlinux-icon-crystal-64.svg.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 137 KiB

BIN
res/55604-1.jpg Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 211 KiB

BIN
res/9zpVhD7.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 263 KiB

BIN
res/Cities.jpg Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 3.4 MiB

BIN
res/KMA_Star.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 10 KiB

BIN
res/Ocean.jpg Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 3 MiB

BIN
res/icon41-512.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 30 KiB

BIN
res/illustration-cute-snowflake_53876-2949.jpg Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 16 KiB

BIN
res/snowflake-512.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 29 KiB

BIN
res/windows_10_hero_4k-wallpaper-1920x1080.jpg Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 250 KiB