Lines Matching +defs:select +defs:printer
67 (defcustom ses-initial-default-printer "%.7g"
68 "Initial default printer for a new spreadsheet."
95 (defvar ses-read-printer-history nil
96 "List of printer functions that have been typed in.")
113 "\C-c\C-p" ses-read-default-printer
132 ["Set column printer" ses-read-column-printer t]
134 ["Set default printer" ses-read-default-printer t]
136 ["Set cell printer" ses-read-cell-printer t]
176 "p" ses-read-cell-printer
179 "\M-p" ses-read-column-printer))
234 "(ses-default-printer \"%.7g\")\n"
243 (defconst ses-standard-printer-functions
246 "List of print functions to be included in initial history of printer
247 functions. None of these standard-printer functions is suitable for use as a
248 column printer or a global-default printer because they invoke the column or
249 default printer and then modify its output.")
259 ses--curcell-overlay ses--default-printer ses--deferred-narrow
275 '(ses--col-widths -5 ses--col-printers -4 ses--default-printer -3
297 (defvar ses-call-printer-return nil
298 "Set to t if last cell printer invoked by `ses-call-printer' requested
299 left-justification of the result. Set to error-signal if ses-call-printer
317 (defsubst ses-make-cell (&optional symbol formula printer references)
318 (vector symbol formula printer references))
328 (defmacro ses-cell-printer (row &optional col)
345 (defmacro ses-col-printer (col)
346 "Return the default printer for column COL."
354 (defmacro ses-cell (sym value formula printer references)
361 (ses-printer-record printer)
365 (or (not printer)
366 (stringp printer)
368 (setq printer `(ses-safe-printer ,printer)))
371 (ses-make-cell sym formula printer references)))
393 (aset printers x (ses-safe-printer (aref printers x))))
395 (mapc 'ses-printer-record printers)
398 (defmacro ses-default-printer (def)
399 "Load the global default printer from the spreadsheet file and checks it
401 (setq ses--default-printer (ses-safe-printer def))
402 (ses-printer-record def)
484 (defun ses-printer-validate (printer)
485 "Signals an error if PRINTER is not a valid SES cell printer."
486 (or (not printer)
487 (stringp printer)
488 (functionp printer)
489 (and (stringp (car-safe printer)) (not (cdr printer)))
490 (error "Invalid printer function"))
491 printer)
493 (defun ses-printer-record (printer)
494 "Add PRINTER to `ses-read-printer-history' if not already there, after first
495 checking that it is a valid printer function."
496 (ses-printer-validate printer)
498 (if printer
499 (add-to-list 'ses-read-printer-history (prin1-to-string printer))))
573 (elt (plist-get '(value t symbol 0 formula 1 printer 2 references 3)
627 formula-error printer-error)
646 (setq printer-error (ses-print-cell row col))
647 (or formula-error printer-error)))
650 "Delete formula and printer for cell (ROW,COL)."
651 (ses-set-cell row col 'printer nil)
766 Use the cell's printer function. If the cell's new print form is too wide,
769 or the error signal if the printer function failed and the cell was formatted
775 (printer (ses-cell-printer cell))
786 ;;Deferred safety-check on printer
787 (if (eq (car-safe printer) 'ses-safe-printer)
788 (ses-set-cell row col 'printer
789 (setq printer (ses-safe-printer (cadr printer)))))
791 (setq text (ses-call-printer (or printer
792 (ses-col-printer col)
793 ses--default-printer)
795 (if (consp ses-call-printer-return)
797 (setq sig ses-call-printer-return))))
805 text (if (eq ses-call-printer-return t)
879 (defun ses-call-printer (printer &optional value)
882 string. The variable `ses-call-printer-return' is set to t if the printer
884 printer signaled one (and \"%s\" is used as the default printer), else nil."
885 (setq ses-call-printer-return nil)
890 ((stringp printer)
891 (format printer value))
892 ((stringp (car-safe printer))
893 (setq ses-call-printer-return t)
894 (format (car printer) value))
896 (setq value (funcall printer value))
901 (setq ses-call-printer-return t)
904 (setq ses-call-printer-return signal)
957 ses--default-printer, ses--numrows, or ses--numcols."
982 ses--default-printer "(ses-default-printer %S)"
1007 rowcol row col cell sym formula printer text)
1020 printer (ses-cell-printer cell))
1023 (if (eq (car-safe printer) 'ses-safe-printer)
1024 (setq printer (cadr printer)))
1033 (prin1-to-string printer)
1379 ;;Initialize printer and symbol lists
1380 (mapc 'ses-printer-record ses-standard-printer-functions)
1400 (def-printer (read (current-buffer)))
1408 (eq (car-safe def-printer) 'ses-default-printer)
1414 (1value (eval def-printer))
1534 (unless (equal ses-initial-default-printer (1value ses--default-printer))
1535 (1value (ses-read-default-printer ses-initial-default-printer)))
1681 "Recreate the display area. Calls all printer functions. Narrows to
1710 For an individual cell, shows the error if the formula or printer
1817 ;;Placeholders for col-widths, col-printers, default-printer, header-row
1825 (ses-set-parameter 'ses--default-printer ses--default-printer)
1914 "Delete formula and printer for current cell and then move to next cell.
1944 ;; Input of cell-printer functions
1947 (defun ses-read-printer (prompt default)
1948 "Common code for `ses-read-cell-printer', `ses-read-column-printer', and `ses-read-default-printer'.
1960 'ses-read-printer-history
1963 ;;User changed mind, decided not to change printer
1965 (ses-printer-validate new)
1973 (defun ses-read-cell-printer (newval)
1974 "Set the printer function for the current cell or range.
1976 A printer function is either a string (a format control-string with one
1986 ;;Default is none if not all cells in range have same printer
1987 (catch 'ses-read-cell-printer
1989 (setq x (ses-cell-printer row col))
1990 (if (eq (car-safe x) 'ses-safe-printer)
1995 ;;Range contains differing printer functions
1997 (throw 'ses-read-cell-printer t)))))
1998 (list (ses-read-printer (format "Cell %S printer: " ses--curcell)
2003 (ses-set-cell row col 'printer newval)
2006 (defun ses-read-column-printer (col newval)
2007 "Set the printer function for the current column. See
2008 `ses-read-cell-printer' for input forms."
2012 (list col (ses-read-printer (format "Column %s printer: "
2014 (ses-col-printer col)))))
2023 (defun ses-read-default-printer (newval)
2024 "Set the default printer function for cells that have no other. See
2025 `ses-read-cell-printer' for input forms."
2027 (list (ses-read-printer "Default printer: " ses--default-printer)))
2030 (ses-set-parameter 'ses--default-printer newval)
2071 (let ((cols (mapconcat #'ses-call-printer ses--col-printers nil))
2072 (global (ses-call-printer ses--default-printer)))
2126 (defun ses-insert-column (count &optional col width printer)
2137 printer (ses-col-printer col)))
2164 ;;Insert column width and printer
2166 printers (ses-vector-insert printers col printer)))
2173 (when (or (> (length (ses-call-printer printer)) 0)
2174 (> (length (ses-call-printer ses--default-printer)) 0))
2175 ;;Either column printer or global printer inserts some constant text
2256 (ses-col-printer col)))))
2354 (ses-cell-printer mycell))
2440 ignored because the column widths, default printer, etc. at yank time might
2479 (unless (equal x (ses-cell-printer myrow mycol))
2482 (eq (car-safe x) 'ses-safe-printer)
2483 (setq x `(ses-safe-printer ,x)))
2484 (ses-set-cell myrow mycol 'printer x))
2588 (ses-col-printer (1- ses--numcols)))))
2764 (select-window (posn-window event))
2816 (defun ses-safe-printer (printer)
2817 "Returns PRINTER if safe, or the substitute printer `ses-unsafe' otherwise."
2818 (if (or (stringp printer)
2819 (stringp (car-safe printer))
2820 (not printer)
2821 (ses-warn-unsafe printer 'unsafep-function))
2822 printer
2877 (defmacro ses-select (fromrange test torange)
2886 (error "ses-select: Ranges not same length"))
2896 ses-select))
2916 (let ((printer (or (ses-col-printer col) ses--default-printer))
2921 (setq value (ses-call-printer printer value))
2957 "Substitute for an unsafe formula or printer"
2958 (error "Unsafe formula or printer"))
2961 (dolist (x (cons 'ses-unsafe ses-standard-printer-functions))