"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/texmacs/menus/file-menu.scm" between
TeXmacs-1.99.8-src.tar.gz and TeXmacs-1.99.9-src.tar.gz

About: GNU TeXmacs is a what-you-see-is-what-you-get scientific text editor, which was both inspired by TeX and GNU Emacs.

file-menu.scm  (TeXmacs-1.99.8-src):file-menu.scm  (TeXmacs-1.99.9-src)
skipping to change at line 65 skipping to change at line 65
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (short-menu-name u) (define (short-menu-name u)
(if (not (url-rooted-tmfs? u)) (if (not (url-rooted-tmfs? u))
(url->system (url-tail u)) (url->system (url-tail u))
(tmfs-title u `(document "")))) (tmfs-title u `(document ""))))
(define (long-menu-name u) (define (long-menu-name u)
(url->system u)) (url->system u))
(tm-menu (file-list-menu l) (tm-menu (file-list-menu l win?)
(for (name l) (for (name l)
(let* ((short-name `(verbatim ,(short-menu-name name))) (let* ((short-name `(verbatim ,(short-menu-name name)))
(long-name `(verbatim ,(long-menu-name name)))) (long-name `(verbatim ,(long-menu-name name))))
((balloon (eval short-name) (eval long-name)) ((balloon (eval short-name) (eval long-name))
(load-buffer name))))) (if win? (load-document name) (load-buffer name))))))
(tm-define (recent-file-list nr) (tm-define (recent-file-list nr)
(let* ((l1 (map cdar (learned-interactive "recent-buffer"))) (let* ((l1 (map cdar (learned-interactive "recent-buffer")))
(l2 (map unix->url l1)) (l2 (map unix->url l1))
(l3 (list-filter l2 buffer-in-recent-menu?))) (l3 (list-filter l2 buffer-in-recent-menu?)))
(sublist l3 0 (min (length l3) nr)))) (sublist l3 0 (min (length l3) nr))))
(tm-define (recent-unloaded-file-list nr) (tm-define (recent-unloaded-file-list nr)
(let* ((l1 (map cdar (learned-interactive "recent-buffer"))) (let* ((l1 (map cdar (learned-interactive "recent-buffer")))
(l2 (map unix->url l1)) (l2 (map unix->url l1))
(l3 (list-filter l2 buffer-in-recent-menu?)) (l3 (list-filter l2 buffer-in-recent-menu?))
(dl (list-difference l3 (buffer-list)))) (dl (list-difference l3 (buffer-list))))
(sublist dl 0 (min (length dl) nr)))) (sublist dl 0 (min (length dl) nr))))
(tm-define (recent-file-menu) (tm-define (recent-file-menu)
(file-list-menu (recent-file-list 25))) (file-list-menu (recent-file-list 25) #t))
(tm-define (recent-unloaded-file-menu) (tm-define (recent-unloaded-file-menu)
(with l (list-difference (recent-unloaded-file-list 15) (linked-file-list)) (with l (list-difference (recent-unloaded-file-list 15) (linked-file-list))
(file-list-menu l))) (file-list-menu l #f)))
(tm-define (linked-file-menu) (tm-define (linked-file-menu)
(file-list-menu (list-remove-duplicates (linked-file-list)))) (file-list-menu (list-remove-duplicates (linked-file-list)) #f))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dynamic menus for formats ;; Dynamic menus for formats
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(tm-menu (import-menu flag?) (tm-menu (import-menu flag?)
(with l (converters-to-special "texmacs-file" "-file" #f) (with l (converters-to-special "texmacs-file" "-file" #f)
(for (fm l) (for (fm l)
(let* ((name (format-get-name fm)) (let* ((name (format-get-name fm))
(load-text (string-append "Load " (string-downcase name) " file")) (load-text (string-append "Load " (string-downcase name) " file"))
skipping to change at line 129 skipping to change at line 129
((eval text) (choose-file (buffer-exporter fm) save-text fm)))))) ((eval text) (choose-file (buffer-exporter fm) save-text fm))))))
(tm-define (export-top-menu) (export-menu #t)) (tm-define (export-top-menu) (export-menu #t))
(tm-define (export-export-menu) (export-menu #f)) (tm-define (export-export-menu) (export-menu #f))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Submenus of the File menu and for the icon bar ;; Submenus of the File menu and for the icon bar
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind new-file-menu (menu-bind new-file-menu
("New document" (new-buffer)) (if (window-per-buffer?)
("Open new window" (open-window)) ("New window" (new-document))
("New document" (new-document*)))
(if (not (window-per-buffer?))
("New document" (new-document))
("New window" (new-document*)))
;;("Clone window" (clone-window)) ;;("Clone window" (clone-window))
) )
(menu-bind load-menu (menu-bind load-menu
("Load" (open-buffer)) ("Load" (open-document))
("Revert" (revert-buffer)) ("Revert" (revert-buffer))
("Load in new window" (choose-file load-buffer-in-new-window "Load file" "")) (if (window-per-buffer?)
("Load in same window" (open-document*)))
(if (not (window-per-buffer?))
("Load in new window" (open-document*)))
--- ---
(link import-top-menu) (link import-top-menu)
(if (nnull? (recent-file-list 1)) (if (nnull? (recent-file-list 1))
--- ---
(link recent-file-menu))) (link recent-file-menu)))
(menu-bind save-menu (menu-bind save-menu
("Save" (save-buffer)) ("Save" (save-buffer))
("Save as" (choose-file save-buffer-as "Save TeXmacs file" "texmacs")) ("Save as" (choose-file save-buffer-as "Save TeXmacs file" "texmacs"))
--- ---
skipping to change at line 197 skipping to change at line 204
(if (not (use-print-dialog?)) (if (not (use-print-dialog?))
--- ---
(link print-menu-sub) (link print-menu-sub)
---) ---)
(if (use-menus?) (if (use-menus?)
(-> "Page setup" (link page-setup-menu))) (-> "Page setup" (link page-setup-menu)))
(if (use-popups?) (if (use-popups?)
("Page setup" (open-page-setup)))) ("Page setup" (open-page-setup))))
(menu-bind close-menu (menu-bind close-menu
("Close document" (safely-kill-buffer)) (if (window-per-buffer?)
("Close window" (safely-kill-window)) ("Close window" (close-document))
("Close document" (close-document*)))
(if (not (window-per-buffer?))
("Close document" (close-document))
("Close window" (close-document*)))
("Close TeXmacs" (safely-quit-TeXmacs))) ("Close TeXmacs" (safely-quit-TeXmacs)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The File menu ;; The File menu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind file-menu (menu-bind file-menu
("New" (new-buffer)) ("New" (new-document))
("Load" (open-buffer)) ("Load" (open-document))
("Revert" (revert-buffer)) ("Revert" (revert-buffer))
(-> "Recent" (-> "Recent"
(link recent-file-menu) (link recent-file-menu)
(if (nnull? (recent-file-list 1)) ---) (if (nnull? (recent-file-list 1)) ---)
(when (nnull? (recent-file-list 1)) (when (nnull? (recent-file-list 1))
("Clear menu" (forget-interactive "recent-buffer")))) ("Clear menu" (forget-interactive "recent-buffer"))))
--- ---
("Save" (save-buffer)) ("Save" (save-buffer))
("Save as" (choose-file save-buffer-as "Save TeXmacs file" "texmacs")) ("Save as" (choose-file save-buffer-as "Save TeXmacs file" "texmacs"))
--- ---
skipping to change at line 234 skipping to change at line 245
--- ---
("Pdf" (choose-file wrapped-print-to-file "Save pdf file" "pdf")) ("Pdf" (choose-file wrapped-print-to-file "Save pdf file" "pdf"))
("Postscript" ("Postscript"
(choose-file wrapped-print-to-file "Save postscript file" "postscript")) (choose-file wrapped-print-to-file "Save postscript file" "postscript"))
(when (selection-active-any?) (when (selection-active-any?)
("Export selection as image" ("Export selection as image"
(choose-file ;; no warning on overwrite! (choose-file ;; no warning on overwrite!
export-selection-as-graphics export-selection-as-graphics
"Save image file" "")))) "Save image file" ""))))
--- ---
("Close document" (safely-kill-buffer)) (if (window-per-buffer?)
("Close window" (close-document)))
(if (not (window-per-buffer?))
("Close document" (close-document)))
("Close TeXmacs" (safely-quit-TeXmacs))) ("Close TeXmacs" (safely-quit-TeXmacs)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The Go menu ;; The Go menu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind go-menu (menu-bind go-menu
(when (cursor-has-history?) (when (cursor-has-history?)
("Back" (cursor-history-backward))) ("Back" (cursor-history-backward)))
(when (cursor-has-future?) (when (cursor-has-future?)
 End of changes. 11 change blocks. 
14 lines changed or deleted 28 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)