Mercurial > hg > xemacs-beta

comparison lisp/package-ui.el @ 852:d83885ef293b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-05-25 01:55:29 by youngs] 2002-05-25 Steve Youngs <youngs@xemacs.org> * package-ui.el (pui-help-echo): Display both installed and author version. Use a balloon-help window to display extra info like package requires.
author youngs
date Sat, 25 May 2002 01:55:30 +0000
parents 59c2a61efa7d
children 02909207294a
comparison
equal deleted inserted replaced
851:e7ee5f8bde58 852:d83885ef293b
486 486
487 (defun pui-help-echo (extent &optional force-update) 487 (defun pui-help-echo (extent &optional force-update)
488 "Display additional package info in the modeline. 488 "Display additional package info in the modeline.
489 EXTENT determines the package to display (the package information is 489 EXTENT determines the package to display (the package information is
490 attached to the extent as properties)." 490 attached to the extent as properties)."
491 (let (pkg-sym info inst-ver auth-ver date maintainer) 491 (let (pkg-sym info inst-ver auth-ver date maintainer balloon req)
492 (if (or force-update (not (current-message)) 492 (if (or force-update (not (current-message))
493 (string-match ".*: .*: " (current-message)) 493 (string-match ".*: .*: " (current-message))
494 ) 494 )
495 (progn 495 (progn
496 (setq pkg-sym (extent-property extent 'pui-package) 496 (setq pkg-sym (extent-property extent 'pui-package)
497 info (extent-property extent 'pui-info) 497 info (extent-property extent 'pui-info)
498 inst-ver (package-get-key pkg-sym :version) 498 inst-ver (package-get-key pkg-sym :version)
499 auth-ver (package-get-info-prop info 'author-version) 499 auth-ver (package-get-info-prop info 'author-version)
500 date (package-get-info-prop info 'date) 500 date (package-get-info-prop info 'date)
501 maintainer (package-get-info-prop info 'maintainer)) 501 maintainer (package-get-info-prop info 'maintainer)
502 req (package-get-info-prop info 'requires))
502 (if (not inst-ver) 503 (if (not inst-ver)
503 (setq inst-ver "")) 504 (setq inst-ver 0))
505 (if (featurep 'balloon-help)
506 (progn
507 (setq balloon (format "
508 Package Information: [For package: \"%s\"]
509 ================
510 Installed Version : %.2f
511 Author Version : %s
512 Maintainer : %s
513 Released : %s
514 Required Packages : %s\n\n"
515 pkg-sym inst-ver auth-ver maintainer
516 date req))
517 (set-extent-property extent 'balloon-help balloon)))
504 (if pui-list-verbose 518 (if pui-list-verbose
505 (format "Author version: %-8s %11s: %s" 519 (format
506 auth-ver date maintainer) 520 "Inst V: %.2f Auth V: %s Maint: %s"
507 (format "%-6s: %-8s %11s: %s" 521 inst-ver auth-ver maintainer)
508 inst-ver auth-ver date maintainer)) 522 (format "%.2f : %s : %s"
523 inst-ver auth-ver maintainer))
509 )) 524 ))
510 )) 525 ))
511 526
512 (defun pui-display-info (&optional no-error event) 527 (defun pui-display-info (&optional no-error event)
513 "Display additional package info in the modeline. 528 "Display additional package info in the modeline.