- (unless (use-region-p) (error "No region selected"))
- (let ((bn (file-name-nondirectory (buffer-file-name))))
- (kill-region (region-beginning) (region-end))
- (with-current-buffer (find-file-noselect "fridge")
- (goto-char (point-max))
- (insert "\n")
- (insert "######################################################################\n")
- (insert "\n"
- (format-time-string "%Y %b %d %H:%M:%S" (current-time))
- " (from "
- bn
- ")\n\n")
- (yank)
- (save-buffer)
- (message "Region moved to fridge")
- )
- )
- )
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Let's be zen. Remove the modeline and fringes.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(setq ff/zen-original-setting nil)
-
-(defun ff/zen () (interactive)
- (if ff/zen-original-setting
- (setq mode-line-format (car ff/zen-original-setting)
- fringe-mode (cdr ff/zen-original-setting)
- ff/zen-original-setting nil)
- (setq ff/zen-original-setting (cons mode-line-format fringe-mode)
- mode-line-format nil
- fringe-mode '(0 . 0))
- (delete-other-windows)
- )
- (fringe-mode fringe-mode)
- (if ff/zen-original-setting
- (message "Zen mode")
- (message "Cluttered mode"))
- )
-
-;; (define-key global-map [(control x) (x)] 'ff/zen)
+ (unless (use-region-p) (error "No region selected"))
+ (let ((bn (file-name-nondirectory (buffer-file-name))))
+ (kill-region (region-beginning) (region-end))
+ (with-current-buffer (find-file-noselect "fridge")
+ (goto-char (point-max))
+ (insert "\n")
+ (insert "######################################################################\n")
+ (insert "\n"
+ (format-time-string "%Y %b %d %H:%M:%S" (current-time))
+ " (from "
+ bn
+ ")\n\n")
+ (yank)
+ (save-buffer)
+ (message "Region moved to fridge")
+ )
+ )
+ )