Header = init: -> @menu = new UI.Menu 'header' menuButton = $.el 'span', className: 'menu-button' innerHTML: '' barFixedToggler = $.el 'label', innerHTML: ' Fixed Header' headerToggler = $.el 'label', innerHTML: ' Auto-hide header' scrollHeaderToggler = $.el 'label', innerHTML: ' Auto-hide header on scroll' barPositionToggler = $.el 'label', innerHTML: ' Bottom header' linkJustifyToggler = $.el 'label', innerHTML: " Centered links" customNavToggler = $.el 'label', innerHTML: ' Custom board navigation' footerToggler = $.el 'label', innerHTML: " Hide bottom board list" shortcutToggler = $.el 'label', innerHTML: " Shortcut Icons" editCustomNav = $.el 'a', textContent: 'Edit custom board navigation' href: 'javascript:;' @barFixedToggler = barFixedToggler.firstElementChild @scrollHeaderToggler = scrollHeaderToggler.firstElementChild @barPositionToggler = barPositionToggler.firstElementChild @linkJustifyToggler = linkJustifyToggler.firstElementChild @headerToggler = headerToggler.firstElementChild @footerToggler = footerToggler.firstElementChild @shortcutToggler = shortcutToggler.firstElementChild @customNavToggler = customNavToggler.firstElementChild $.on menuButton, 'click', @menuToggle $.on @headerToggler, 'change', @toggleBarVisibility $.on @barFixedToggler, 'change', @toggleBarFixed $.on @barPositionToggler, 'change', @toggleBarPosition $.on @scrollHeaderToggler, 'change', @toggleHideBarOnScroll $.on @linkJustifyToggler, 'change', @toggleLinkJustify $.on @headerToggler, 'change', @toggleBarVisibility $.on @footerToggler, 'change', @toggleFooterVisibility $.on @shortcutToggler, 'change', @toggleShortcutIcons $.on @customNavToggler, 'change', @toggleCustomNav $.on editCustomNav, 'click', @editCustomNav @setBarFixed Conf['Fixed Header'] @setHideBarOnScroll Conf['Header auto-hide on scroll'] @setBarVisibility Conf['Header auto-hide'] @setLinkJustify Conf['Centered links'] @setShortcutIcons Conf['Shortcut Icons'] $.sync 'Fixed Header', @setBarFixed $.sync 'Header auto-hide on scroll', @setHideBarOnScroll $.sync 'Bottom Header', @setBarPosition $.sync 'Shortcut Icons', @setShortcutIcons $.sync 'Header auto-hide', @setBarVisibility $.sync 'Centered links', @setLinkJustify @addShortcut menuButton $.event 'AddMenuEntry', type: 'header' el: $.el 'span', textContent: 'Header' order: 107 subEntries: [ {el: barFixedToggler} {el: headerToggler} {el: scrollHeaderToggler} {el: barPositionToggler} {el: linkJustifyToggler} {el: footerToggler} {el: shortcutToggler} {el: customNavToggler} {el: editCustomNav} ] $.on window, 'load hashchange', Header.hashScroll $.on d, 'CreateNotification', @createNotification $.asap (-> d.body), => return unless Main.isThisPageLegit() # Wait for #boardNavMobile instead of #boardNavDesktop, # it might be incomplete otherwise. $.asap (-> $.id('boardNavMobile') or d.readyState isnt 'loading'), Header.setBoardList $.prepend d.body, @bar $.add d.body, Header.hover @setBarPosition Conf['Bottom Header'] @ $.ready => @footer = $.id 'boardNavDesktopFoot' if a = $ "a[href*='/#{g.BOARD}/']", $.id 'boardNavDesktopFoot' a.className = 'current' cs = $.el 'a', id: 'settingsWindowLink' href: 'javascript:;' textContent: 'Catalog Settings' @addShortcut cs if g.VIEW is 'catalog' Header.setFooterVisibility Conf['Bottom Board List'] $.sync 'Bottom Board List', Header.setFooterVisibility @enableDesktopNotifications() bar: $.el 'div', id: 'header-bar' noticesRoot: $.el 'div', id: 'notifications' shortcuts: $.el 'span', id: 'shortcuts' hover: $.el 'div', id: 'hoverUI' toggle: $.el 'div', id: 'scroll-marker' setBoardList: -> fourchannav = $.id 'boardNavDesktop' if a = $ "a[href*='/#{g.BOARD}/']", fourchannav a.className = 'current' boardList = $.el 'span', id: 'board-list' innerHTML: "" fullBoardList = $ '#full-board-list', boardList btn = $ '.hide-board-list-button', fullBoardList $.on btn, 'click', Header.toggleBoardList $.rm $ '#navtopright', fullBoardList $.add boardList, fullBoardList $.add Header.bar, [boardList, Header.shortcuts, Header.noticesRoot, Header.toggle] Header.setCustomNav Conf['Custom Board Navigation'] Header.generateBoardList Conf['boardnav'].replace /(\r\n|\n|\r)/g, ' ' $.sync 'Custom Board Navigation', Header.setCustomNav $.sync 'boardnav', Header.generateBoardList generateBoardList: (text) -> list = $ '#custom-board-list', Header.bar $.rmAll list return unless text as = $$ '#full-board-list a[title]', Header.bar nodes = text.match(/[\w@]+((-(all|title|replace|full|index|catalog|url:"[^"]+[^"]"|text:"[^"]+")|\,"[^"]+[^"]"))*|[^\w@]+/g).map (t) -> if /^[^\w@]/.test t return $.tn t if /^toggle-all/.test t a = $.el 'a', className: 'show-board-list-button' textContent: (t.match(/-text:"(.+)"/) || [null, '+'])[1] href: 'javascript:;' $.on a, 'click', Header.toggleBoardList return a if /^external/.test t a = $.el 'a', href: (t.match(/\,"(.+)"/) || [null, '+'])[1] textContent: (t.match(/-text:"(.+)"\,/) || [null, '+'])[1] className: 'external' return a board = if /^current/.test t g.BOARD.ID else t.match(/^[^-]+/)[0] for a in as if a.textContent is board a = a.cloneNode true a.textContent = if /-title/.test(t) or /-replace/.test(t) and $.hasClass a, 'current' a.title else if /-full/.test t "/#{board}/ - #{a.title}" else if m = t.match /-text:"(.+)"/ m[1] else a.textContent if m = t.match /-(index|catalog)/ a.dataset.only = m[1] a.href = "//boards.4chan.org/#{board}/" if m[1] is 'catalog' if Conf['External Catalog'] a.href = CatalogLinks.external board else a.href += 'catalog' $.addClass a, 'catalog' $.addClass a, 'navSmall' if board is '@' return a $.tn t $.add list, nodes toggleBoardList: -> {bar} = Header custom = $ '#custom-board-list', bar full = $ '#full-board-list', bar showBoardList = !full.hidden custom.hidden = !showBoardList full.hidden = showBoardList setLinkJustify: (centered) -> Header.linkJustifyToggler.checked = centered if centered $.addClass doc, 'centered-links' else $.rmClass doc, 'centered-links' toggleLinkJustify: -> $.event 'CloseMenu' centered = if @nodeName is 'INPUT' @checked Header.setLinkJustify centered $.set 'Centered links', centered setBarFixed: (fixed) -> Header.barFixedToggler.checked = fixed if fixed $.addClass doc, 'fixed' $.addClass Header.bar, 'dialog' else $.rmClass doc, 'fixed' $.rmClass Header.bar, 'dialog' toggleBarFixed: -> $.event 'CloseMenu' Header.setBarFixed @checked Conf['Fixed Header'] = @checked $.set 'Fixed Header', @checked setShortcutIcons: (show) -> Header.shortcutToggler.checked = show if show $.addClass doc, 'shortcut-icons' else $.rmClass doc, 'shortcut-icons' toggleShortcutIcons: -> $.event 'CloseMenu' Header.setShortcutIcons @checked Conf['Shortcut Icons'] = @checked $.set 'Shortcut Icons', @checked setBarVisibility: (hide) -> Header.headerToggler.checked = hide $.event 'CloseMenu' (if hide then $.addClass else $.rmClass) Header.bar, 'autohide' (if hide then $.addClass else $.rmClass) doc, 'autohide' toggleBarVisibility: -> hide = if @nodeName is 'INPUT' @checked else !$.hasClass Header.bar, 'autohide' # set checked status if called from keybind @checked = hide $.set 'Header auto-hide', Conf['Header auto-hide'] = hide Header.setBarVisibility hide message = "The header bar will #{if hide 'automatically hide itself.' else 'remain visible.'}" new Notice 'info', message, 2 setHideBarOnScroll: (hide) -> Header.scrollHeaderToggler.checked = hide if hide $.on window, 'scroll', Header.hideBarOnScroll return $.off window, 'scroll', Header.hideBarOnScroll $.rmClass Header.bar, 'scroll' $.rmClass Header.bar, 'autohide' unless Conf['Header auto-hide'] toggleHideBarOnScroll: (e) -> hide = @checked $.set 'Header auto-hide on scroll', hide Header.setHideBarOnScroll hide hideBarOnScroll: -> offsetY = window.pageYOffset if offsetY > (Header.previousOffset or 0) $.addClass Header.bar, 'autohide' $.addClass Header.bar, 'scroll' else $.rmClass Header.bar, 'autohide' $.rmClass Header.bar, 'scroll' Header.previousOffset = offsetY setBarPosition: (bottom) -> Header.barPositionToggler.checked = bottom $.event 'CloseMenu' if bottom $.addClass doc, 'bottom-header' $.rmClass doc, 'top-header' Header.bar.parentNode.className = 'bottom' else $.addClass doc, 'top-header' $.rmClass doc, 'bottom-header' Header.bar.parentNode.className = 'top' toggleBarPosition: -> $.cb.checked.call @ Header.setBarPosition @checked setFooterVisibility: (hide) -> Header.footerToggler.checked = hide Header.footer.hidden = hide toggleFooterVisibility: -> $.event 'CloseMenu' hide = if @nodeName is 'INPUT' @checked else !!Header.footer.hidden Header.setFooterVisibility hide $.set 'Bottom Board List', hide message = if hide 'The bottom navigation will now be hidden.' else 'The bottom navigation will remain visible.' new Notice 'info', message, 2 setCustomNav: (show) -> Header.customNavToggler.checked = show cust = $ '#custom-board-list', Header.bar full = $ '#full-board-list', Header.bar btn = $ '.hide-board-list-button', full [cust.hidden, full.hidden] = if show [false, true] else [true, false] toggleCustomNav: -> $.cb.checked.call @ Header.setCustomNav @checked editCustomNav: -> Settings.open 'Advanced' settings = $.id 'fourchanx-settings' $('input[name=boardnav]', settings).focus() hashScroll: -> hash = @location.hash[1..] return unless /^p\d+$/.test(hash) and post = $.id hash return if (Get.postFromRoot post).isHidden Header.scrollTo post scrollTo: (root, down, needed) -> if down x = Header.getBottomOf root window.scrollBy 0, -x unless needed and x >= 0 else x = Header.getTopOf root window.scrollBy 0, x unless needed and x >= 0 scrollToIfNeeded: (root, down) -> Header.scrollTo root, down, true getTopOf: (root) -> {top} = root.getBoundingClientRect() if Conf['Fixed Header'] and not Conf['Bottom Header'] headRect = Header.toggle.getBoundingClientRect() top -= headRect.top + headRect.height top getBottomOf: (root) -> {clientHeight} = doc bottom = clientHeight - root.getBoundingClientRect().bottom if Conf['Bottom Header'] headRect = Header.toggle.getBoundingClientRect() bottom -= clientHeight - headRect.bottom + headRect.height bottom addShortcut: (el) -> shortcut = $.el 'span', className: 'shortcut brackets-wrap' $.add shortcut, el $.prepend Header.shortcuts, shortcut menuToggle: (e) -> Header.menu.toggle e, @, g createNotification: (e) -> {type, content, lifetime, cb} = e.detail notice = new Notice type, content, lifetime cb notice if cb areNotificationsEnabled: false enableDesktopNotifications: -> return unless window.Notification and Conf['Desktop Notifications'] switch Notification.permission when 'granted' Header.areNotificationsEnabled = true return when 'denied' # requestPermission doesn't work if status is 'denied', # but it'll still work if status is 'default'. return el = $.el 'span', innerHTML: """ Desktop notification permissions are not granted. [FAQ]
or """ [authorize, disable] = $$ 'button', el $.on authorize, 'click', -> Notification.requestPermission (status) -> Header.areNotificationsEnabled = status is 'granted' return if status is 'default' notice.close() $.on disable, 'click', -> $.set 'Desktop Notifications', false notice.close() notice = new Notice 'info', el