From c7c1db477d534f46be5763f05541e00d5916bed0 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 31 Mar 2021 01:40:24 +0100 Subject: unused org-mode stuff removed --- lib/org/jao-org-popup.el | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100644 lib/org/jao-org-popup.el (limited to 'lib/org/jao-org-popup.el') diff --git a/lib/org/jao-org-popup.el b/lib/org/jao-org-popup.el deleted file mode 100644 index eb5b24d..0000000 --- a/lib/org/jao-org-popup.el +++ /dev/null @@ -1,31 +0,0 @@ -;;; frame popups -;; http://metajack.im/2008/12/30/gtd-capture-with-emacs-orgmode/ -(defsubst jao-remember--frame-p () - (equal "*Remember*" (frame-parameter nil 'name))) - -(defadvice remember-finalize (after delete-remember-frame activate) - "Advise remember-finalize to close the frame if it is the remember frame" - (when (jao-remember--frame-p) (delete-frame))) - -(defadvice remember-destroy (after delete-remember-frame activate) - "Advise remember-destroy to close the frame if it is the remember frame" - (when (jao-remember--frame-p) (delete-frame))) - -;; make the frame contain a single window. by default org-remember -;; splits the window. -(defun jao-remember--delete-other-windows () - (when (jao-remember--frame-p) (delete-other-windows))) - -(add-hook 'remember-mode-hook 'jao-remember--delete-other-windows) - -(defun make-remember-frame () - "Create a new frame and run org-remember" - (interactive) - (make-frame-on-display (getenv "DISPLAY") - '((name . "*Remember*") - (width . 80) - (height . 10))) - (select-frame-by-name "*Remember*") - (org-remember nil ?x)) - -(provide 'jao-org-popup) \ No newline at end of file -- cgit v1.2.3