chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fixing some pdf stuffs

Browse source
This commit is contained in:
Chris Cochrun 2023-11-28 10:23:25 -06:00
parent ca17a42f63
commit cec4337197
2 changed files with 113 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

61
README.org
View file

@ -555,6 +555,9 @@ This evil-collection package includes a lot of other evil based things.
#+end_src
*** General
:PROPERTIES:
:ID: 20231122T062139.870235
:END:
#+begin_src emacs-lisp
(use-package general
:init
@ -568,6 +571,45 @@ This evil-collection package includes a lot of other evil based things.
"find a bible to open"
(interactive)
(find-file "~/org/bibles/"))
(defun chris/transpose-lines (arg)
"Moves the current line or region and follows"
(interactive)
(cond
((and mark-active transient-mark-mode)
(if (> (point) (mark))
(exchange-point-and-mark))
(let ((column (current-column))
(text (delete-and-extract-region (point) (mark))))
(forward-line arg)
(move-to-column column t)
(set-mark (point))
(insert text)
(exchange-point-and-mark)
(setq deactivate-mark nil)))
(t
(beginning-of-line)
(when (or (> arg 0) (not (bobp)))
(forward-line)
(when (or (< arg 0) (not (eobp)))
(transpose-lines arg))
(forward-line -1)))))
(defun chris/transpose-lines-up ()
"Moves the lines up"
(interactive)
(transpose-lines 1)
(forward-line -2)
(indent-according-to-mode))
(defun chris/transpose-lines-down ()
"Moves the lines down"
(interactive)
(forward-line 1)
(transpose-lines 1)
(forward-line -1)
(indent-according-to-mode))
(general-create-definer chris/leader-keys
:keymaps '(normal visual emacs)
:prefix "SPC")
@ -651,6 +693,11 @@ This evil-collection package includes a lot of other evil based things.
"C-S-h" 'evil-window-decrease-width
"zi" 'text-scale-increase
"zd" 'text-scale-decrease)
(general-def 'normal
:states 'normal
:keymaps 'override
"C-M-j" 'chris/transpose-lines-down
"C-M-k" 'chris/transpose-lines-up)
(general-def 'normal Info-mode-map
"RET" 'Info-follow-nearest-node
"p" 'Info-prev
@ -919,10 +966,14 @@ Part of this config includes some special capture templates for my work as a you
(setq org-agenda-custom-commands
'(("w" todo "WAIT")
("f" . "Second brain")
("fa" tags "area+LEVEL=1")
("fr" tags "resource+LEVEL=1")
("fp" tags "project+LEVEL=1")
("fp" . "Projects")
("fpt" "All TFC projects" tags "projecttfc+LEVEL=1")
("fpd" "All Dev projects" tags "projectdev")
("fA" tags "archive+LEVEL=1")
("h" . "Family searches")
("ha" tags "abbie")
("hl" tags "luke")
("hy" tags "ty")
@ -1124,7 +1175,8 @@ Super Agenda gives me a really nice way of making the agenda view look a lot bet
:priority "A")
(:name "Development"
:category "TODO"
:category "dev")
:category "dev"
:scheduled nil)
(:name "Overdue"
:time-grid t
:scheduled past
@ -4126,7 +4178,10 @@ Let's use pdf-tools for a lot better interaction with pdfs.
(custom-set-variables '(pdf-misc-print-program-executable "lpr")
'(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fitplot" "-o sides=two-sided-long-edge"))))
(add-hook 'pdf-view-mode 'pdf-view-fit-page-to-window)
(add-hook 'pdf-view-mode-hook 'pdf-view-fit-page-to-window)
(defun chris/display-line-numbers-off ()
(display-line-numbers-mode -1))
(add-hook 'pdf-view-mode-hook 'chris/display-line-numbers-off)
:general
(general-def
:states 'normal

58
init.el
View file

@ -288,6 +288,45 @@
"find a bible to open"
(interactive)
(find-file "~/org/bibles/"))
(defun chris/transpose-lines (arg)
"Moves the current line or region and follows"
(interactive)
(cond
((and mark-active transient-mark-mode)
(if (> (point) (mark))
(exchange-point-and-mark))
(let ((column (current-column))
(text (delete-and-extract-region (point) (mark))))
(forward-line arg)
(move-to-column column t)
(set-mark (point))
(insert text)
(exchange-point-and-mark)
(setq deactivate-mark nil)))
(t
(beginning-of-line)
(when (or (> arg 0) (not (bobp)))
(forward-line)
(when (or (< arg 0) (not (eobp)))
(transpose-lines arg))
(forward-line -1)))))
(defun chris/transpose-lines-up ()
"Moves the lines up"
(interactive)
(transpose-lines 1)
(forward-line -2)
(indent-according-to-mode))
(defun chris/transpose-lines-down ()
"Moves the lines down"
(interactive)
(forward-line 1)
(transpose-lines 1)
(forward-line -1)
(indent-according-to-mode))
(general-create-definer chris/leader-keys
:keymaps '(normal visual emacs)
:prefix "SPC")
@ -371,6 +410,11 @@
"C-S-h" 'evil-window-decrease-width
"zi" 'text-scale-increase
"zd" 'text-scale-decrease)
(general-def 'normal
:states 'normal
:keymaps 'override
"C-M-j" 'chris/transpose-lines-down
"C-M-k" 'chris/transpose-lines-up)
(general-def 'normal Info-mode-map
"RET" 'Info-follow-nearest-node
"p" 'Info-prev
@ -628,10 +672,14 @@ much faster. The hope is to also make this a faster version of imenu."
(setq org-agenda-custom-commands
'(("w" todo "WAIT")
("f" . "Second brain")
("fa" tags "area+LEVEL=1")
("fr" tags "resource+LEVEL=1")
("fp" tags "project+LEVEL=1")
("fp" . "Projects")
("fpt" "All TFC projects" tags "projecttfc+LEVEL=1")
("fpd" "All Dev projects" tags "projectdev")
("fA" tags "archive+LEVEL=1")
("h" . "Family searches")
("ha" tags "abbie")
("hl" tags "luke")
("hy" tags "ty")
@ -817,7 +865,8 @@ much faster. The hope is to also make this a faster version of imenu."
:priority "A")
(:name "Development"
:category "TODO"
:category "dev")
:category "dev"
:scheduled nil)
(:name "Overdue"
:time-grid t
:scheduled past
@ -3032,7 +3081,10 @@ targets."
(custom-set-variables '(pdf-misc-print-program-executable "lpr")
'(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fitplot" "-o sides=two-sided-long-edge"))))
(add-hook 'pdf-view-mode 'pdf-view-fit-page-to-window)
(add-hook 'pdf-view-mode-hook 'pdf-view-fit-page-to-window)
(defun chris/display-line-numbers-off ()
(display-line-numbers-mode -1))
(add-hook 'pdf-view-mode-hook 'chris/display-line-numbers-off)
:general
(general-def
:states 'normal