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

Disable this for now

Browse source
This commit is contained in:
Benson Chu 2021-07-03 08:30:28 -05:00
parent 7f010af998
commit 9fb78454cf
1 changed files with 15 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
config-org.org
View file

@ -133,7 +133,7 @@
(interactive) (interactive)
(forward-char 6) (forward-char 6)
(while (condition-case nil (while (condition-case nil
(progn (progn
(previous-line) (previous-line)
(org-clock-convenience-goto-ts) (org-clock-convenience-goto-ts)
nil) nil)
@ -328,7 +328,7 @@
(interactive "MName: ") (interactive "MName: ")
(switch-to-buffer (find-file-noselect (concat "~/MEGA/org/random/" filename ".org")))) (switch-to-buffer (find-file-noselect (concat "~/MEGA/org/random/" filename ".org"))))
(defun make-encrypted-org-file (filename) (defun make-encrypted-org-file (filename)
(interactive "MName: ") (interactive "MName: ")
(switch-to-buffer (find-file-noselect (concat "~/MEGA/org/random/" filename ".gpg"))) (switch-to-buffer (find-file-noselect (concat "~/MEGA/org/random/" filename ".gpg")))
(insert "# -*- mode:org; epa-file-encrypt-to: (\"bensonchu457@gmail.com\") -*-\n\n") (insert "# -*- mode:org; epa-file-encrypt-to: (\"bensonchu457@gmail.com\") -*-\n\n")
@ -549,19 +549,20 @@
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package org-noter (use-package org-noter
:config :config
(unless (eq 'hash-table (type-of face-new-frame-defaults)) ;; (unless (eq 'hash-table (type-of face-new-frame-defaults))
(require 'face-copier) ;; (require 'face-copier)
(def-face-copier x-show-tip-faces (sym) ;; (def-face-copier x-show-tip-faces (sym)
nil ;; nil
tooltip) ;; tooltip)
(defun dont-copy-faces-for-x-show-tip (orig &rest args) ;; (defun dont-copy-faces-for-x-show-tip (orig &rest args)
(override1-face x-show-tip-faces ;; (override1-face x-show-tip-faces
(apply orig args))) ;; (apply orig args)))
(advice-add #'x-show-tip ;; (advice-add #'x-show-tip
:around ;; :around
#'dont-copy-faces-for-x-show-tip))) ;; #'dont-copy-faces-for-x-show-tip))
)
(use-package exwm (use-package exwm
:config :config
@ -717,7 +718,7 @@
(define-key org-agenda-mode-map (kbd "U") #'org-agenda-remove-restriction-lock) (define-key org-agenda-mode-map (kbd "U") #'org-agenda-remove-restriction-lock)
#+end_src #+end_src
* Org mode magit update commands * Org mode magit update commands
#+begin_src #+begin_src
(when (executable-find "~/bin/gitwatch") (when (executable-find "~/bin/gitwatch")
(defun start-gitwatch () (defun start-gitwatch ()
(interactive) (interactive)