;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require svg xml cl-lib color] 2)#@19 (fn &rest ARGS) (defalias 'svg-lib--image #[128 "\300\301!\204\n\302\303!\210\304\305\"\207" [image-type-available-p svg error "svg-lib.el requires Emacs to be compiled with svg support.\n" apply svg-image] 4 (#$ . 183)]) (custom-declare-group 'svg-lib nil "SVG tags, bars & icons." :group 'convenience :prefix "svg-lib-") (custom-declare-face 'svg-lib-button-active-face (list (cons t (cons ':foreground (cons (face-foreground 'default) (cons ':background (cons (face-background 'default) '(:family "RobotoMono Nerd Font" :weight regular :box (:line-width 2 :style nil)))))))) "Default face for active button" :group 'svg-lib) (custom-declare-face 'svg-lib-button-hover-face (list (cons t (cons ':foreground (cons (face-background 'font-lock-comment-face nil 'default) (cons ':background (cons (face-foreground 'font-lock-comment-face nil 'default) '(:family "RobotoMono Nerd Font" :weight semibold :box nil))))))) "default face for when mouse is over the button" :group 'svg-lib) (custom-declare-face 'svg-lib-button-press-face (list (cons t (cons ':foreground (cons (face-background 'default) (cons ':background (cons (face-foreground 'default) '(:family "RobotoMono Nerd Font" :weight semibold :box nil))))))) "Default face for when button is prssed (mouse click or keyboard)" :group 'svg-lib) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\310\311\306\315&\207" [custom-declare-variable svg-lib-icon-collections funcall function #[0 "\300\207" [(("bootstrap" . "https://icons.getbootstrap.com/assets/icons/%s.svg") ("simple" . "https://raw.githubusercontent.com/simple-icons/simple-icons/develop/icons/%s.svg") ("material" . "https://raw.githubusercontent.com/Templarian/MaterialDesign/master/svg/%s.svg") ("octicons" . "https://raw.githubusercontent.com/primer/octicons/main/icons/%s-24.svg") ("boxicons" . "https://boxicons.com/static/img/svg/regular/bx-%s.svg") ("vscode" . "https://raw.githubusercontent.com/microsoft/vscode-icons/main/icons/light/%s.svg"))] 1 #1=""] "Various icons collections stored as (name . base-url).\n\nThe name of the collection is used as a pointer for the various\nicon creation methods. The base-url is a string containing a %s\nsuch that is can be replaced with the name of a specific icon.\nUser is responsible for finding/giving proper names for a given\ncollection (there are way too many to store them)." :type (alist :key-type (string :tag "Name") :value-type (string :tag "URL")) :group svg-lib svg-lib-icons-dir #[0 "\301\302P!\207" [user-emacs-directory expand-file-name ".cache/svg-lib/"] 3 #1#] "svg-lib icons directory." directory] 8)#@104 Compute the default style according to face (which defaults to the default face). (fn &optional FACE) (defalias 'svg-lib-style-compute-default #[256 "\211\206\300\301\302\303\300$\301\304\303\300$\301\305\303\300$\306\307_!\301\310\303\300$\301\311\303\300$\311\310\312\313\314\315\316\317\320\321\322\323\324\325\305\326\327\330\331\332\333\303\334\303\335\336\337\"\340!\341%\257\"\207" [default face-attribute :family nil :weight :height round 0.085 :foreground :background :padding 1 :margin 0 :stroke 2 :radius 3 :alignment 0.5 :width 20 0.9 :scale 0.75 :ascent center :crop-left :crop-right :collection "material" :font-family :font-size :font-weight] 42 (#$ . 2820)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable svg-lib-style-default funcall function #[0 "\300 \207" [svg-lib-style-compute-default] 1 ""] "Default style" :type (plist :key-type (choice (const :tag "Background" :background) (const :tag "Foreground" :foreground) (const :tag "Padding" :padding) (const :tag "Margin" :margin) (const :tag "Stroke" :stroke) (const :tag "Radius" :radius) (const :tag "Ascent" :ascent) (const :tag "Alignment" :alignment) (const :tag "Width" :width) (const :tag "Height" :height) (const :tag "Scale" :scale) (const :tag "Crop Left" :crop-left) (const :tag "Crop Right" :crop-right) (const :tag "Collection" :collection) (const :tag "Font Family" :font-family) (const :tag "Font Size" :font-size) (const :tag "Font Weight" :font-weight)) :value-type (choice (const :tag "None" nil) (number) (string) (boolean) (symbol))) :group svg-lib] 8)#@125 Convert Emacs COLOR-NAME to #rrggbb form. If COLOR-NAME is unknown to Emacs, then return COLOR-NAME as-is. (fn COLOR-NAME) (defalias 'svg-lib-convert-color #[257 "\211\205\300!\211\203\301\302\303\304\"\"\202\262\207" [color-name-to-rgb apply color-rgb-to-hex append (2)] 7 (#$ . 4424)])#@88 Build a news style using BASE and style elements ARGS. (fn &optional BASE &rest ARGS) (defalias 'svg-lib-style #[384 "\206\211\301\211\211\211:\203,\262\211A\262\242\262@\262B\262AA\262\202 \211\237\266\205\301\211\203^\211@\302\"\203L\303\304\n\"#\202U\303\304\"#\262A\266\202\2022\210\303\305\306\304\305\"!#\210\303\307\306\304\307\"!#\210\310\303\311\312\304\311\"\"A\206\211\304\311\"#\266\207" [svg-lib-style-default nil plist-member plist-put plist-get :foreground svg-lib-convert-color :background ((thin . 100) (ultralight . 200) (light . 300) (regular . 400) (medium . 500) (semibold . 600) (bold . 700) (extrabold . 800) (black . 900)) :font-weight assoc] 14 (#$ . 4728)])#@133 Create an image displaying LABEL in a rounded box using given STYLE and style elements ARGS. (fn LABEL &optional STYLE &rest ARGS) (defalias 'svg-lib-tag #[641 "\203 \302\303\304#\202\211\203\302\303#\202\211\305\306\"\305\307\"\305\310\"\305\311\"\305\312\"\305\313\"\305\314\"\305\315\"\305 \316\"\305\n\317\"\305 \320\"\305\f\321\"\305 \322\"\323 \324 \203e\211 \\\202f\211\325\326\327 #!\211\330H\331H\332HG \\__\n_\\\305\333\"Z_\211 G_Z\330\245\\\203\257 Z\202\260\203\275\\\202\277\203\315\330\245Z\202\316\203\332\\\202\333\203\351\330\245\\\202\352\334  \"\335Y\203 \336\337\340&\341!& \210\336\342\245\\\342\245Z Z\340%\341!$\342\245Z& \210\343'\321\322\320\340)\344 \345&\210\346\333 #\207" [svg-lib-style-default line-spacing apply svg-lib-style nil plist-get :foreground :background :crop-left :crop-right :alignment :stroke :height :radius :margin :padding :font-size :font-family :font-weight window-font-width window-font-height font-info format "%s-%d" 2 8 11 :ascent svg-create 0.25 svg-rectangle 0 :fill :rx 2.0 svg-text :x :y svg-lib--image] 53 (#$ . 5469)])#@128 Create a progress pie image with value VALUE using given STYLE and style elements ARGS. (fn VALUE &optional STYLE &rest ARGS) (defalias 'svg-lib-progress-pie #[641 "\203 \302\303\304#\202\211\203\302\303#\202\211\305\306\"\305\307\"\305\310\"\305\311\"\305\312\"\305\313\"\314 \315 \316___\\\305\f\317\"\316\245\316\245\316\245\f\316\245Z\211 Z\n\316\245Z \316\245[\320!_\\\321!_\\\316_ _\\\320!_\\\321!_\\Z Y\322 \"\323Y\203\255\324   \325&\210\324   \326\245Z\325&\210Z \316_Y\203\334\324  \f\325&\210\202\327\330BCD\331\n\nBCD\332 \211\n\n\333\334\335 \257CDE\325$\210\336\317#\207" [svg-lib-style-default float-pi apply svg-lib-style nil plist-get :foreground :background :stroke :height :margin :padding window-font-width window-font-height 2 :ascent cos sin svg-create 0.25 svg-circle :fill 2.0 svg-path moveto lineto elliptical-arc :sweep t :large-arc svg-lib--image] 43 (#$ . 6700)])#@128 Create a progress bar image with value VALUE using given STYLE and style elements ARGS. (fn VALUE &optional STYLE &rest ARGS) (defalias 'svg-lib-progress-bar #[641 "\203 \301\302\303#\202\211\203\301\302#\202\211\304\305\"\304\306\"\304\307\"\304\310\"\304\311\"\304\312\"\304\313\"\304\314\"\315 \316 ___\\\304\317\"Z\320\245\321\" \322Y\203v\323\324  \325\326& \210\323\327\245\\\327\245 Z Z\325\326\327\245Z& \210\323\327\245\\ \\\327\245\f\\\n_Z\320_Z Z\320_Z\325\326\327\245Z& \210\330\317#\207" [svg-lib-style-default apply svg-lib-style nil plist-get :foreground :background :stroke :width :height :radius :margin :padding window-font-width window-font-height :ascent 2 svg-create 0.25 svg-rectangle 0 :fill :rx 2.0 svg-lib--image] 34 (#$ . 7707)])#@149 Retrieve icon NAME from COLLECTION. Cached version is returned if it exists unless FORCE-RELOAD is t. (fn COLLECTION NAME &optional FORCE-RELOAD) (defalias 'svg-lib--icon-get-data #[770 "\302\303\"A\"\304 !\204\305 \306\"\210\307\302\310# \"\204'\304!\204?r\311!q\210eb\210\312\313!\210\314`d#\210p)\202Kr\315\316!q\210\317!\210p)r\211q\210\320ed\")\207" [svg-lib-icon-collections svg-lib-icons-dir format assoc file-exists-p make-directory t expand-file-name "%s_%s.svg" url-retrieve-synchronously search-forward "\n\n" write-region generate-new-buffer " *temp*" insert-file-contents xml-parse-region] 9 (#$ . 8566)])#@138 Create a SVG image displaying icon NAME from COLLECTION using given STYLE and style elements ARGS. (fn ICON &optional STYLE &rest ARGS) (defalias 'svg-lib-icon #[641 "\203 \301\302\303#\202\211\203\301\302#\202\211\304\305\"\306\"\304\307\"\304\310\"\304\311\"\304\312\"\304\313\"\304\314\"\304 \315\"\304\n\316\"\317\\\320 \321 ___\\\304\322\"Z\317\245\323@\211A@\262\236A\324\325\326!\"\211@A@\3178\3278\330 !\330!\245_\331\332[[\333\317#\317\245Z\333\317 #\317\245Z&\334  \"\335Y\203\320\336 \337\340\341& \210\203\374\336 \342\245\\\342\245\343_ZZ\340\341 \342\245Z& \210\344@\345\"\211\203(\211@\211\211A@\262\346\236A\347\345\350\340\"\351 &\266A\266\202\202\210\352\322 #\207" [svg-lib-style-default apply svg-lib-style nil plist-get :collection svg-lib--icon-get-data :foreground :background :stroke :height :radius :scale :margin :padding 2 window-font-width window-font-height :ascent viewBox mapcar string-to-number split-string 3 float format "translate(%f,%f) scale(%f) translate(%f,%f)" / svg-create 0.25 svg-rectangle 0 :fill :rx 2.0 1 xml-get-children path d svg-node :d :transform svg-lib--image] 46 (#$ . 9210)])#@138 Create an image displaying LABEL in a rounded box using given STYLE and style elements ARGS. (fn ICON LABEL &optional STYLE &rest ARGS) (defalias 'svg-lib-icon+tag #[898 "\203 \301\302\303#\202\211\203\301\302#\202\211\304\305\"\306 \"\304\307\"\304\310\"\304\311\"\304\312\"\304\313\"\304\314\"\304 \315\"\304\n\316\"\304 \317\"\304\f\320\"\304 \321\"G\322\\\323 \324 \325\326\327 #!\211\330H\331H\n\\__ _\\\304\332\"Z\322\245\211G_Z\322\245\\\211\\\333@\211A@\262\236A\334\335\336!\"\211@A@\3228\3378\340 !\340!\245_\326\341[[\f\342_Z\245\322\245Z\343\322 #\322\245Z&\344 \"\345Y\203\346 \347\350'\351%& \210\346 !\352\245\\!\352\245#Z$Z\350&\351%(\352\245Z& \210\353*\320\321\317 \350*\354\355&\210\356\"@\357\"\211\203q\211@\211\211A@\262\360\236A\361\357\362\350*\363 &\266A\266\202\202K\210\364\332#\207" [svg-lib-style-default apply svg-lib-style nil plist-get :collection svg-lib--icon-get-data :foreground :background :stroke :height :radius :scale :margin :padding :font-size :font-family :font-weight 2 window-font-width window-font-height font-info format "%s-%d" 8 11 :ascent viewBox mapcar string-to-number split-string 3 float "translate(%f,%f) scale(%f) translate(%f,%f)" 1.25 / svg-create 0.25 svg-rectangle 0 :fill :rx 2.0 svg-text :x :y xml-get-children path d svg-node :d :transform svg-lib--image] 57 (#$ . 10471)])#@131 Create a two lines date icon showing given DATE, using given STYLE and style elements ARGS. (fn &optional DATE STYLE &rest ARGS) (defalias 'svg-lib-date #[640 "\206\300 \301\302\"\226\301\303\"\304\305%\207" [current-time format-time-string "%b" "%d" apply svg-lib-box] 12 (#$ . 11957)])#@131 Create a two lines date icon showing given DATE, using given STYLE and style elements ARGS. (fn &optional DATE STYLE &rest ARGS) (defalias 'svg-lib-week-date #[640 "\206\300 \301\302\"\303\304\305%\207" [current-time format-time-string "%W" apply svg-lib-box "WEEK"] 11 (#$ . 12263)])#@131 Create a two lines date icon showing given DATE, using given STYLE and style elements ARGS. (fn &optional DATE STYLE &rest ARGS) (defalias 'svg-lib-day-date #[640 "\300\301\"\226\300\302\"\303\304%\207" [format-time-string "%a" "%d" apply svg-lib-box] 11 (#$ . 12564)])#@147 Create a two lines icon showing given TOP and BOTTOM text, using given STYLE and style elements ARGS. (fn TOP BOTTOM &optional STYLE &rest ARGS) (defalias 'svg-lib-box #[898 "\203 \301\302\303#\202\211\203\301\302#\202\211\304\305\"\304\306\"\304\307\"\210\303\304\310\"\304\311\"\2066\312\304 \313\"\206?\314\304\315\"\304\316\"\304 \317\"\304\n\320\"\304 \321\"\210\303\322 \323 \324\325\326#!\211\327H\210\303\330H\210\303\331H\210\303\f_\f_\f _\\\304\332\"\206\220\333Z\314\245\334\"\335Y\203\261\336\337  \340\341& \210\336\342\245\\\342\245 Z Z\340\341\342\245Z& \210\336\342\245\\\342\245 Z \314\245Z\340\341\342\245Z& \210\336\342\245\\\342\245\331\245\\ Z \314\245Z\340\341\337& \210\343\320\321\344\317\345_\340\346\347\350\314\245\351\352&\210\343\320\321\344\317\353_\340 \346\347\350\314\245\351\354&\210\355\332#\207" [svg-lib-style-default apply svg-lib-style nil plist-get :foreground :background :alignment :stroke :width 5 :height 2 :radius :margin :font-size :font-family :font-weight window-font-width window-font-height font-info format "%s-%d" 8 11 3 :ascent center svg-create 0.25 svg-rectangle 0 :fill :rx 2.0 svg-text "bold" 0.9 :text-anchor "middle" :x :y "+0.95em" 1.7 "+1.6em" svg-lib--image] 47 (#$ . 12849)])#@72 Concatenate two svg images horizontally. (fn SVG-IMAGE-1 SVG-IMAGE-2) (defalias 'svg-lib-concat #[514 "\300\301\302\"r\211q\210\303\304\"\216\305A\306\"c\210\307ed\"*\262@\211\211A@\262\310\311\236A!\310\312\236A!\211AA\262\300\301\302\"r\211q\210\303\313\"\216\305A\306\"c\210\307ed\"*\262@\211\211A@\262\310\311\236A!\310\312\236A!\211AA\262\\]\314\315 \"\316\" \211\203\216\211@\317\"\210A\266\202\202|\210\211\203\256\211@\211;\204\242\320\321#\210\317\"\210A\266\202\202\220\210\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] plist-get :data xml-parse-region string-to-number width height #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] format "translate(%f,0)" svg-create dom-append-child dom-set-attribute transform] 22 (#$ . 14233)])#@30 SVG button unique id counter (defvar svg-lib-button--id-counter 0 (#$ . 15113))#@53 Return region for the button with given ID (fn ID) (defalias 'svg-lib-button--search #[257 "\212eb\210\301 \302\303\"\216\304\305\306#\211\2059\307!>\204#\310\311\312D\"\210\211\313H\307!>\2045\310\311\312D\"\210\314HB*\207" [cl-struct-prop-match-tags match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] text-property-search-forward button-id t type-of signal wrong-type-argument prop-match 1 2] 8 (#$ . 15198)])#@48 Return the button at point (fn &optional POS) (defalias 'svg-lib-button--at-point #[256 "\300\206`\301\"\207" [get-text-property button-id] 4 (#$ . 15651)])#@57 Return the state of button ID (fn ID &optional REGION) (defalias 'svg-lib-button--get-state #[513 "\211\206\300!\211\205\301@\302\"\207" [svg-lib-button--search get-text-property button-state] 6 (#$ . 15817)])#@131 Set the state of button ID to STATE, reset the state of any hovered button unless NO-RESET is t (fn ID STATE &optional NO-RESET) (defalias 'svg-lib-button--set-state #[770 "\302\300!\203\203\211\204\303\300!\210\304\305\306\"\266\307!\211\205&\310\"\211\205/\311@\312\"\211\2058\313\"A\211\205h\314@A\315$\210\314@A\316 $\210\317\267\202g\303\300!\210\211\207\303\301!\210\211\207\304\207" [svg-lib-button--hover-id svg-lib-button--press-id boundp make-local-variable nil svg-lib-button--set-state active svg-lib-button--search svg-lib-button--get-state get-text-property button-list assoc put-text-property display button-state #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hover 85 press 94))] 12 (#$ . 16040)])#@121 Set currently press or hightlighted button to default state (active) and hover button at point if any. (fn &rest ARGS) (defalias 'svg-lib-button--tooltip-hide #[128 "\302\300!\203 \303\304\"\210\302\301!\203\303 \304\"\210\303\305 \306\"\210\307\310\311\"\207" [svg-lib-button--press-id svg-lib-button--hover-id boundp svg-lib-button--set-state active svg-lib-button--at-point hover advice-remove tooltip-hide svg-lib-button--tooltip-hide] 4 (#$ . 16836)])#@124 Set button under mouse state to hover or press depending on whether mouse button 1 is down (press) or up (hover) (fn POS) (defalias 'svg-lib-button--tooltip-show #[257 ":\203!\301\302\303@\"\304\305\306$\266\203\203!\307\310!\311\"\210\202(\307\310!\312\"\210\313\314\315\316#\207" [last-input-event "down-mouse-1" format "%s" nil string-match t svg-lib-button--set-state svg-lib-button--at-point press hover advice-add tooltip-hide :before svg-lib-button--tooltip-hide] 9 (#$ . 17304)])#@40 Set button under mouse state to press. (defalias 'svg-lib-button--mouse-down #[0 "\212\301!\210\302\303 \304\")\210\305\306\307\310#\207" [last-input-event mouse-set-point svg-lib-button--set-state svg-lib-button--at-point press advice-add tooltip-hide :before svg-lib-button--tooltip-hide] 4 (#$ . 17808) nil])#@231 Set button under mouse state to default state (active) and call button hook. If current buffer is minibuffer, it aborts it. It would be better to simply exit minibuffer but this leads to focus problem if the hook creates a frame. (defalias 'svg-lib-button--mouse-press #[0 "\212\302!\210`)\303!\211\203\304 \305\"\266\202\304 \306\"\266\307 !\211\205)\310@\311\"\211\205?\312\313\314\"\203=\315\316\"\216\317 )\207\211 \207" [last-input-event svg-lib-button--press-id mouse-set-point svg-lib-button--at-point svg-lib-button--set-state hover active svg-lib-button--search get-text-property button-hook minibufferp nil t make-closure #[0 "\300 \207" [V0] 1] abort-minibuffers] 5 (#$ . 18127) nil])#@44 Update the state of the button under mouse (defalias 'svg-lib-button--mouse-drag #[0 "\212\301!\210\302\303 \304\")\207" [last-input-event mouse-set-point svg-lib-button--set-state svg-lib-button--at-point press] 3 (#$ . 18841) nil])#@156 Return a svg tag with given LABEL and FACE. LABEL can be composed as "[collection:icon] label" resulting in an icon+tag button. (fn LABEL &optional FACE) (defalias 'svg-lib-button--make #[513 "\301 \302\303\"\216\206\f\304\305\306\"\203j\307\310\"\211;\203#\211\311\312O\202'\313\314\"\307\315\"\307\316\"\317\320\314\321\313\322 \323\"\324\"\206E\311\325\322\326\320\327$\330\322\331\320\327$\332\333\320\304#\334\335\320\304#&\266\204\202\232\336\320\321\313\322\323\"\324\"\206z\311\325\322\326\320\327$\330\322 \331\320\327$\332\333 \320\304#\334\335 \320\304#&\f)\207" [svg-lib-style-default match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] default string-match "\\[\\([a-zA-Z0-9]+:\\)?\\([a-zA-Z0-9 _-]+\\)\\] *\\(.+\\)" match-string 1 0 -1 plist-get :collection 2 3 svg-lib-icon+tag nil :stroke face-attribute :box :line-width :font-family :family t :font-weight :weight :foreground face-foreground :background face-background svg-lib-tag] 27 (#$ . 19082)])#@479 Make a button with given LABEL that will call HOOK when pressed. The HELP text is displatyed when mouse is hovering the button. ACTIVE-FACE, HOVER-FACE and PRESS-FACE correspond to the different states of the button. LABEL can be composed as "[collection:icon] label" resulting in an icon+tag button. For proper highlighting, `svg-lib-button-mode' needs to be activated before inserting a button into a buffer. (fn LABEL &optional HOOK HELP ACTIVE-FACE HOVER-FACE PRESS-FACE) (defalias 'svg-lib-button #[1537 "\301\206\302\"\301\206\303\"\301\206\304\"\305B\306B\307BET\310\n\311P\312\305\236A\313\314\315\316\305\317 \320\321\322\323\314\324\325\326\314\327\330\331\332\333\334&\335\336\337\340F\341\342&\207" [svg-lib-button--id-counter svg-lib-button--make svg-lib-button-active-face svg-lib-button-hover-face svg-lib-button-press-face active hover press propertize " " display svg-lib-button t button-id button-state button-list button-hook front-sticky nil rear-nonsticky keymap define-keymap :suppress "" svg-lib-button--mouse-down "" svg-lib-button--mouse-press "" svg-lib-button--mouse-drag help-echo lambda (_window _object pos) (svg-lib-button--tooltip-show pos) pointer hand] 38 (#$ . 20117)])#@131 This advice function ensures keymap is not removed when in svg-lib-button-mode (fn ORIG-FUN BEG END PROPERTIES &optional OBJECT) (defalias 'svg-lib-button--remove-text-properties #[1284 "\203\301\302!\203\303\304\"\202$\207" [svg-lib-button-mode derived-mode-p org-mode org-plist-delete keymap] 11 (#$ . 21397)])#@107 Non-nil if Svg-LiB-Button mode is enabled. Use the command `svg-lib-button-mode' to change this variable. (defvar svg-lib-button-mode nil (#$ . 21731)) (make-variable-buffer-local 'svg-lib-button-mode)#@941 Activate svg-lib-button-mode that takes care of activating tooltip mode and removing some properties from `yank-excluded-properties' and `font-lock-extra-managed-props' in order for highlight to work properly. This mode also installs an advice on `remove-text-properties' in org-mode in order to not delete the `keymap' property that is necessary to detect mouse press events. This is a minor mode. If called interactively, toggle the `Svg-LiB-Button mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `svg-lib-button-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'svg-lib-button-mode #[256 "\304 \305=\203 ?\202\247\203\306W\203\307\202\310\311\301!\2031\312\300 \"\2031\300 B\203s\313\314!\210\315\306!\210\316\317\320\321#\210\322\211\203Z\211@\323\302!\210\324\n\"A\266\202\202D\210\325\211\203r\211@\323\303!\210\324 \"A\266\202\202\\\210\204|\326\317\321\"\210\327\330\203\206\331\202\207\332\"\210\333\334!\203\252\304 \203\233\211\304 \232\203\252\335\336\337\203\246\340\202\247\341\342$\210\210\343 \210\207" [svg-lib-button-mode local-minor-modes yank-excluded-properties font-lock-extra-managed-props current-message toggle 1 nil t boundp delq require tooltip tooltip-mode advice-add remove-text-properties :around svg-lib-button--remove-text-properties (help-echo keymap) make-local-variable remove (help-echo keymap display) advice-remove run-hooks svg-lib-button-mode-hook svg-lib-button-mode-on-hook svg-lib-button-mode-off-hook called-interactively-p any message "%s %sabled%s" "Svg-LiB-Button mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 21939) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar svg-lib-button-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316!\207" [svg-lib-button-mode-map svg-lib-button-mode-hook variable-documentation put "Hook run after entering or leaving `svg-lib-button-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode svg-lib-button-mode "B" boundp provide svg-lib] 6)