cyberweb 0.4.174

data/lib/cyberweb/web_object/links.rb

@@ -0,0 +1,228 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require 'cyberweb/web_object/links.rb'
+# =========================================================================== #
+require 'cyberweb/base/base.rb'
+
+module Cyberweb
+
+class WebObject < Base # === Cyberweb::WebObject
+
+  # ========================================================================= #
+  # === string_link
+  # ========================================================================= #
+  def string_link(
+      i           = '',
+      option_hash = {}
+    )
+    if i.is_a?(Symbol) and i.start_with?('local_')
+      i = BeautifulUrl.local_menu(i)
+    end
+    if i.start_with? '/home/x'
+      i = i.dup
+      i.sub!(/\/home\/x\//, relative_path?)
+    end
+    i = rds(i.to_s.dup)
+    HtmlTags.a(
+      i, option_hash
+    )
+  end; alias string_a string_link # === string_a
+
+  # ========================================================================= #
+  # === a                                                   (a tag, link tag)
+  #
+  # This method essentially refers to the <a> tag.
+  # ========================================================================= #
+  def a(
+      i           = '',
+      option_hash = {}
+    )
+    if i.is_a? Symbol
+      i = ::Cyberweb.beautiful_url(i)
+    end
+    addn(
+      string_link(i, option_hash)
+    )
+  end; alias link    a # === a
+       alias link_to a # === link_to
+       alias alink   a # === alink
+       alias slink   a # === slink
+
+  # ========================================================================= #
+  # === linkbr                                                      (abr tag)
+  # ========================================================================= #
+  def linkbr(
+      i           = '',
+      option_hash = {}
+    )
+    if i.is_a?(Symbol)
+      # ===================================================================== #
+      # Next is a bit hack-ish. If we are using sinatra, and if the link
+      # is registered as a local link, then we will use a much shorter
+      # URL that just re-directs to the / root directory of the sinatra
+      # application at hand.
+      #
+      # This will only be the case for Symbols.
+      # ===================================================================== #
+      if are_we_using_sinatra? and 
+         Object.const_defined?(:BeautifulUrl) and
+         BeautifulUrl.is_a_local_link?(i)
+         i = i.to_s
+         option_hash[:content] = i.to_s
+      else
+        i = ::Cyberweb.beautiful_url(i)
+      end
+    end
+    case i
+    when 'SELF'
+      i = request_uri?
+    else
+      # ===================================================================== #
+      # Improve on the option-hash next.
+      # ===================================================================== #
+      if option_hash.has_key? :content
+        _ = option_hash[:content]
+        case _
+        # =================================================================== #
+        # === Example: dot101 SELF
+        # =================================================================== #
+        when /^dot(\d{1,3}) SELF/
+          _ = ''.dup
+          _ << sg(('dot'+$1.to_s).to_sym, 'marr8px')
+          _ << " #{i}"
+        end
+        option_hash[:content] = _
+      end
+    end
+    a(i, option_hash)
+    br
+  end; alias abr linkbr # === abr
+
+  # ========================================================================= #
+  # === back_to_games
+  # ========================================================================= #
+  def back_to_games(
+      optional_css_class = 'steelblue BOLD'
+    )
+    abr :local_games,
+        content: 'SELF',
+        css_class: optional_css_class
+  end; alias to_the_games back_to_games # === to_the_games
+
+  # ========================================================================= #
+  # === link_to_local_games
+  # ========================================================================= #
+  def link_to_local_games(
+      optional_css_class = 'mars1em steelblue BOLD'
+    )
+    abr :local_games,
+        content: 'SELF',
+        css_class: optional_css_class
+  end; alias roebe_games link_to_local_games # === roebe_games
+
+  # ========================================================================= #
+  # === roebe_internal_link
+  #
+  # This is the method that, since as of June 2021, should be used for
+  # any "roebe-internal" link. This refers primarily to my home
+  # system, which is now spread out into different projects.
+  #
+  # Note that since as of June 2021, all roebe-internal links MUST start
+  # with a :local_ prefix. This may change at a later time, but for now
+  # we will keep this very strict.
+  # ========================================================================= #
+  def roebe_internal_link(i, hash)
+    if i.is_a? Symbol
+      if i.start_with? 'local'
+        i = BeautifulUrl.local_link(i)
+        # =================================================================== #
+        # For sinatra, we will simplify this a bit. This is fairly hackish
+        # but it should suffice for now.
+        # =================================================================== #
+        if uses_sinatra?
+          i = i.to_s
+          i = File.basename(i.delete_suffix(File.extname(i)))
+        end
+      end
+    end
+    abr(i, hash)
+  end; alias roebe_local_link roebe_internal_link # === roebe_local_link
+
+  # ========================================================================= #
+  # === self_abr
+  #
+  # This method is similar to abr(), but it will automatically use
+  # content: :self as-is.
+  # ========================================================================= #
+  def self_abr(
+      remote_url, optional_css_class = ''
+    )
+    abr remote_url,
+        content: :self,
+        css_class: optional_css_class
+  end; alias abr_self self_abr # ===  abr_self
+
+  # =========================================================================== #
+  # === aself
+  # =========================================================================== #
+  def aself(
+      url, optional_css_class = ''
+    )
+    a(
+      url,
+      content: :self,
+      css_class: optional_css_class
+    )
+  end
+
+  # ========================================================================= #
+  # === link_in_page
+  #
+  # Use this method to describe an in-page link, ie a link towards
+  # 'HARDWARE.cgi#foobar' (an "intralink").
+  #
+  # Usage examples:
+  #
+  #   link_in_page(:where_to, 'internal_pointer', 'Zu meinem Netgar WLAN Stick')
+  #   link_in_page(:where_to, 'internal_pointer', 'Zu meinem Netgar WLAN Stick',0,'css_class')
+  #   link_in_page(:hware,    'USB_Netgear_108_WG111T', 'Zu meinem Netgar WLAN Stick')
+  #
+  # ========================================================================= #
+  def link_in_page(
+      link_hyperref     = '',
+      pointer           = '', 
+      link_description  = '',
+      default_linebreak = '',
+      css_class         = '',
+      the_id            = '',
+      css_style         = '',
+      use_js            = ''
+    )
+    link_hyperref = 'SELF' if link_hyperref.to_s.empty? # safeguard
+    if link_description.to_s.empty? and !pointer.to_s.empty?
+      link_description = pointer.dup
+    end
+    # ======================================================================= #
+    # === Pass through BeautifulUrl next but not or /Users link
+    # ======================================================================= #
+    if link_hyperref.is_a?(String) and !link_hyperref.include?('SELF')
+      unless link_hyperref.start_with? '/home'
+        _ = sanitize_url(link_hyperref, true)
+        link_hyperref = _
+      end
+    end
+    this_target = "#{link_hyperref}#{pointer}" 
+    a(
+      this_target,
+      content: link_description,
+      linebreak: default_linebreak,
+      css_class: css_class,
+      the_id: the_id,
+      css_style: css_style,
+      use_js: use_js
+    )
+  end; alias intralink link_in_page # === intralink()
+
+end; end