├── README.org ├── buffer-combine.el ├── LICENSE └── show-css.el /README.org: -------------------------------------------------------------------------------- 1 | 2 | * Show CSS 3 | 4 | 5 | ** Overview 6 | 7 | Show CSS is a minor mode for Emacs. 8 | 9 | With showcss-mode turned on, as you navigate around an HTML file the 10 | matching css for that element will be displayed in another buffer. 11 | 12 | All the css will display combined in one buffer and any edits made 13 | there will be sent back to the source css buffer. 14 | 15 | [[http://i.imgur.com/8aqkIGY.gif]] 16 | 17 | 18 | ** Features 19 | 20 | - Displays a breadcrumb of the current elements parents 21 | - Displays the css for the current element grouped by file 22 | - Each field that shows the css is editable, and any changes are sent 23 | back to the source file 24 | - =ctrl-x ctrl-s= in the display buffer, saves the source buffers 25 | - The default mode showcss uses is css-mode, but it can be set to any 26 | other mode such as sass-mode if your working with sass files 27 | 28 | 29 | *** What doesn't work 30 | 31 | All this is a fancy display for some regex searching. What is does 32 | not do is apply any parsing of the found results to see if it actually 33 | applies to the current tag. 34 | 35 | The way it works now, is that for each tag and for each parent tag, it 36 | searches all the associated css buffers for any matches for the tag 37 | name, id name, and any class names. 38 | 39 | There is no css parsing, so a selector such as: =div ul{...}= or =div > ul{...}= 40 | won't won't mean anything to showcss. If your on a div tag, both 41 | those results would be displayed even though they don't apply to the 42 | div tag. 43 | 44 | So in short, you get more info that you want. 45 | 46 | 47 | **** Options 48 | 49 | I am currently investigating how to deal with this. Some options are: 50 | 51 | 1. Use remote debugging with chrome 52 | 2. Find a third party css parser 53 | 3. Write a css parser in Emacs 54 | 55 | The first would be the easiest to program, but the most complex for 56 | the user. They would have to start a browser, load a file in it, then 57 | connect to it from Emacs. And then the info would be for a file in 58 | the browser, not the edited file in Emacs. The user would have to 59 | save the file each time they wanted acurate information about it. 60 | 61 | Also (I suspect) that I couldn't get the specific file location of the 62 | css that applies to the tag so I could display that buffer location in 63 | Emacs. 64 | 65 | The second option requires the user to install a third party library 66 | or program and has the same drawbacks as the first option. 67 | 68 | The third option would be the best option, no external dependancies, 69 | but it would be difficult to build. Best case if I built it (which I 70 | do not have the skills for), it would never support all css selectors, 71 | only the most common. 72 | 73 | If anyone has any ideas, I'd be glad to hear them! 74 | 75 | 76 | 77 | ** Dependencies 78 | 79 | - *cl-lib* 80 | - *dom* - http://www.emacswiki.org/cgi-bin/wiki?XmlParser 81 | - *s* - https://github.com/magnars/s.el#functions 82 | 83 | *cl-lib* is available through GNU ELPA, and *dom* and *s* are available 84 | through [[http://melpa.milkbox.net/][MELPA]] 85 | 86 | 87 | ** Compatibility 88 | 89 | Emacs 24 90 | 91 | 92 | ** Usage 93 | 94 | Put this in your init.el or .emacs file: 95 | 96 | #+BEGIN_SRC emacs-lisp 97 | (autoload 'showcss-mode "show_css" 98 | "Display the css of the class or id the cursor is at" t) 99 | #+END_SRC 100 | 101 | Personally, I find this mode to distracting to use all the time, so I 102 | use this function to quickly toggle the mode on and off. 103 | 104 | #+BEGIN_SRC emacs-lisp 105 | (defun sm/toggle-showcss() 106 | "Toggle showcss-mode" 107 | (interactive) 108 | (if (derived-mode-p 109 | 'html-mode 110 | 'nxml-mode 111 | 'nxhtml-mode 112 | 'web-mode 113 | 'handlebars-mode) 114 | (showcss-mode 'toggle) 115 | (message "Not in an html mode"))) 116 | (global-set-key (kbd "C-c C-k") 'sm/toggle-showcss) 117 | #+END_SRC 118 | 119 | 120 | ** Older version 121 | 122 | The older version is at: 123 | [[https://github.com/smmcg/showcss-mode/tree/505d8374bc35e8e76ca7f14cce25dc9e6c9d9570]] 124 | -------------------------------------------------------------------------------- /buffer-combine.el: -------------------------------------------------------------------------------- 1 | ;;; buffer-combine.el --- Display parts of other buffers in one display buffer 2 | ;; 3 | ;; Copyright (C) 2012 Sheldon McGrandle 4 | ;; 5 | ;; Author: Sheldon McGrandle 6 | ;; Version: 0.1 7 | ;; Created: 12th April 2013 8 | ;; Keywords: utility 9 | ;; URL: https://github.com/smmcg/showcss-mode 10 | ;; 11 | ;; This file is not part of GNU Emacs. 12 | ;; 13 | ;; This program is free software; you can redistribute it and/or modify 14 | ;; it under the terms of the GNU General Public License as published by 15 | ;; the Free Software Foundation; either version 2, or (at your option) 16 | ;; any later version. 17 | ;; 18 | ;; This program is distributed in the hope that it will be useful, 19 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 20 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 21 | ;; GNU General Public License for more details. 22 | ;; 23 | ;; You should have received a copy of the GNU General Public License 24 | ;; along with GNU Emacs; see the file COPYING. If not, write to the 25 | ;; author of this program or to the Free Software Foundation, 675 Mass 26 | ;; Ave, Cambridge, MA 02139, USA. 27 | 28 | ;;; Commentary: 29 | ;; 30 | ;; DESCRIPTION AND USAGE 31 | ;; 32 | ;; (let ((buf (generate-new-buffer "Some name for display"))) 33 | ;; (set-buffer buf) ;create a new buffer and set focus to it 34 | ;; (buffer-combine-mode) ;turn on buffer combine mode 35 | ;; (bc/start data :readonly nil :hidden nil)) ;send it the data 36 | ;; 37 | ;; Data structure bc/start requires: 38 | ;; '((filename-or-buffer (start end) (start end) ...) 39 | ;; (another-filename-or-buffer (start end) ...) 40 | ;; (...)) 41 | ;; 42 | ;; INSTALLATION 43 | ;; 44 | ;; BUGS 45 | 46 | 47 | ;;; Code: 48 | 49 | (require 'cl-lib) 50 | (require 's) 51 | 52 | 53 | (defvar bc/buffers-data nil 54 | "data format: 55 | '((filename overlay1 overlay2 overlay3) 56 | (anotherfile overlay1 overlay2))") 57 | ;; (make-local-variable bc/buffers-data) 58 | 59 | (defvar bc/this-buffer nil) 60 | ;; (make-local-variable bc/this-buffer) 61 | 62 | 63 | (cl-defun bc/start (data parents &key (readonly nil) (hidden nil)) 64 | "Recieve and parse the data 65 | two optional flags readonly and hidden" 66 | (set-buffer (get-buffer-create "Show CSS")) 67 | (add-hook 'kill-buffer-hook 'bc/remove-source-overlays nil t) 68 | (setq bc/this-buffer (current-buffer)) 69 | (eval (read (format "(%s)" showcss/display-buffer-mode))) 70 | (bc/remove-source-overlays) 71 | (let ((buffers-data '())) 72 | (dolist (filelist data) 73 | ;; for each file and its fragment positions: 74 | (let ((buffer (bc/load-file (car filelist) hidden))) 75 | ;; for each fragment position: 76 | (setq buffers-data 77 | (cons (bc/mark-fragments-in-source buffer (cdr filelist)) 78 | buffers-data))));) 79 | (setq bc/buffers-data buffers-data) 80 | (bc/build-display buffers-data parents)) 81 | (display-buffer bc/this-buffer)) 82 | 83 | 84 | ;; rewrite so this function assumes a buffer 85 | ;; only, instead of a buffer or file. 86 | (defun bc/load-file (file hidden) 87 | "Load the files from disk and if hidden is t, 88 | rename them with a space in front of the buffer title" 89 | (let ((return-buffer nil)) 90 | ;; if file is actually a buffer, do nothing 91 | (if (bufferp file) 92 | ;; return: 93 | (setq return-buffer file) 94 | ;; since file is a string, see if its 95 | ;; already loaded in a buffer 96 | (dolist (b (buffer-list)) 97 | (when (string= (buffer-file-name b) (file-truename file)) 98 | (setq return-buffer b)))) 99 | ;; since file is not a buffer and its not 100 | ;; already loaded, load it now 101 | (unless return-buffer 102 | (setq return-buffer (find-file-noselect file))) 103 | 104 | (set-buffer return-buffer) 105 | (cond (hidden 106 | (rename-buffer (concat " " (s-trim-left (buffer-name))))) 107 | ;; if file is *not* to be hidden but it is already, 108 | ;; unhide it by removing the space at the begining. 109 | ((s-starts-with? " " (buffer-name)) 110 | (rename-buffer (s-trim-left (buffer-name))))) 111 | 112 | ;;return: 113 | return-buffer)) 114 | 115 | 116 | (defun bc/mark-fragments-in-source(buffer fragments) 117 | "Iterate over all the fragments in one buffer" 118 | (set-buffer buffer) 119 | ;;(remove-overlays) 120 | (add-hook 'first-change-hook 'bc/set-modification-flag nil t) 121 | (add-hook 'after-save-hook 'bc/unset-modification-flag nil t) 122 | 123 | (let ((buffer-overlay-list (cons buffer '()))) 124 | (dolist (fragment fragments) 125 | (setq buffer-overlay-list 126 | (cons 127 | (bc/mark-fragment-in-source 128 | buffer 129 | (nth 0 fragment) ;start 130 | (nth 1 fragment)) ;end 131 | buffer-overlay-list))) 132 | (reverse buffer-overlay-list))) 133 | 134 | 135 | (defun bc/set-modification-flag(&optional beginning end length) 136 | (bc/change-modification-flag 'on)) 137 | 138 | (defun bc/unset-modification-flag() 139 | (bc/change-modification-flag 'off)) 140 | 141 | (defun bc/change-modification-flag(state &optional bname) 142 | "Set a modification flag if the source buffer has changed" 143 | (let ((source-buffer (or bname (buffer-name)))) 144 | (set-buffer bc/this-buffer) 145 | (dolist (ov (overlays-in (point-min) (point-max))) 146 | (when (string= (overlay-get ov 'filename) source-buffer) 147 | (goto-char (overlay-start ov)) 148 | (if (eq state 'on) 149 | (unless (looking-at "*") 150 | (insert "*")) 151 | (when (looking-at "*") 152 | (delete-char 1))))))) 153 | 154 | 155 | (defun bc/mark-fragment-in-source (buffer start end) 156 | "Mark a fragment in a buffer with an overlay" 157 | (let ((ov (make-overlay start end))) 158 | (overlay-put ov 'face 'showcss/source-region-face) 159 | (overlay-put ov 'before-string 160 | "Changes made in the following region will be 161 | |overwritten by edits made in the Show CSS buffer:\n") 162 | (overlay-put ov 'line-prefix "|") 163 | (overlay-put ov 'wrap-prefix "|") 164 | 165 | ;; return : 166 | ov)) 167 | 168 | 169 | (defun bc/build-display(buffers-data parents) 170 | "Build the display for each fragment" 171 | (set-buffer bc/this-buffer) 172 | (remove-overlays) 173 | (erase-buffer) 174 | 175 | ;; Insert breadcrumb 176 | (insert (showcss/build-breadcrumb parents)) 177 | 178 | ;; Insert file names 179 | (let ((dupe-list nil)) 180 | (dolist (file-and-overlays buffers-data) 181 | (let* ((buf (car file-and-overlays)) 182 | (header-ov nil) 183 | (header-path-ov nil) 184 | (path (file-name-directory (buffer-file-name buf))) 185 | (save-point nil)) 186 | 187 | (unless (memq (buffer-file-name buf) dupe-list) 188 | 189 | (insert (format "\n%s" (file-name-nondirectory 190 | (buffer-file-name buf)))) 191 | (setq header-ov (make-overlay 192 | (progn (move-beginning-of-line nil) (point)) 193 | (progn (move-end-of-line nil) (point)) nil nil nil)) 194 | (overlay-put header-ov 'face 'showcss/header-face) 195 | ;; this is here so it can be easily found 196 | (overlay-put header-ov 'filename (file-name-nondirectory 197 | (buffer-file-name buf))) 198 | (insert " ") 199 | ;; view button 200 | (insert-text-button 201 | "View" 202 | 'action (lambda (button) 203 | (switch-to-buffer 204 | (button-get button 'source-buffer) nil t)) 205 | 'source-buffer buf 206 | 'follow-link t 207 | 'help-echo (format "Switch to %s" 208 | (file-name-nondirectory (buffer-file-name buf)))) 209 | (insert " ") 210 | ;; save button 211 | (insert-text-button 212 | "Save" 213 | 'action (lambda (button) 214 | (set-buffer (button-get button 'source-buffer)) (save-buffer)) 215 | 'source-buffer buf 216 | 'follow-link t 217 | 'help-echo (format "Save %s" 218 | (file-name-nondirectory (buffer-file-name buf)))) 219 | (insert "\n") 220 | ;; insert file path 221 | (setq save-point (point)) 222 | (insert path) 223 | (setq header-path-ov (make-overlay save-point (point))) 224 | (overlay-put header-path-ov 'face 'showcss/header-filepath-face) 225 | 226 | ;(insert "\n")) 227 | 228 | ;; add the file name to the duplicate list 229 | (setq dupe-list (cons (buffer-file-name buf) dupe-list)) 230 | ) 231 | 232 | (insert "\n") 233 | 234 | ;; clear duplicate list so it can be used with the fragments 235 | (setq dupe-list nil) 236 | 237 | ;; Insert css 238 | (dolist (source-ov (cdr file-and-overlays)) 239 | (let* ((source-start (overlay-start source-ov)) 240 | (source-end (overlay-end source-ov)) 241 | (display-length (- source-end source-start))) 242 | ;; insert css fragments 243 | (insert-buffer-substring-no-properties 244 | buf 245 | (overlay-start source-ov) 246 | (overlay-end source-ov)) 247 | (let ((display-ov (make-overlay 248 | (point) (- (point) display-length) nil nil nil))) 249 | (overlay-put display-ov 'before-string "\n") 250 | (overlay-put display-ov 'modification-hooks 251 | '(bc/send-back-to-source)) 252 | (overlay-put display-ov 'source-overlay source-ov) 253 | (overlay-put display-ov 'face 'showcss/region-face) 254 | (overlay-put display-ov 'line-prefix " ") 255 | ;; if the fragment doesn't end in a newline, add one to the display 256 | (unless (string= (string (char-before (overlay-end display-ov))) "\n") 257 | (insert "\n"))) 258 | ))))) 259 | (goto-char (point-min))) 260 | 261 | 262 | (defun bc/send-back-to-source(ov &optional flag &rest rv) 263 | "Any edits made in the display buffer are sent back to the 264 | linked overlay in the source buffer" 265 | (when flag 266 | (let ((here (point))) 267 | (bc/change-modification-flag 268 | 'on 269 | (buffer-name (overlay-buffer (overlay-get ov 'source-overlay)))) 270 | (goto-char here)) 271 | (let* ((source-ov (overlay-get ov 'source-overlay)) 272 | (source-start (overlay-start source-ov)) 273 | (source-end (overlay-end source-ov)) 274 | (display-start (overlay-start ov)) 275 | (display-end (overlay-end ov)) 276 | (content (buffer-substring-no-properties 277 | display-start display-end))) 278 | (set-buffer (overlay-buffer source-ov)) 279 | (goto-char source-start) 280 | (insert content) 281 | (delete-region (point) (overlay-end source-ov)) 282 | ;; set modification flag 283 | ))) 284 | 285 | 286 | (defun bc/save-source-buffers() 287 | (interactive) 288 | "Save all the source buffers" 289 | (message "saving source buffers") 290 | (dolist (buffer-and-fragments bc/buffers-data) 291 | (let ((buffer (car buffer-and-fragments))) 292 | (set-buffer buffer) 293 | (save-buffer)))) 294 | 295 | 296 | (defun bc/remove-source-overlays() 297 | "Remove all the overlays from the source buffers" 298 | (dolist (buffer-and-fragments bc/buffers-data) 299 | (let ((buffer (car buffer-and-fragments))) 300 | (when buffer 301 | (set-buffer buffer) 302 | (remove-hook 'first-change-hook 'bc/set-modification-flag) 303 | (remove-hook 'after-save-hook 'bc/unset-modification-flag) 304 | (dolist (ov (cdr buffer-and-fragments)) 305 | (delete-overlay ov)) 306 | 307 | ;; temporary only. This will delete ALL overlays 308 | ;; even if set from another mode. 309 | (dolist (ov (overlays-in (point-min) (point-max))) 310 | (delete-overlay ov)))))) 311 | 312 | 313 | (defvar buffer-combine-mode-map 314 | (let ((map (make-sparse-keymap))) 315 | (define-key map (read-kbd-macro "C-x C-s") 'bc/save-source-buffers) 316 | map) 317 | "some documentation") 318 | 319 | 320 | ;; derive from css-mode, sass-mode? 321 | ;; (define-derived-mode buffer-combine-mode css-mode "Combine" 322 | ;; "Display fragments from other buffers 323 | ;; \\{buffer-combine-mode-map}" 324 | ;; 325 | ;; (setq bc/this-buffer (current-buffer)) 326 | ;; (add-hook 'kill-buffer-hook 'bc/remove-source-overlays nil t)) 327 | ;; 328 | ;; (if buffer-combine-mode 329 | ;; (progn 330 | ;; (setq bc/this-buffer (current-buffer)) 331 | ;; (add-hook 'kill-buffer-hook 'bc/remove-source-overlays nil t)) 332 | ;; (bc/remove-source-overlays)) 333 | 334 | 335 | (provide 'buffer-combine) 336 | ;; Local Variables: 337 | ;; indent-tabs-mode: nil 338 | ;; End: 339 | ;;; buffer-combine.el ends here 340 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | GNU GENERAL PUBLIC LICENSE 2 | Version 2, June 1991 3 | 4 | Copyright (C) 1989, 1991 Free Software Foundation, Inc., 5 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 6 | Everyone is permitted to copy and distribute verbatim copies 7 | of this license document, but changing it is not allowed. 8 | 9 | Preamble 10 | 11 | The licenses for most software are designed to take away your 12 | freedom to share and change it. By contrast, the GNU General Public 13 | License is intended to guarantee your freedom to share and change free 14 | software--to make sure the software is free for all its users. This 15 | General Public License applies to most of the Free Software 16 | Foundation's software and to any other program whose authors commit to 17 | using it. (Some other Free Software Foundation software is covered by 18 | the GNU Lesser General Public License instead.) You can apply it to 19 | your programs, too. 20 | 21 | When we speak of free software, we are referring to freedom, not 22 | price. Our General Public Licenses are designed to make sure that you 23 | have the freedom to distribute copies of free software (and charge for 24 | this service if you wish), that you receive source code or can get it 25 | if you want it, that you can change the software or use pieces of it 26 | in new free programs; and that you know you can do these things. 27 | 28 | To protect your rights, we need to make restrictions that forbid 29 | anyone to deny you these rights or to ask you to surrender the rights. 30 | These restrictions translate to certain responsibilities for you if you 31 | distribute copies of the software, or if you modify it. 32 | 33 | For example, if you distribute copies of such a program, whether 34 | gratis or for a fee, you must give the recipients all the rights that 35 | you have. You must make sure that they, too, receive or can get the 36 | source code. And you must show them these terms so they know their 37 | rights. 38 | 39 | We protect your rights with two steps: (1) copyright the software, and 40 | (2) offer you this license which gives you legal permission to copy, 41 | distribute and/or modify the software. 42 | 43 | Also, for each author's protection and ours, we want to make certain 44 | that everyone understands that there is no warranty for this free 45 | software. If the software is modified by someone else and passed on, we 46 | want its recipients to know that what they have is not the original, so 47 | that any problems introduced by others will not reflect on the original 48 | authors' reputations. 49 | 50 | Finally, any free program is threatened constantly by software 51 | patents. We wish to avoid the danger that redistributors of a free 52 | program will individually obtain patent licenses, in effect making the 53 | program proprietary. To prevent this, we have made it clear that any 54 | patent must be licensed for everyone's free use or not licensed at all. 55 | 56 | The precise terms and conditions for copying, distribution and 57 | modification follow. 58 | 59 | GNU GENERAL PUBLIC LICENSE 60 | TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 61 | 62 | 0. This License applies to any program or other work which contains 63 | a notice placed by the copyright holder saying it may be distributed 64 | under the terms of this General Public License. The "Program", below, 65 | refers to any such program or work, and a "work based on the Program" 66 | means either the Program or any derivative work under copyright law: 67 | that is to say, a work containing the Program or a portion of it, 68 | either verbatim or with modifications and/or translated into another 69 | language. (Hereinafter, translation is included without limitation in 70 | the term "modification".) Each licensee is addressed as "you". 71 | 72 | Activities other than copying, distribution and modification are not 73 | covered by this License; they are outside its scope. The act of 74 | running the Program is not restricted, and the output from the Program 75 | is covered only if its contents constitute a work based on the 76 | Program (independent of having been made by running the Program). 77 | Whether that is true depends on what the Program does. 78 | 79 | 1. You may copy and distribute verbatim copies of the Program's 80 | source code as you receive it, in any medium, provided that you 81 | conspicuously and appropriately publish on each copy an appropriate 82 | copyright notice and disclaimer of warranty; keep intact all the 83 | notices that refer to this License and to the absence of any warranty; 84 | and give any other recipients of the Program a copy of this License 85 | along with the Program. 86 | 87 | You may charge a fee for the physical act of transferring a copy, and 88 | you may at your option offer warranty protection in exchange for a fee. 89 | 90 | 2. You may modify your copy or copies of the Program or any portion 91 | of it, thus forming a work based on the Program, and copy and 92 | distribute such modifications or work under the terms of Section 1 93 | above, provided that you also meet all of these conditions: 94 | 95 | a) You must cause the modified files to carry prominent notices 96 | stating that you changed the files and the date of any change. 97 | 98 | b) You must cause any work that you distribute or publish, that in 99 | whole or in part contains or is derived from the Program or any 100 | part thereof, to be licensed as a whole at no charge to all third 101 | parties under the terms of this License. 102 | 103 | c) If the modified program normally reads commands interactively 104 | when run, you must cause it, when started running for such 105 | interactive use in the most ordinary way, to print or display an 106 | announcement including an appropriate copyright notice and a 107 | notice that there is no warranty (or else, saying that you provide 108 | a warranty) and that users may redistribute the program under 109 | these conditions, and telling the user how to view a copy of this 110 | License. (Exception: if the Program itself is interactive but 111 | does not normally print such an announcement, your work based on 112 | the Program is not required to print an announcement.) 113 | 114 | These requirements apply to the modified work as a whole. If 115 | identifiable sections of that work are not derived from the Program, 116 | and can be reasonably considered independent and separate works in 117 | themselves, then this License, and its terms, do not apply to those 118 | sections when you distribute them as separate works. But when you 119 | distribute the same sections as part of a whole which is a work based 120 | on the Program, the distribution of the whole must be on the terms of 121 | this License, whose permissions for other licensees extend to the 122 | entire whole, and thus to each and every part regardless of who wrote it. 123 | 124 | Thus, it is not the intent of this section to claim rights or contest 125 | your rights to work written entirely by you; rather, the intent is to 126 | exercise the right to control the distribution of derivative or 127 | collective works based on the Program. 128 | 129 | In addition, mere aggregation of another work not based on the Program 130 | with the Program (or with a work based on the Program) on a volume of 131 | a storage or distribution medium does not bring the other work under 132 | the scope of this License. 133 | 134 | 3. You may copy and distribute the Program (or a work based on it, 135 | under Section 2) in object code or executable form under the terms of 136 | Sections 1 and 2 above provided that you also do one of the following: 137 | 138 | a) Accompany it with the complete corresponding machine-readable 139 | source code, which must be distributed under the terms of Sections 140 | 1 and 2 above on a medium customarily used for software interchange; or, 141 | 142 | b) Accompany it with a written offer, valid for at least three 143 | years, to give any third party, for a charge no more than your 144 | cost of physically performing source distribution, a complete 145 | machine-readable copy of the corresponding source code, to be 146 | distributed under the terms of Sections 1 and 2 above on a medium 147 | customarily used for software interchange; or, 148 | 149 | c) Accompany it with the information you received as to the offer 150 | to distribute corresponding source code. (This alternative is 151 | allowed only for noncommercial distribution and only if you 152 | received the program in object code or executable form with such 153 | an offer, in accord with Subsection b above.) 154 | 155 | The source code for a work means the preferred form of the work for 156 | making modifications to it. For an executable work, complete source 157 | code means all the source code for all modules it contains, plus any 158 | associated interface definition files, plus the scripts used to 159 | control compilation and installation of the executable. However, as a 160 | special exception, the source code distributed need not include 161 | anything that is normally distributed (in either source or binary 162 | form) with the major components (compiler, kernel, and so on) of the 163 | operating system on which the executable runs, unless that component 164 | itself accompanies the executable. 165 | 166 | If distribution of executable or object code is made by offering 167 | access to copy from a designated place, then offering equivalent 168 | access to copy the source code from the same place counts as 169 | distribution of the source code, even though third parties are not 170 | compelled to copy the source along with the object code. 171 | 172 | 4. You may not copy, modify, sublicense, or distribute the Program 173 | except as expressly provided under this License. Any attempt 174 | otherwise to copy, modify, sublicense or distribute the Program is 175 | void, and will automatically terminate your rights under this License. 176 | However, parties who have received copies, or rights, from you under 177 | this License will not have their licenses terminated so long as such 178 | parties remain in full compliance. 179 | 180 | 5. You are not required to accept this License, since you have not 181 | signed it. However, nothing else grants you permission to modify or 182 | distribute the Program or its derivative works. These actions are 183 | prohibited by law if you do not accept this License. Therefore, by 184 | modifying or distributing the Program (or any work based on the 185 | Program), you indicate your acceptance of this License to do so, and 186 | all its terms and conditions for copying, distributing or modifying 187 | the Program or works based on it. 188 | 189 | 6. Each time you redistribute the Program (or any work based on the 190 | Program), the recipient automatically receives a license from the 191 | original licensor to copy, distribute or modify the Program subject to 192 | these terms and conditions. You may not impose any further 193 | restrictions on the recipients' exercise of the rights granted herein. 194 | You are not responsible for enforcing compliance by third parties to 195 | this License. 196 | 197 | 7. If, as a consequence of a court judgment or allegation of patent 198 | infringement or for any other reason (not limited to patent issues), 199 | conditions are imposed on you (whether by court order, agreement or 200 | otherwise) that contradict the conditions of this License, they do not 201 | excuse you from the conditions of this License. If you cannot 202 | distribute so as to satisfy simultaneously your obligations under this 203 | License and any other pertinent obligations, then as a consequence you 204 | may not distribute the Program at all. For example, if a patent 205 | license would not permit royalty-free redistribution of the Program by 206 | all those who receive copies directly or indirectly through you, then 207 | the only way you could satisfy both it and this License would be to 208 | refrain entirely from distribution of the Program. 209 | 210 | If any portion of this section is held invalid or unenforceable under 211 | any particular circumstance, the balance of the section is intended to 212 | apply and the section as a whole is intended to apply in other 213 | circumstances. 214 | 215 | It is not the purpose of this section to induce you to infringe any 216 | patents or other property right claims or to contest validity of any 217 | such claims; this section has the sole purpose of protecting the 218 | integrity of the free software distribution system, which is 219 | implemented by public license practices. Many people have made 220 | generous contributions to the wide range of software distributed 221 | through that system in reliance on consistent application of that 222 | system; it is up to the author/donor to decide if he or she is willing 223 | to distribute software through any other system and a licensee cannot 224 | impose that choice. 225 | 226 | This section is intended to make thoroughly clear what is believed to 227 | be a consequence of the rest of this License. 228 | 229 | 8. If the distribution and/or use of the Program is restricted in 230 | certain countries either by patents or by copyrighted interfaces, the 231 | original copyright holder who places the Program under this License 232 | may add an explicit geographical distribution limitation excluding 233 | those countries, so that distribution is permitted only in or among 234 | countries not thus excluded. In such case, this License incorporates 235 | the limitation as if written in the body of this License. 236 | 237 | 9. The Free Software Foundation may publish revised and/or new versions 238 | of the General Public License from time to time. Such new versions will 239 | be similar in spirit to the present version, but may differ in detail to 240 | address new problems or concerns. 241 | 242 | Each version is given a distinguishing version number. If the Program 243 | specifies a version number of this License which applies to it and "any 244 | later version", you have the option of following the terms and conditions 245 | either of that version or of any later version published by the Free 246 | Software Foundation. If the Program does not specify a version number of 247 | this License, you may choose any version ever published by the Free Software 248 | Foundation. 249 | 250 | 10. If you wish to incorporate parts of the Program into other free 251 | programs whose distribution conditions are different, write to the author 252 | to ask for permission. For software which is copyrighted by the Free 253 | Software Foundation, write to the Free Software Foundation; we sometimes 254 | make exceptions for this. Our decision will be guided by the two goals 255 | of preserving the free status of all derivatives of our free software and 256 | of promoting the sharing and reuse of software generally. 257 | 258 | NO WARRANTY 259 | 260 | 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY 261 | FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN 262 | OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES 263 | PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED 264 | OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 265 | MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS 266 | TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE 267 | PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, 268 | REPAIR OR CORRECTION. 269 | 270 | 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING 271 | WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR 272 | REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, 273 | INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING 274 | OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED 275 | TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY 276 | YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER 277 | PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE 278 | POSSIBILITY OF SUCH DAMAGES. 279 | 280 | END OF TERMS AND CONDITIONS 281 | 282 | How to Apply These Terms to Your New Programs 283 | 284 | If you develop a new program, and you want it to be of the greatest 285 | possible use to the public, the best way to achieve this is to make it 286 | free software which everyone can redistribute and change under these terms. 287 | 288 | To do so, attach the following notices to the program. It is safest 289 | to attach them to the start of each source file to most effectively 290 | convey the exclusion of warranty; and each file should have at least 291 | the "copyright" line and a pointer to where the full notice is found. 292 | 293 | {{description}} 294 | Copyright (C) {{year}} {{fullname}} 295 | 296 | This program is free software; you can redistribute it and/or modify 297 | it under the terms of the GNU General Public License as published by 298 | the Free Software Foundation; either version 2 of the License, or 299 | (at your option) any later version. 300 | 301 | This program is distributed in the hope that it will be useful, 302 | but WITHOUT ANY WARRANTY; without even the implied warranty of 303 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 304 | GNU General Public License for more details. 305 | 306 | You should have received a copy of the GNU General Public License along 307 | with this program; if not, write to the Free Software Foundation, Inc., 308 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 309 | 310 | Also add information on how to contact you by electronic and paper mail. 311 | 312 | If the program is interactive, make it output a short notice like this 313 | when it starts in an interactive mode: 314 | 315 | Gnomovision version 69, Copyright (C) year name of author 316 | Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. 317 | This is free software, and you are welcome to redistribute it 318 | under certain conditions; type `show c' for details. 319 | 320 | The hypothetical commands `show w' and `show c' should show the appropriate 321 | parts of the General Public License. Of course, the commands you use may 322 | be called something other than `show w' and `show c'; they could even be 323 | mouse-clicks or menu items--whatever suits your program. 324 | 325 | You should also get your employer (if you work as a programmer) or your 326 | school, if any, to sign a "copyright disclaimer" for the program, if 327 | necessary. Here is a sample; alter the names: 328 | 329 | Yoyodyne, Inc., hereby disclaims all copyright interest in the program 330 | `Gnomovision' (which makes passes at compilers) written by James Hacker. 331 | 332 | {signature of Ty Coon}, 1 April 1989 333 | Ty Coon, President of Vice 334 | 335 | This General Public License does not permit incorporating your program into 336 | proprietary programs. If your program is a subroutine library, you may 337 | consider it more useful to permit linking proprietary applications with the 338 | library. If this is what you want to do, use the GNU Lesser General 339 | Public License instead of this License. 340 | -------------------------------------------------------------------------------- /show-css.el: -------------------------------------------------------------------------------- 1 | ;;; show-css.el --- Show the css of the html attribute the cursor is on 2 | ;; 3 | ;; Copyright (C) 2012 Sheldon McGrandle 4 | ;; 5 | ;; Author: Sheldon McGrandle 6 | ;; Version: 1.01 7 | ;; Created: 1st February 2013 8 | ;; Keywords: hypermedia 9 | ;; URL: https://github.com/smmcg/showcss-mode 10 | ;; Package-Requires: ((doom "1.3") (s "1.10.0")) 11 | ;; 12 | ;; This file is not part of GNU Emacs. 13 | ;; 14 | ;; This program is free software; you can redistribute it and/or modify 15 | ;; it under the terms of the GNU General Public License as published by 16 | ;; the Free Software Foundation; either version 2, or (at your option) 17 | ;; any later version. 18 | ;; 19 | ;; This program is distributed in the hope that it will be useful, 20 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 21 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 22 | ;; GNU General Public License for more details. 23 | ;; 24 | ;; You should have received a copy of the GNU General Public License 25 | ;; along with GNU Emacs; see the file COPYING. If not, write to the 26 | ;; author of this program or to the Free Software Foundation, 675 Mass 27 | ;; Ave, Cambridge, MA 02139, USA. 28 | 29 | ;;; Commentary: 30 | ;; 31 | ;; DESCRIPTION AND USAGE 32 | ;; 33 | ;; Show CSS is a minor mode for emacs. 34 | ;; 35 | ;; With showcss-mode turned on, as you navigate around an HTML file the 36 | ;; matching css for that element will be displayed in another buffer. 37 | ;; 38 | ;; In the current html buffer, if you move the cursor over a class=".*?" 39 | ;; or id=".*?" a buffer will open with the external css file loaded and 40 | ;; scrolled to the matching selector. 41 | ;; 42 | ;; Show Css will look at the tags and a custom comment tag to get 43 | ;; the location of external css files. 44 | ;; 45 | ;; Show Css looks for a comment with this regex: 46 | ;; 47 | ;; 48 | ;; For example: 49 | ;; 50 | ;; or 51 | ;; 52 | ;; 53 | ;; The comment is useful if you want to use sass files directly instead 54 | ;; of compiling them. Also showcss-mode will only use local files. So 55 | ;; if you use css on a remote server, you will need to use the showcss 56 | ;; tag in you html file and have it point to a local copy of that css. 57 | ;; 58 | ;; INSTALLATION 59 | ;; 60 | ;; Put this in your init.el or .emacs file: 61 | ;; 62 | ;; (autoload 'showcss-mode "show-css" 63 | ;; "Display the css of the class or id the cursor is at" t) 64 | ;; 65 | ;; Personally, I find this mode to distracting to use all the time, so I 66 | ;; use this function to quickly toggle the mode on and off. 67 | ;; 68 | ;; (defun sm/toggle-showcss() 69 | ;; "Toggle showcss-mode" 70 | ;; (interactive) 71 | ;; (if (derived-mode-p 72 | ;; 'html-mode 73 | ;; 'nxml-mode 74 | ;; 'nxhtml-mode 75 | ;; 'web-mode 76 | ;; 'handlebars-mode) 77 | ;; (showcss-mode 'toggle) 78 | ;; (message "Not in an html mode"))) 79 | ;; (global-set-key (kbd "C-c C-k") 'sm/toggle-showcss) 80 | ;; 81 | ;; BUGS 82 | ;; 83 | ;; Please report any bugs found to the github repository 84 | ;; https://github.com/smmcg/showcss-mode 85 | ;; 86 | ;; Also, it you have ideas, suggestions, or advice; please 87 | ;; let me know. Use the github issues tool or send me 88 | ;; an email. 89 | ;; 90 | 91 | ;;; Code: 92 | 93 | 94 | (require 'buffer-combine) 95 | (require 'doom) 96 | (require 's) 97 | 98 | 99 | (defgroup showcss nil 100 | "Customize showcss" 101 | :prefix "showcss/" 102 | :group 'Text) 103 | 104 | (defcustom showcss/update-delay 0.5 105 | "Number of seconds of idle time from last keypress 106 | before updating selectors display" 107 | :group 'showcss 108 | :type 'number) 109 | 110 | (defcustom showcss/use-html-tags t 111 | "Use the tag in addition to the comments. 112 | Turn off if you want to only comments to explicitly set the css 113 | to view" 114 | :group 'showcss 115 | :type 'boolean) 116 | 117 | (defcustom showcss/display-buffer-mode "css-mode" 118 | "The mode that the display buffer is set to. It defaults to 119 | css-mode, but it could be any other mode" 120 | :group 'showcss 121 | :type 'string) 122 | 123 | (defcustom showcss/hide-source-buffers nil 124 | "Add a space to the front of the buffer name of all 125 | the source files so they don't clutter up the file list" 126 | :group 'showcss 127 | :type 'boolean) 128 | 129 | ;; add custom: 130 | ;; turn of automatic scanning 131 | ;; set mode display buffer is in 132 | ;; don't display file name in header 133 | ;; don't display file path in header 134 | ;; don't display buttons in header 135 | 136 | (defgroup showcss-faces nil 137 | "Customize showcss faces" 138 | :prefix "showcss/" 139 | :group 'showcss) 140 | 141 | (defface showcss/region-face 142 | '((t (:background "grey50"))) 143 | "Highlight the full selector" 144 | :group 'showcss-faces) 145 | 146 | (defface showcss/source-region-face 147 | '((t (:foreground "grey60" :background "grey40"))) 148 | "Highlight the full selector in the source css buffer" 149 | :group 'showcss-faces) 150 | 151 | (defface showcss/breadcrumb-id-and-class-face 152 | '((t (:foreground "black" :background "white"))) 153 | "Highlight the breadcrumb tags" 154 | :group 'showcss-faces) 155 | 156 | (defface showcss/breadcrumb-tag-face 157 | '((t (:foreground "black" :background "white"))) 158 | "Highlight the breadcrumb tags" 159 | :group 'showcss-faces) 160 | 161 | (defface showcss/breadcrumb-seperator-face 162 | '((t (:foreground "grey50"))) 163 | "Highlight the breadcrumb seperater" 164 | :group 'showcss-faces) 165 | 166 | (defface showcss/header-face 167 | '((t (:background "grey50"))) 168 | "Face for headers" 169 | :group 'showcss-faces) 170 | 171 | (defface showcss/header-filepath-face 172 | '((t (:foreground "grey20"))) 173 | "Face for headers" 174 | :group 'showcss-faces) 175 | 176 | 177 | (defvar showcss/css-buffer nil 178 | "The buffer that contains the css file") 179 | (make-local-variable 'showcss/css-buffer) 180 | 181 | (defvar showcss/html-buffer nil 182 | "The buffer that contains the html file") 183 | (make-local-variable 'showcss/html-buffer) 184 | 185 | (defvar showcss/parents nil 186 | "The list of parents for the current tag") 187 | (make-local-variable 'showcss/parents) 188 | 189 | ;; keep global 190 | (defvar showcss/timer nil) 191 | 192 | (defvar showcss/display-buffer nil 193 | "The buffer to display the matches in") 194 | (make-variable-buffer-local 'showcss/display-buffer) 195 | 196 | 197 | (defun showcss/set-css-buffer() 198 | "showcss will look for css files in the following places: 199 | 1. Look for the in the html file 200 | 2. Look at the css declarations in the html 201 | 202 | Showcss will only use local files. So if you use css on a remote 203 | server, you will need to use the showcss tag in you html file and 204 | have it point to a local copy of that css. 205 | 206 | Find the name of the css file using this regex: 207 | 208 | Eg: 209 | " 210 | 211 | (setq showcss/css-buffer nil) 212 | 213 | (let ((csslist nil)) 214 | 215 | (when showcss/use-html-tags 216 | (save-excursion 217 | ;; get the css 218 | (goto-char (point-min)) 219 | (while (re-search-forward "" nil t) 220 | (let ((tag-start (match-beginning 0)) 221 | (tag-end (match-end 0))) 222 | (goto-char tag-start) 223 | (when (re-search-forward 224 | "\\(type=\"text/css\"\\|rel=\"stylesheet\"\\)" tag-end t) 225 | (goto-char tag-start) 226 | (when (re-search-forward "href=\"\\([^:]*?\\)\"" tag-end t) 227 | (let ((css-file (file-truename (substring-no-properties 228 | (match-string 1))))) 229 | (when (file-exists-p css-file) 230 | (setq csslist (cons css-file csslist)))))) 231 | (goto-char tag-end))) 232 | 233 | ;; get @imports 234 | ;; todo: make sure this is in a